10 CLEAR 200,&HD000
20 POKE &HFECB,&HC3 ':\
30 POKE &HFECC,&H0  ': > JP  D000
40 POKE &HFECD,&HD0 ':/
 50 AD=&HD000
60 READ A$:IF A$="Z" THEN END
70 POKE AD,VAL("&H"+A$)
80 AD=AD+1:GOTO 60
90 DATA   3E,ED      :' LD   A,EDh   ; A:=EDh 
W
W
W�"�"
100 DATA  CD,A2,00   :' CALL 00A2    ;
110 DATA  3E,C9      :' LD   A,C9h   ; A:=C9h 
W
W
W�"�"
120 DATA  CD,A2,00   :' CALL 00A2    ;
130 DATA  3E,DB      :' LD   A,DBh   ; A:=DBh 
W
W
W�"�"
140 DATA  CD,A2,00   :' CALL 00A2    ;
150 DATA  3E,C1      :' LD   A,C1h   ; A:=C1h 
W
W
W�"�"
160 DATA  CD,A2,00   :' CALL 00A2    ;
170 DATA  C9         :' RET          ;
180 DATA  "Z"        :' � � � � �    ;