10 CLEAR 200,&HD000
20 POKE &HFDCC,&HC3 ':\
30 POKE &HFDCD,&H0  ': > JP D000
40 POKE &HFDCE,&HD0 ':/
50 AD=&HD000
60 READ A$:IF A$="Z" THEN END
70 POKE AD,VAL("&H"+A$)
80 AD=AD+1: GOTO 60
90  DATA  FE,38      :' CP   38h   ;  A:=38h ?
100 DATA  C0         :' RET  NZ    ; Символ ":=" означает "содержит"
110 DATA  3E,ED      :' LD   A,EDh ;  A:=EDh 
W
W
W▐"М"
120 DATA  CD,A2,00   :' CALL 00A2  ;
130 DATA  3E,C9      :' LD   A,C9h ;  A:=C9h 
W
W
W▐"и"
140 DATA  CD,A2,00   :' CALL 00A2  ;
150 DATA  3E,DB      :' LD   A,DBh ;  A:=DBh 
W
W
W▐"ш"
160 DATA  CD,A2,00   :' CALL 00A2  ;
170 DATA  3E,C1      :' LD   A,C1h ;  A:=C1h 
W
W
W▐"а"
180 DATA  CD,A2,00   :' CALL 00A2  ;
190 DATA  3E,40      :' LD   A,40h ;  A:=40h
200 DATA  C9         :' RET        ;
210 DATA  "Z"        :' К о н е ц  ;