10 POKE &HD000,0:KEYOFF
20 SCREEN 1:SPRITE$(0)="orpolrplor":SPRITE$(1)="orplorlorlo"
30 DEFUSR=&H9000:D=&H9000
50 READ A$
60 IF A$="z" THEN 180
70 POKE D,VAL("&h"+A$)
80 D=D+1
90 GOTO 50
100 DATA CD,3E,01   :' CALL 013E
110 DATA E6,20      :' AND  20
120 DATA FE,00      :' CP   0
130 DATA C8         :' RET  Z
140 DATA 3E,01      :' LD   A,1
150 DATA 32,00,D0   :' LD   (D000),A
160 DATA C9         :' RET
170 DATA "z"        :' ë Ï Î Å Ã
180 FOR I=0 TO 255:PUT SPRITE 1,(I,40),6,0:PUT SPRITE 2,(255-I,40),5,1
190 A=USR(0):P=PEEK(&HD000):IF P=1 THEN FOR K=0 TO 10:COLOR 1,15,15:COLOR 15,1,1:NEXT:POKE &HD000,0
200 NEXT:GOTO 180