10 a$="/software/firmware/GR8NET/test-images/test"
20 open"http:a$"as#1:x=0
30 ifeof(1)then100
40 a$=input$(1):printa$;:a=asc(a$):ifa<>x+48thenstop
50 x=(x+1)mod10:goto30
100 close