10 CLEAR 400,&HD000:DEFUSR=&HD00F:A=&HD00F
20 READ A$:IF A$="z" THEN R=USR(R):END ELSE 30
30 POKE A,VAL("&h"+A$):A=A+1:GOTO 20
40  DATA CD,C3,00 :'  CALL 00C3   ; Очистка экрана
50  DATA CD,B4,00 :'  CALL 00B4   ; Ввод строки
60  DATA 06,11    :'  LD   B,11h  ; Загрузка параметра цикла
70  DATA 23       :'  INC  HL     ; ░
W
W
W
W
W
W
Y
80  DATA 10,FD    :'  DJNZ $-1    ; 
W
W
W
W
W
W
W
[
90  DATA 06,11    :'  LD   B,11h  ; Загрузка параметра цикла
100 DATA 7E       :'  LD   A,(HL) ;
110 DATA 2B       :'  DEC  HL     ;
120 DATA CD,A2,00 :'  CALL 00A2   ; Печать символа, код которого содержится в регистре A
130 DATA 10,F9    :'  DJNZ $-5    ; Цикл,  организованный  для  печати слова
140 DATA C9       :'  RET         ; К о н е ц
150 DATA "z"