1 POKE &HFD9F,&HC9:CLEAR 200,&HE6F3:FOR I=&HE6F3 TO &HE6FF:READ A$:POKE I,VAL("&H"+A$):NEXT:DEF USR=&HE6F3:I=USR(0):DATA 21,00,30,11,00,E7,01,80,0C,CD,59,00,C9