10 CLEAR 5,&HB2F3
20 BLOAD"INIT.BIN",R
30 BLOAD"EXEC.BIN":FOR I=&HB2F4 TO &HB2FF:READ A$:POKE I,VAL("&H"+A$):NEXT:DEF USR=&HB2F4:I=USR(0):DEF USR=&HC300:I=USR(0):DATA 21,3F,D9,11,3F,E9,01,40,26,ED,B8,C9