10 CLEAR 5,&HA3F3
20 '
30 BLOAD"TITLE.BIN",R
40 BLOAD"DATA.BIN",R
50 BLOAD"PR1.BIN",-&H1000
60 BLOAD"PR2.BIN",-&H2000
70 BLOAD"PR3.BIN":FOR I=&HA3F4 TO &HA3FF:READ A$:POKE I,VAL("&H"+A$):NEXT:DEF USR=&HA3F4:I=USR(0):DEF USR=&HC400:I=USR(0):DATA 21,F7,BD,11,F7,ED,01,F8,19,ED,B8,C9