10 CLEAR 200,&HCFFF 20 A=&HD000 30 READ D$:IF D$="!" GOTO 100 40 POKE A,VAL("&H"+D$) 50 A=A+1:GOTO 30 100 DEF USR=&D000:T=USR(0) 110 PRINT HEX$(PEEK(&HD100)) 120 END 200 DATA AF 210 DATA 01,22,11 220 DATA 11,44,33 230 DATA 21,66,55 240 DATA DD,21,88,77 250 DATA FD,21,AA,99 260 DATA DD,7A 270 DATA 32,00,D1 280 DATA C9,!