10 CLEAR 200,&HD000:DEFUSR=&HD000
20 DATA 0E,C3         :'LD  C,C3h
30 DATA 79            :'LD  A,C
40 DATA 32,10,D0      :'LD  (D010h),A
50 DATA C9,"RET"      :'RET
70 READ A$:IF A$="RET" THEN 110
90 POKE &HD000+T,VAL("&h"+A$)
100 T=T+1:GOTO 70
110 A=USR(A)
120 PRINT "C=A= ";HEX$(PEEK(&HD010))