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    ; Ввод слова
60  DATA 06,00      :' LD   B,00    ;
70  DATA 3E,00      :' LD   A,00    ;
75  DATA 23         :' INC  HL      ;
80  DATA BE         :' CP   (HL)    ;
90  DATA 28,03      :' JR   Z,$+5   ;
100 DATA 04         :' INC  B       ;
110 DATA 18,F7      :' JR   $-7     ;
120 DATA 78         :' LD   A,B     ;
130 DATA 32,00,A0   :' LD   (A000),A;
140 DATA C9         :' RET          ;
150 DATA "z"
160 PRINT PEEK(&HA000)