10 lines
365 B
Plaintext
10 lines
365 B
Plaintext
SYS "LoadLibrary", "URLMON.DLL" TO urlmon%
|
|
SYS "GetProcAddress", urlmon%, "URLDownloadToFileA" TO URLDownloadToFile
|
|
|
|
url$ = "http://www.bbcbasic.co.uk/aboutus.html"
|
|
file$ = @tmp$ + "rosetta.tmp"
|
|
SYS URLDownloadToFile, 0, url$, file$, 0, 0 TO fail%
|
|
IF fail% ERROR 100, "File download failed"
|
|
|
|
OSCLI "TYPE """ + file$ + """"
|