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░
Y
140 DATA 11,00,1B   :'LD   DE,1B00 
V
150 DATA 01,04,00   :'LD   BC,0004 
V
160 DATA CD,5C,00   :'CALL 005C    
V
170 DATA 21,09,D0   :'LD   HL,D009 
V
180 DATA 34         :'INC  (HL)    
V
190 DATA CD,BA,00   :'CALL 00BA    
V
200 DATA 06,F1,00   :'LD   B,F1░
W
Y 
VЗадержка
210 DATA 10,FD      :'DJNZ      
W
[ 
VЗадержка
220 DATA C3,17,D0   :'JP   D017 
W
W
W
[
230 DATA"z"         :'К о н е ц