10 CLEAR 200,&HD000:DEFUSR=&HD000
20 DATA 3E,C3         :'LD  A,C3h
30 DATA 01,A1,56      :'LD  BC,56A1h
40 DATA 32,10,D0      :'LD  (D010h),A
50 DATA ED,43,11,D0   :'LD  (D011h),BC
60 DATA C9,"RET"      :'RET
80 READ A$
90 IF A$="RET" THEN 120
100 POKE &HD000+T,VAL("&h"+A$)
110 T=T+1:GOTO 80
120 A=USR(A)
130 PRINT "A=";HEX$(PEEK(&HD010))
140 PRINT "BC=";HEX$(PEEK(&HD012));HEX$(PEEK(&HD011))