10 CLEAR 200,&HA000:DEFUSR=&HA000:AD=&HA000
20 READ A$:IF A$="z" THEN 50
30 POKE AD,VAL("&h"+A$)
40 AD=AD+1:GOTO 20
50 FOR I=0 TO 4:INPUT A:POKE &HB000+I,A:NEXT
60 A=USR(0)
70 FOR I=0 TO 4:PRINT PEEK(&HC000+I):NEXT
80 END
90  DATA 0E,00     :'LD   C,00
100 DATA 11,00,C0  :'LD   DE,C000
110 DATA 21,00,B0  :'LD   HL,B000    �
W
W
W
W
Y
120 DATA 06,05     :'LD   B,05            
V
130 DATA 7E        :'LD   A,(HL) �
W
Y      
V
140 DATA B9        :'CP   C        
V      
V
150 DATA C2,11,A0  :'JP   NZ,A011  
V  
W
W
Y 
V
160 DATA 12        :'LD   (DE),A   
V    
V 
V
170 DATA 13        :'INC  DE       
V    
V 
V
180 DATA 23        :'INC  HL       
V �
W
W
[ 
V
190 DATA 10,F6     :'DJNZ A00A   
W
W
[      
V
200 DATA 79        :'LD   A,C             
V
210 DATA FE,FF     :'CP   FF              
V
220 DATA CA,1E,A0  :'JP   Z,A01E  
W
W
Y     
V
230 DATA 0C        :'INC  C         
V     
V
240 DATA C3,05,A0  :'JP   A005    
W
W
V
W
W
W
W
W
[
250 DATA C9,"z"    :'RET         �
W
W
[