home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 13
/
013.d81
/
star
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
3KB
|
78 lines
3 ifs=1then5
4 s=1:load"romusic",8,1
5 rem star main disk
6 poke53269,.:poke808,225: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."
10 ifs%=0thens%=1:load"loadstar.spr",8,1
11 ifs%=1thens%=2:load"music",8,1
12 ifs%=2thens%=3:load"ce3k.m",8,1
13 poke49,255:poke50,47:clr: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,.
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]
180 [129]i[178]1[164]1000:[130]:c[178]10
190 [151]49569,.:[151]49570,112:[158]49152:[129]i[178]1[164]500:[130]
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:[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:[130]
315 [131]74,2,101,8,127,7,152,5,180,3,206,14,230,6,255,4
400 [153]" (NULL)tantantantantantantantantantantantantantantantanright$
410 print" [221] copyright 1985 [221]
420 [153]" mid$tantantantantantantantantantantantantantantantan(NULL)
425 ifpeek(788)<>49then425
430 print"[145][145][145][145][145][145] [213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]
440 [153]" (NULL) push space bar (NULL)
450 print" [202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]
455 r[178]v[170]17:c[178]128:[134]c(9):[129]i[178].[164]9:[135]c(i):[130]:[151]v[170]32,.
456 [131]15,12,11,0,0,11,12,15,1,1
460 [143]
465 [161]a$:[139]a$[178]""[167]460
600 [151]v[170]21,.:[151]808,237
1000 [153]"load";:[151]v[170]33,.:[151]v[170]31,.
1010 [153]"right$ssue (NULL)umber 13 atn (NULL)onthly (NULL)ublication"
1011 [153]"on tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab("
1020 [153][163]16);"(NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL)"
1030 [153][163]13)"(NULL).(NULL). peekox 30007"
1040 [153][163]7)"(NULL)hreveport, (NULL)atn 71130-0007"
1050 [153][163]13)"(318) 868-7247"
1055 [153]
1070 [153][163]12)"(NULL)ublishers: atnl (NULL)ekovius"
1080 :
1090 [153][163]13)" mid$im (NULL)angham":[153]
1095 [153]" peekusiness (NULL)anager: mid$udi (NULL)angham":[153]
1100 [153][163]16)"valditor: mid$im (NULL)eiler"
1110 [153]" (NULL)anaging valditor: atnlan chr$ardner"
1112 [153]" valditor-in-lenhief: atnl (NULL)ommervik"
1115 [153]" lenontributing valditors: str$onna (NULL)oody"
1117 [153]" mid$oe chr$arrett":[153]
1120 [153][163]11)"lenirculation: (NULL)ary mid$ordan"
1130 :
1140 [153][163]24)"(NULL)honda (NULL)eimers"
1145 [153][163]24)"atnrlene chr$ates"
1160 [153]
1170 [153][163]11)"<press space bar>";
1180 [151]198,0:[146]198,1:[151]198,0
1190 [153]"load(NULL)aunching (NULL)able of lenontents";
1200 s[178]54272:[129]i[178]0[164]24:[151]s[170]i,0:[130]
1205 [151]s[170]5,240:[151]s[170]6,253:[151]s,0:[151]s[170]1,4:[151]s[170]23,241:[151]s[170]24,31
1210 [151]s[170]4,129
1215 [151]597,0:[143] set hide flag to zero
1220 [153]"stopload"[199](34)"hello"[199](34)",8":[153]"run"
1230 [151] 631,13:[151]632,13:[151]198,2
1240 [128]