mobilebasic/Examples/NetworkIO/network.bas

10 lines
146 B
QBasic
Raw Normal View History

2021-03-29 20:43:07 +04:00
SUB MAIN
DIM S AS STRING
PRINT "Reading from Google"
OPEN #1,"http://www.google.com/","r"
READLINE #1,S
CLOSE #1
PRINT s
END SUB