10 SCREEN 1
20 KEY OFF:CLEAR 300,&HD000:I=&HD000
30 READ A$:IF A$="z" THEN SCREEN 1:GOTO 50
40 POKE I,VAL("&h"+A$):I=I+1:GOTO 30
50 DEFUSR=&HD00C:A=USR(0)
60  DATA FF,FF,C3,C3:'ä Á Î Î Ù Å
70  DATA C3,C3,FF,FF:'ä Á Î Î Ù Å
80  DATA 64,01,00,0F:'X, Y, û Á Â Ì Ï Î , ã × Å Ô
90  DATA 21,00,D0   :'LD   HL,D000
100 DATA 11,00,38   :'LD   DE,3800
110 DATA 01,08,00   :'LD   BC,0008
120 DATA CD,5C,00   :'CALL 005C
130 DATA 21,08,D0   :'LD   HL,D008
140 DATA 11,00,1B   :'LD   DE,1B00
150 DATA 01,04,00   :'LD   BC,0004
160 DATA CD,5C,00   :'CALL 005C
170 DATA 21,09,D0   :'LD   HL,D009
180 DATA 34         :'INC  (HL)
190 DATA C9         :'RET
230 DATA"z"         :'ë Ï Î Å Ã