BCX Console Demonstration Program s137.bas

 DIM Url$
 DIM Fil$
 
 IF ARGC < 3 THEN
   COLOR 2, 0
   PRINT "Usage : Download            RemoteURL              LocalFileName.ext"
   COLOR 1, 0
   PRINT "********************************************************************"
   COLOR 12, 0
   PRINT "Sample: Download  http://www.yahoo.com/index.html  c:\temp\yahoo.htm"
   END
 END IF
 
 Url$ = Argv$[1]
 Fil$ = Argv$[2]
 
 IF DOWNLOAD(Url$, Fil$) THEN
   PRINT "Download Successful"
 ELSE
   PRINT "Download UnSuccessful"
 END IF