home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 25
/
025.d81
/
star
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
1KB
|
40 lines
1 ifw=0thenw=1:load"magic",8,1
2 ifs=1then5
3 s=1
4 rem star main disk
5 ifs%>.then11
6 poke53281,0:poke53280,0:gosub2000
7 print""spc(9)"[208][148][204][197][193][211][197][160][212][213][210][206][160][214][207][204][213][205][197][160][207][206]"
8 printchr$(8)" [201]f you have a [202]oystick,"
9 print" plug it into [195]ontrol [208]ort [212]wo."
10 ifs%=0thens%=1:load"red.title.shp",8,1
11 ifs%=1thens%=2:load"joeplay",8,1
12 ifs%=2thens%=3:load"victory",8,1
13 ifs%=3thens%=4:load"unpacker",8,1
16 forx=1024to1034:reada:pokex+54272,0:pokex,a:next:sys1024
17 data169,228,141,8,3,169,167,141,9,3,96
20 :
22 :
190 :
200 poke249,224:poke250,204:poke251,0:poke252,64:poke253,0:poke254,0
205 sys51456:sys51459
210 poke251,0:poke252,160:sys49152
425 ifpeek(788)<>49andpeek(198)=0then425
600 ifpeek(198)=0thenwait198,1
602 sys49155:pokev+21,.:poke808,237
1000 sys51459:pokev+33,.:pokev+31,.
1190 print"[147] [204]aunching [212]able of [195]ontents...";
1200 s=54272:fori=0to24:pokes+i,0:next
1205 pokes+5,240:pokes+6,253:pokes,0:pokes+1,4:pokes+23,241:pokes+24,31
1210 pokes+4,129
1215 poke597,0:rem set hide flag to zero
1220 print"[144]load"chr$(34)"presenter"chr$(34)",8":print"sys32768"
1225 print"run"
1230 poke 631,13:poke632,13:poke633,13:poke198,3
1240 end
2000 print"[147]"
2005 printspc(10)"*******************"
2006 printspc(10)"* [204] [207][160][193][160][196][160][211][160][212][160][193][160][210] *"
2007 printspc(10)"*******************"
2010 return