REM Testing BASIC compiler
PRINT "==========================="
PRINT "Test 15: Testing NETWORKING"
PRINT "==========================="
PRINT

website$ = "www.basic-converter.org"
port$ = "80"

OPEN CONCAT$(website$, ":", port$) FOR NETWORK AS mynet

SEND CONCAT$("GET / HTTP/1.1\r\nHost: ", website$, "\r\n\r\n") TO mynet

REPEAT
    RECEIVE dat$ FROM mynet

    total$ = CONCAT$(total$, dat$)

UNTIL ISFALSE(WAIT(mynet, 500))

CLOSE NETWORK mynet

PRINT total$