18 lines
387 B
Plaintext
18 lines
387 B
Plaintext
'
|
|
' Read and display a website
|
|
'
|
|
IF AMOUNT(ARGUMENT$) = 1 THEN
|
|
website$ = "www.basic-converter.org"
|
|
ELSE
|
|
website$ = TOKEN$(ARGUMENT$, 2)
|
|
ENDIF
|
|
|
|
OPEN website$ & ":80" FOR NETWORK AS mynet
|
|
SEND "GET / HTTP/1.1\r\nHost: " & website$ & "\r\n\r\n" TO mynet
|
|
REPEAT
|
|
RECEIVE dat$ FROM mynet
|
|
total$ = total$ & dat$
|
|
UNTIL ISFALSE(WAIT(mynet, 500))
|
|
CLOSE NETWORK mynet
|
|
PRINT total$
|