10 DWRITE 0,LO
20 DWRITE 16,LO
30 DWRITE 17,LO
40 DWRITE 26,LO
50 DWRITE 27,LO
55 DWRITE 16,LO
60 CURSOR 0
70 PRINT " n or consecutive readings ";
80 INPUT K
85 X=320: Y=100: H=0
86 P=320: Q=100
90 CLS
95 FOR I=1 TO K
143 A=DREAD(0)
145 B=DREAD(16)
150 C=DREAD(17)
170 D=DREAD(26)
190 E=DREAD(27)
200 IF A=1 Y=Y-1
210 IF C=1 Y=Y+1
220 IF D=1 X=X-3
230 IF E=1 X=X+3
240 IF B=1 H=H+1: DELAY(50)
250 IF H>14 H=0
260 LINE H,X,Y,P,Q,1
270 DELAY(20)
275 P=X: Q=Y
280 NEXT I
300 CURSOR 1
310 END