10 restore 100:gosub 98
20 fori=0to1000:nexti
30 restore 110:gosub 98
40 stop
98 readi:ifi<0thenreturn
99 readj:out&h7c,i:out&h7d,j:goto98
100 data 0,0,1,&h2c,2,&h3f,3,0,4,255,5,255,6,15,7,15,48,0,16,0,32,&h1e,15,4,-1
110 data 32,14,1,0,-1