10 CLEAR 200,&HA000 'Программа размещается с адреса &HA000
20 A=&HA000
30 READ A$:IF A$="Z" THEN 50
40 POKE A, VAL("&H"+A$):A=A+1:GOTO 30
50 BSAVE"BSPRIT",&HA000,&HA073,&HA030
110 DATA 3E,E3     :'A000  LD   A,E3     ;A=E3             ; Размер
120 DATA 32,E0,F3  :'A002  LD   (F3E0),A ;A 
W▐F3E0 VDP(1)  ; спрайта
130 DATA CD,72,00  :'AOO5  CALL 0072     ;
140 DATA 21,50,A0  :'A008  LD   HL,A050  ;HL=начало данных 
150 DATA 11,00,38  :'A00B  LD   DE,3800  ;DE=начало SGT
160 DATA 01,20,00  :'A00E  LD   BC,0020  ;BC=длина данных
170 DATA CD,5C,00  :'A011  CALL 005C     ;пересылка RAM
W
W▐видеопамять
180 DATA C9        :'AO14  RET           ;выход
190 DATA 00,00,00  :'A015  NOP
200  'A018 SAT
210 DATA 21,70,A0  :'A018  LD   HL,A070  ;HL=начало данных
220 DATA 11,00,1B  :'A01B  LD   DE,1B00  ;DE=начало SAT
230 DATA 01,04,00  :'A01E  LD   BC,0004  ;BC=длина данных
240 DATA CD,5C,00  :'A021  CALL 005C     ;пересылка RAM
W
W▐видеопамять
250 DATA C9        :'A024  RET           ;выход
260 DATA 00,00,00  :'A025  NOP
270  'A028 STICK(0)
280 DATA 3E,00     :'А028  LD   A,00     ;клавиши управления курсором
290 DATA CD,D5,00  :'A02A  CALL 00D5     ;A=STICK(0)
300 DATA C9        :'A02D  RET           ;выход
310 DATA 00,00     :'A02E  NOP
320  'A030 Основная программа
330 DATA CD,00,A0  :'A030  CALL A000     ;Экран/SGT
340 DATA CD,18,A0  :'A033  CALL A018     ;SAT
350 DATA CD,28,A0  :'A036  CALL AO28     ;STICK(0)
360 DATA 21,71,A0  :'A039  LD   HL,A071  ;HL=X координатный указатель
370 DATA FE,03     :'A03C  CP   03       ;A=3?
W
W
W
W
W
W
W
W
W
Y 
380 DATA 20,01     :'A03E  JR   NZ,01    ;нет
W
W▐JUMP   
V
390 DATA 34        :'A040  INC  (HL)     ;(HL)=(HL)+1  
V
400 DATA FE,07     :'A041  CP   07       ;A=7?    ░
W
W
W
W
[
410 DATA 20,01     :'A043  JR   NZ,01    ;нет
W
W▐JUMP
W
W
W
Y 
420 DATA 35        :'A045  DEC  (HL)     ;(HL)=(HL)-1  
V
430 DATA 01,FF,00  :'A046  LD   BC,FF    ;счетчик=255 ░
[
440 DATA 0B        :'А049  DEC  BC       ;BC=BC-1
450 DATA 78        :'A04A  LD   A,B      ;BC=0?
460 DATA B1        :'A04B  OR   C        ;нет
W
W▐цикл
470 DATA 20,FB     :'A04C  JR   NZ,$-3   ;переход на A049
480 DATA 18,E3     :'A04E  JR   $-27     ;переход на A033
490  'A050  Начальные данные для  ш а б л о н а  спрайта
500 DATA FF,80,80,80,80,80,80,80
510 DATA 80,80,80,80,80,80,80,FF
520 DATA FF,01,01,01,01,01,01,01
530 DATA 01,01,01,01,01,01,01,FF
540  'A070 Начальные данные для  а т р и б у т а  спрайта
550 DATA 10,10,00,0F,"Z"