5 SPD=5
10 OUT 958,8
20 INPUT "waiting";J
30 OUT 958,8
40 READ OBJECT
45 PRINT HEX$(OBJECT); " - ";
50 IF OBJECT=256 THEN GOTO 200
60 OUT 956,OBJECT
65 FOR J=1 TO SPD: NEXT J
70 OUT 958,0
75 FOR J=1 TO SPD: NEXT J
80 GOTO 30
90 DATA 62,254,8,33,48,24,126,211,1,8,211,0,7
95 DATA 8,62,255,211
100 DATA 0,44,125,254,56,202,32,24,195,6,24,0,0,0,0,118,0,24  
120 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,140,175,163,144,127,191,191,249
125 DATA 256
200 FOR FILL=1 TO 255
210 OUT 956,0
215 FOR J=1 TO SPD: NEXT J
220 OUT 958,0
225 FOR J=1 TO SPD: NEXT J
230 OUT 958,8
235 FOR J=1 TO SPD: NEXT J
240 NEXT FILL
250 RESTORE
260 GOTO 20