10 CLEAR 200,&H9000:SCREEN 1
20 DEFUSR=&H9000:AD=&H9000
30 READ A$:IF A$="z" THEN 70
40 POKE AD,VAL("&h"+A$):AD=AD+1:GOTO 30
70 A=USR(0):END
90  DATA C3,0B,90               :'   JP    900Bh  
W
W
W
W
Y
100 DATA FF,81,81,81,81,81,81,FF:'   � � � � � �      
V
110 DATA 01,08,00               :'   LD    BC,08 �
W
W
W
W
[
120 DATA 11,08,02               :'   LD    DE,0208h
130 DATA 21,03,90               :'   LD    HL,9003h
150 DATA CD,5C,00               :'   CALL  005Ch
190 DATA C9,"z"                 :'   RET