home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Scene World 6
/
Scene_World_06_2003-02-15_POL__PSW_de_Side_B.d64
/
b.trail
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
850b
|
30 lines
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