home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 18
/
018.d81
/
star
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
2KB
|
65 lines
2 ifs=1then5
3 poke49,255:poke50,47:clr:s=1:fl=0:load"romusic",8,1
4 rem star main disk
5 poke53269,.:ifs%>.then11
7 poke53281,.:poke53280,.:print"[147] [208][204][197][193][211][197][160][212][213][210][206][160][214][207][204][213][205][197][160][207][206]"
8 print" [201]f you have a [202]oystick,"
9 print" plug it into [195]ontrol [208]ort [212]wo."
11 t$="[204]aunching [208]review [211]how":ifs%=0thens%=1:load"loadstar.spr",8,1
12 f$="picture show":ifs%=1thens%=2:load"music",8,1
13 ifs%=2thens%=3:load"ce3k.m",8,1
14 poke51200,.
15 poke53281,1:poke53280,10
16 forx=1024to1034:reada:pokex,a:next
17 data169,228,141,8,3,169,167,141,9,3,96
18 sys1024 :rem __ wedge deactivator
20 fori=.to7:reads:poke2040+i,s:next
21 data192,193,194,195,196,197,194,198
30 v=53248:o=1:b=255:t=2:se=v+21:sc=v+39:yd=v+23
40 pokese,.:pokev+29,.:pokev+23,.:pokev+16,.:iffl=1thengosub62000
100 print"[147][142][144] [169] [223]
110 [153]" step toandandto (NULL)
120 print" [169] [183][184][146][162][162][184][183] [223]
130 [153]" step (NULL)right$ (NULL)
140 print" [169] [221][221] [223]
150 [153]" step /exp (NULL)
160 print" [152][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]
170 [153]:[139]fl[178]1[167][141]62000
180 c[178]10
190 [151]49569,.:[151]49570,112:[158]49152:[129]i[178]1[164]500:[130]:[139]fl[178]1[167][141]62000
300 [129]s[178].[164]7:[151]sc[170]s,c:[151]v[170]s[170]s,165:[151]v[170]s[170]s[170]o,114:[151]se,[194](se)[176]t[174]s
305 [135]x,c:[129]i[178]114[164]65[169][171](t[170]t):[151]v[170]s[170]s[170]o,i
306 [130]
310 [129]i[178]165[164]x[169][180](x[171]165)[172]t:[151]v[170]s[170]s,i:[130]:[151]sc[170]s,c:[151]53280,c
312 [130]
315 [131]74,2,101,8,127,7,152,5,180,3,206,14,230,6,255,4
320 [153]" press space bar to go"
330 [153]" straight to loadstar."
340 [153]"press any other key for a quick preview."
400 [153]" (NULL)tantantantantantantantantantantantantantantantanright$
410 print" [221] copyright 1985 [221]
420 [153]" mid$tantantantantantantantantantantantantantantantan(NULL)
425 ifpeek(788)<>49then425
440 poke198,0:wait198,1:getk$
445 ifk$=" "ork$="[160]"then62020
455 r=v+17:c=128:dimc(9):fori=.to9:readc(i):next:iffl=1thengosub62000
456 data15,12,11,0,0,11,12,15,1,1
460 pokev+32,0
465 iffl=1thengosub62000
600 pokev+21,.
1000 print"[147]";:pokev+33,.:pokev+31,.
1190 print"[147]"t$;
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)f$chr$(34)",8":print"run"
1230 poke 631,13:poke632,13:poke198,2
1240 end
62000 rem check for keypress
62010 ifpeek(198)=0then62050
62020 t$="[204]aunching [212]able of [195]ontents"
62030 f$="hello":fl=0
62040 goto456
62050 return