10 A=828:IF A=PEEK(806)+256*PEEK(807) THEN 70
20 FOR N=0 TO 16:READX:POKE A+N,X:NEXT
30 DATA 201,255,208,2,169,126,201,233
40 DATA 176,6,201,193,144,2,233,96,76
50 POKE A+N,PEEK(806):POKEA+N+1,PEEK(807)
60 POKE 807,A/256:POKE 806,A-256*PEEK(807)
70 :