home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 27
/
027.d81
/
star
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
1KB
|
53 lines
2 ma=52200:ifs=1goto5
3 dimnt(12,3):s=1:poke32775,0
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
12 ifs%=2thens%=3
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 gosub3000
600 wait198,1
602 sys51459:pokev+21,.:poke808,237
1000 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 poke318,0:rem set hide flag to zero
1220 load"hello connect",8
1240 end
2000 print"[147]"
2005 printspc(10)"[219][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][219]"
2006 printspc(10)"[179] [204] [207][160][193][160][196][160][211][160][212][160][193][160][210] [171]"
2007 printspc(10)"[219][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][219]"
2010 return
2998 rem *** music ***
3000 s=54272:n=1:fort=54272to54296:poket,0:next
3010 read nt(n,1),nt(n,2),nt(n,3)
3020 ifnt(n,1)=0 then 3050
3030 n=n+1:goto3010
3050 n=n-1:poke54296,15
3055 poke54277,73:poke54278,252:poke54275,5
3060 fort=1ton:ifpeek(198)<>0thent=500:goto3090
3070 poke54272,nt(t,1):poke54273,nt(t,2):poke54276,65
3080 fort2=1tont(t,3)*5:nextt2:poke54276,64
3090 nextt:poke54296,0:return
3100 data 99,56,40
3110 data 75,63,50
3120 data 60,50,50
3130 data 30,25,60
3140 data 162,37,225
3150 data 0,0,0