0 REM Developed by Eugeny Brychkov 05 Sep 2017
1 REM Requires firmware datecode 20170905 or later
10 PRINT"This program gets file"
20 PRINT"using TCP: device"
30 PRINT"Press any key to continue":A$=INPUT$(1):PRINT 
40 CALLNETSETHOST("www.gr8bit.ru")
50 OPEN"TCPA:"AS#1
60 PRINT#1,"GET /software/basic/@license.txt HTTP/1.0"
70 PRINT#1,"Host: www.gr8bit.ru":PRINT#1,"Connection: close"
80 PRINT#1,""
90 IF EOF(1) THEN PRINT:PRINT"RECEIVED":CALLNETRESST:CLOSE#1:END
100 LINEINPUT#1,A$:PRINTLOC(1);" ";A$
110 GOTO 90