0 POKE 53280,5:POKE 53281,5:IF FL=0 THEN FL=1:LOAD"LOAD",8,1
1 IF FL=1 THEN FL=2:DF=PEEK(53272):LOAD"MAZE",8,1
120 CR=4*4096+1023:POKE 53280,6:POKE 53281,1
121 SN=(4*4096)-1:POKE 53265,PEEK(53265)AND 239
123 FOR T=1 TO 1024
124 POKE 1023+T,PEEK(SN+T)
125 NEXT T
130 FOR T=1 TO 1024
131 POKE 55295+T,PEEK(CR+T)
133 NEXT T
150 POKE 53272,PEEK(53272)OR 8
151 POKE 53265,PEEK(53265)OR32
152 POKE 53270,216:POKE 53265,PEEK(53265)OR16
200 GET A$:IF A$="" THEN 200
202 IF A$="1" THEN GOSUB4000:GOTO 1000
203 IF A$="2" THEN GOSUB4000:GOTO 2000
204 IF A$="3" THEN GOSUB4000:GOTO 3000
210 GOTO 200
1000 PRINT"[147]":PRINT"[144]";TAB(10)"LOADING....PLEASE WAIT!"
1001 FOR T=1 TO 1000:NEXT T:SYS 49152
2000 POKE 646,5:PRINT"[147]LOAD";CHR$(34)"DIRECT";CHR$(34);",8,1"
2001 PRINT"RUN"
2005 POKE 646,0
2006 PRINT:PRINT:PRINT:PRINT:PRINTTAB(10)"LOADING INSTRUCTIONS"
2010 PRINT"":POKE 631,13:POKE 632,13:POKE 633,13:POKE 198,3:END
3000 PRINT:PRINT"[147]":PRINT:PRINT:PRINT:PRINTTAB(14)"  PLEASE  "
3001 PRINTTAB(14)"  INSERT  "
3002 PRINTTAB(14)" LOADSTAR "
3003 PRINTTAB(14)"   SIDE 1 "
3004 PRINTTAB(14)"   THEN   "
3005 PRINTTAB(14)"  PRESS   "
3006 PRINTTAB(14)"  RETURN  "
3007 GET A$:IF A$<>CHR$(13) THEN 3007
3008 PRINT:PRINTTAB(9)"RETURNING TO LOADSTAR"
3012 LOAD"!",8,1
4000 POKE 53265,PEEK(53265)AND 223
4001 POKE 53270,PEEK(53270)AND 239
4002 POKE 53272,PEEK(53272)AND 247
4003 RETURN