10 CLEAR 200,&HF000:DEFUSR=&HF000
30 DATA 11,03,00         :'LD   DE,0003h
40 DATA 21,02,00         :'LD   HL,0002h
50 DATA CD,3F,38         :'CALL 383Fh
60 DATA 21,F6,F7         :'LD   HL,F7F6h
70 DATA 11,00,F2         :'LD   DE,F200h
80 DATA 01,10,00         :'LD   BC,10h
90 DATA ED,B0            :'LDIR
130 DATA C9              :'RET
140 FOR T=0 TO 19:READ Z$:POKE &HF000+T,VAL("&h"+Z$):NEXT
150 X=USR(X)
160 FOR T=0 TO 15:PRINT HEX$(PEEK(&HF200+T));" ";:NEXT