10  CLEAR 200,&HD000:DEFUSR=&HD001:A=&HD001
20  READ R$:IF R$="z" THEN 40
30  POKE A,VAL("&h"+R$):A=A+1:GOTO 20
40  P=USR(0)
45  DATA CD,C3,00 :'CALL 00C3   ; Очистка экрана
50  DATA CD,B4,00 :'CALL 00B4   ; Ввод строки
70  DATA 3E,41    :'LD   A,41   ; Загрузка кода вычеркиваемого символа
75  DATA 23       :'INC  HL     ;
80  DATA BE       :'CP   (HL)   ;
90  DATA 28,04    :'JR   Z,$+6  ;
100 DATA 7E       :'LD   A,(HL) ;
110 DATA CD,A2,00 :'CALL 00A2   ; Вывод символа с кодом,содержащимся в регистре А
120 DATA 3E,00    :'LD   A,00   ;
130 DATA BE       :'CP   (HL)   ;
140 DATA 28,02    :'JR   Z,$+3  ; Выход из программы по биту Z
141 DATA 18,EF    :'JR   $-15   ;
145 DATA C9       :'RET         ;
150 DATA "z"