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