10 CLEAR 200,&HD000
20 DEFUSR=&HD00C
30 A=&HD000
40 READ K$:IF K$="z" THEN A=USR(0):END
50 POKE A,VAL("&h"+K$)
60 A=A+1:GOTO 40
70  DATA  FF,FF,FF,FF  :'   ░
W
W
W
W
W
W
W
W
W
W
W
W
W
W
W
W
Y  Образ
80  DATA  FF,FF,FF,FF  :'   ░
W
W
W
W
W
W
W
W
W
W
W
W
W
W
W
W
[  спрайта
90  DATA  64,64,00,0F  :'   ░
W
W
W
W
W
W
W
W
W
W
W
W
W
W
W
W
W  Y,X,шаблон,цвет
100 DATA  CD,6F,00     :'   CALL    006F        SCREEN 1
110 DATA  21,00,D0     :'   LD      HL,D000 
W
Y  Формирование
120 DATA  11,00,38     :'   LD      DE,3800  
V  шаблона
130 DATA  01,08,00     :'   LD      BC,0008  
V  спрайта
140 DATA  CD,5C,00     :'   CALL    005C   ░
W
[ 
150 DATA  21,08,D0     :'
X
W▐LD      HL,D008░
W
Y  Рисование
160 DATA  11,00,1B     :'
V  LD      DE,1B00  
V  спрайта
170 DATA  01,04,00     :'
V  LD      BC,0004  
V 
180 DATA  CD,5C,00     :'
V  CALL    005C   ░
W
[ 
190 DATA  3E,00        :'
V  LD      A,00   ░
W
Y  Обращение
200 DATA  CD,D5,00     :'
V  CALL    00D5   ░
W
[  к подпрограмме BIOS
210 DATA  FE,01        :'
V  CP      01     ░
W
Y 
220 DATA  CC,7E,D0     :'
V  CALL    Z,D07E   
V 
230 DATA  FE,02        :'
V  CP      02       
V 
240 DATA  CC,7E,D0     :'
V  CALL    Z,D07E   
V  Проверка нажатия
250 DATA  FE,02        :'
V  CP      02       
V  клавиш управления
260 DATA  CC,8D,D0     :'
V  CALL    Z,D08D   
V  курсором
270 DATA  FE,03        :'
V  CP      03       
V  и переход
280 DATA  CC,8D,D0     :'
V  CALL    Z,D08D   
V  на подпрограмму
290 DATA  FE,04        :'
V  CP      04       
V  изменения X,Y
300 DATA  CC,83,D0     :'
V  CALL    Z,D083   
V 
310 DATA  FE,04        :'
V  CP      04       
V 
320 DATA  CC,8D,D0     :'
V  CALL    Z,D08D   
V 
330 DATA  FE,05        :'
V  CP      05       
V 
340 DATA  CC,83,D0     :'
V  CALL    Z,D083   
V
350 DATA  FE,06        :'
V  CP      06       
V
360 DATA  CC,83,D0     :'
V  CALL    Z,D083   
V
370 DATA  FE,06        :'
V  CP      06       
V
380 DATA  CC,88,D0     :'
V  CALL    Z,D088   
V
390 DATA  FE,07        :'
V  CP      07       
V
400 DATA  CC,88,D0     :'
V  CALL    Z,D088   
V
410 DATA  FE,08        :'
V  CP      08       
V
420 DATA  CC,88,D0     :'
V  CALL    Z,D088   
V
430 DATA  FE,08        :'
V  CP      08       
V
440 DATA  CC,7E,D0     :'
V  CALL    Z,D07E ░
W
[
450 DATA  CD,BA,00     :'
V  CALL    00BA
460 DATA  21,FF,0F     :'
V  LD      HL,0FFF    ░
W
Y
470 DATA  2B           :'
V  DEC     HL     ░
W
W
Y  
V
480 DATA  7D           :'
V  LD      A,L       
V  
V
490 DATA  FE,00        :'
V  CP      00        
V  
V Задержка
500 DATA  C2,6E,D0     :'
V  JP      NZ,D06E 
W
W
S  
V
510 DATA  7C           :'
V  LD      A,H       
V  
V
520 DATA  FE,00        :'
V  CP      00        
V  
V
530 DATA  C2,6E,D0     :'
V  JP      NZ,D06E 
W
W
[░
W
[
540 DATA  C3,1B,D0     :'
Z
W JP      D01B
550 DATA  21,08,D0     :'   LD      HL,D008░
W
Y Подпрограмма
560 DATA  35           :'   DEC     (HL)     
V уменьшения
570 DATA  C9           :'   RET            ░
W
[ координаты Y
580 DATA  21,08,D0     :'   LD      HL,D008░
W
Y Подпрограмма
590 DATA  34           :'   INC     (HL)     
V увеличения
600 DATA  C9           :'   RET            ░
W
[ координаты Y
610 DATA  21,09,D0     :'   LD      HL,D009░
W
Y Подпрограмма
620 DATA  35           :'   DEC     (HL)     
V уменьшения
630 DATA  C9           :'   RET            ░
W
[ координаты X
640 DATA  21,09,D0     :'   LD      HL,D009░
W
Y Подпрограмма
650 DATA  34           :'   INC     (HL)     
V увеличения
660 DATA  C9           :'   RET            ░
W
[ координаты X
670 DATA  z            :'   К о н е ц