10 CLEAR 200,&H9D74
20 BLOAD"THESEUS.BIN":POKE &HFD9F,&HC9
30 FOR I=&H9D74 TO &H9D7F:READ A$:POKE I,VAL("&H"+A$):NEXT
40 DEF USR=&H9D74:I=USR(0)
50 DEF USR=&HAD80:I=USR(0)
60 DATA 21,30,DC,11,30,EC,01,B1,3E,ED,B8,C9