10 CLEAR 100,&HD000:DEFUSR=&HD000:AD=&HD000
40 C$="YAMAHA !!!":C=LEN(C$)
50 FOR I=1 TO LEN(C$)
60    POKE &HA000+I,ASC(MID$(C$,I,1))
70 NEXT
80 READ A$:IF A$="z"THEN 120
100 POKE AD,VAL("&h"+A$):AD=AD+1:GOTO 80
120 POKE &HD001,C:A=USR(0):END
130 DATA 06,00    :'  LD    B,0      ;В регистре B уже находится длина слова C$
140 DATA 21,00,A0 :'  LD    HL,A000
150 DATA CD,10,00 :'  CALL  0010     ;░
W
W
Y
160 DATA CD,A2,00 :'  CALL  00A2     ;   
V
170 DATA 10,F8    :'  DJNZ  D005     ;
W
W
W
[
180 DATA C9       :'  RET
190 DATA "z"