10 CLEAR 100,&HA000:AD=&HA000:DEFUSR=&HA000
30 READ A$:IF A$="z"THEN 80
50 POKE AD,VAL("&h"+A$):AD=AD+1:GOTO 30
80 A=USR(0):END
90 DATA CD,6F,00  :'  CALL  006Fh
100 DATA 21,08,01 :'  LD    HL,0108h
110 DATA 11,F8,07 :'  LD    DE,07F8h
120 DATA CD,4A,00 :'  CALL  004Ah �
W
W
Y
130 DATA 47       :'  LD    B,A      
V
140 DATA CB,38    :'  SRL   B        
V
150 DATA B0       :'  OR    B        
V
160 DATA CD,4D,00 :'  CALL  004Dh    
V
170 DATA 7D       :'  LD    A,L      
V
180 DATA BB       :'  CP    E        
V
190 DATA CA,1C,A0 :'  JP    Z,A01Ch
W
W
V
W
W
Y
200 DATA 23       :'  INC   HL       
V  
V
210 DATA C3,09,A0 :'  JP    A009  
W
W
W
[  
V
220 DATA 7A       :'  LD    A,D  �
W
W
W
W
W
W
[
230 DATA BC       :'  CP    H
240 DATA CA,25,A0 :'  JP    Z,A025h
W
W
Y
250 DATA 23       :'  INC   HL       
V
260 DATA C3,09,A0 :'  JP    A009h    
V
270 DATA C9       :'  RET         �
W
W
[
280 DATA "z"      :'  � � � � �