10 'Read binary file by masking error generated from reading EOF character (error 55 in line 70)
20 'Developed 08 Jan 2016 by Eugeny Brychkov
30 ON ERROR GOTO 100
40 A$="http://www.gr8bit.ru/software/basic/capabilities/data/bintest.dat"
50 OPEN "HTTPA:A$" AS #1
60 IF EOF(1) THEN CLOSE#1:END
70 A$=INPUT$(1,1)
80 PRINT HEX$(ASC(A$));" ";
90 GOTO 60
100 IF ERL=70 AND ERR=55 THEN A$=CHR$(&H1A):RESUME NEXT ELSE PRINT"Error";ERR;"in";ERL:END