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