10 CLEAR 400,&HD000:DEFUSR=&HD000:K=&HD000
40 READ A$:IF A$="Z" THEN A=USR(0):END
60 POKE K,VAL("&H"+A$):K=K+1:GOTO 40
90  DATA  CD,6F,00 :' CALL  006F          ;Режим SCREEN 1
100 DATA  3E,20    :' LD    A,20          ;
110 DATA  32,B0,F3 :' LD    (F3B0),A      ;Установка 32 симв.в строке
120 DATA  CD,7E,00 :' CALL  007E          ;Установка SCREEN 1-2
130 DATA  21,00,00 :' LD    HL,0000       ;
140 DATA  11,BF,1B :' LD    DE,1BBF       ;
150 DATA  1A       :' LD    A,(DE) ░
W
W
W
W
W
Y; 
X
W
W
W
W
W
W
W
W
W
W
W
W
W
W
W
W
W
W
W
Y
160 DATA  CD,2A,D0 :' CALL  D02A  
W
W
W
W
W
Y 
V; 
V  Часть программы, 
V
170 DATA  3E,F0    :' LD    A,F0       
V 
V; 
V                   
V
180 DATA  CB,EC    :' SET   5,H        
V 
V; 
V                   
V
190 DATA  CD,2A,D0 :' CALL  D02A  
W
W
W
Y 
V 
V; 
V                   
V
200 DATA  CB,AC    :' RES   5,H      
V 
V 
V; 
V                   
V
210 DATA  13       :' INC   DE       
V 
V 
V; 
V     которая       
V
220 DATA  23       :' INC   HL       
V 
V 
V; 
V                   
V
230 DATA  7C       :' LD    A,H      
V 
V 
V; 
V                   
V
240 DATA  D6,08    :' SUB   08       
V 
V 
V; 
V                   
V
250 DATA  C2,11,D0 :' JP    NZ,D011 
W
U
W
U
W
[; 
V                   
V
260 DATA  00       :' NOP            
V 
V  ; 
V    считывает      
V
270 DATA  C3,3F,D0 :' JP    D03F   
W
W
U
W
U
Y ; 
V                   
V
280 DATA  47       :' LD    B,A   ░
W
W
[░
[
V ; 
V                   
V
290 DATA  CD,4D,00 :' CALL  004D        
V ; 
V                   
V
300 DATA  CB,DC    :' SET   3,H         
V ; 
V                   
V
310 DATA  78       :' LD    A,B         
V ; 
V     шаблоны       
V
320 DATA  CD,4D,00 :' CALL  004D        
V ; 
V                   
V
330 DATA  CB,9C    :' RES   3,H         
V ; 
V                   
V
340 DATA  CB,E4    :' SET   4,H         
V ; 
V                   
V
350 DATA  78       :' LD    A,B         
V ; 
V     символов      
V
360 DATA  CD,4D,00 :' CALL  004D        
V ; 
V                   
V
370 DATA  CB,A4    :' RES   4,H         
V ; 
Z
W
W
W
W
W
W
W
W
W
W
W
W
W
W
W
W
W
W
W
[
380 DATA  C9       :' RET               
V ;
390 DATA  21,F8,0F :' LD    HL,0FF8  ░
W
W
[ ;
400 DATA  3E,FF    :' LD    A,FF          ;
410 DATA  CD,51,D0 :' CALL  D051 
W
W
W
W
Y    ;
420 DATA  CD,4E,D0 :' CALL  D04E 
W
W
W
Y
V    ;
430 DATA  C9       :' RET           
V
V    ; К о н е ц
440 DATA  00,00,00 :'               
V
V    ;
450 DATA  21,F8,17 :' LD    HL,17F8░
[
V    ;
460 DATA  06,08    :' LD    B,8 ░
W
W
W
W
[    ;Подпрограмма,"считывающая"
470 DATA  CD,4D,00 :' CALL  004D░
W
W
Y      ;курсор  для  2-й и 3-й час-
480 DATA  23       :' INC   HL     
V      ;тей экрана
490 DATA  10,FA    :' DJNZ  $ - 4
W
W
[      ;
500 DATA  C9       :' RET
510 DATA  "Z"