10 CLEAR 200,&HA000:DEFUSR=&HA000:POKE &HA100,2 '░
W
W Позиция символа
20 FOR I=0 TO 14:READ R$:POKE &HA000+I,VAL("&h"+R$):NEXT
30 Z=USR(0)
40 DATA CD,B4,00       :'  CALL  00B4h
50 DATA 3A,00,A1       :'  LD    A,(A100h)
60 DATA 4F             :'  LD    C,A
70 DATA 06,00          :'  LD    B,0
80 DATA 09             :'  ADD   HL,BC
90 DATA 7E             :'  LD    A,(HL)
100 DATA CD,A2,00      :'  CALL  00A2h
110 DATA C9            :'  RET