1 CLEAR 200,&HBFF4:BLOAD"QUICKIE.BIN":FOR I=&HBFF4 TO &HBFFF:READ A$:POKE I,VAL("&H"+A$):NEXT:DEF USR=&HBFF4:I=USR(0):DATA 21,23,D6,11,23,E6,01,24,16,ED,B8,C9