0 POKE53280,6:POKE53281,6
1 IFXTHEN5
2 PRINT"[147][208]LEASE WAIT WHILE LOADING..."
3 DV=PEEK(186):IFDV<8THENPOKE186,8:GOTO3
5 IFX=0THENX=1:LOAD"COPYMEM.O",DV,1
6 IFX=1THENX=2:LOAD"BLOAD.O",DV,1
7 BL=828:HGR=51459:CM=14200:
8 REM SYSBL,16384,"TRAIL WEST.PIC":
9 SYS57812"TRAIL WEST.PIC",DV,0:POKE780,0:POKE781,0:POKE782,64:SYS65493
10 POKE249,224:POKE250,204
20 POKE251,0:POKE252,64
30 POKE253,0:POKE254,0:PRINT"[147]"
35 POKE53281,0
36 SYS CM,24576-8192,57344,8000
37 SYS CM,32576-8192,52224,1000
38 SYS CM,33576-8192,55296,1000
50 POKE53281,PEEK(34576-8192)
60 POKE53280,6:POKE56576,0:POKE53272,56:POKE53265,PEEK(53265)OR32
61 POKE53270,PEEK(53270)OR16
65 FORD=1TO 3000:NEXT
70 F$="TRAIL WEST"
80 A$="LOADF$,DV:"+CHR$(0)
83 FORI=1TOLEN(A$):POKE511+I,ASC(MID$(A$,I)) :NEXT
84 POKE781,255:POKE782,1
85 POKE631,19:POKE632,ASC("R"):POKE633,ASC("U"):POKE634,ASC("N")
86 POKE635,ASC(":"):POKE636,13:POKE198,6
87 SYS42118
9999 END
10000 D=PEEK(186):N$="B.TRAIL":OPEN15,D,15,"S0:"+N$:CLOSE15:SAVEN$,D:END