home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 235
/
235.d81
/
star
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
1KB
|
53 lines
1 dv=peek(186):ifdv<8thendv=8
5 poke32767,13:poke53371,0
6 poke65534,1:rem s-key on
10 poke53281,0:poke53280,0:print"[147][159]":ifpeek(653)=0thengosub100
11 tq=ti:poke198,0:ifpeek(653)=0thengosub1000:goto13
12 poke53280,11:poke53281,11:goto50
13 sys57812"unpacker.89",dv,0:poke780,0:poke781,0:poke782,201:sys65493
14 sys57812"intro.shp",dv,0:poke780,0:poke781,0:poke782,32:sys65493
16 poke251,32:poke252,224:poke253,204
18 poke53280,00:print"[147]":sys51456:sys51459
28 tq=ti+300::poke198,0:j=0:poke53370,0
30 ifpeek(v+1)<40orti>tqorpeek(198)>0then40
31 goto30
32 stop
40 poke198,0:pokev+21,0
50 rem
98 poke198,0
99 poke157,0:load"presenter",dv
100 print"[158][147] [215]elcome to [204][207][193][196][211][212][193][210] 235
105 [129]i[178]0[164]9:[135]b$(i):[130]
110 [151]214,1:[153]
120 [129]i[178]0[164]9:[153]
130 [153][163]20[171](([195](b$(i))[173]2)))b$(i)
140 [130]:[143]:print"":stop
150 [142]
300 [131]"
301 data" [212]he 2004 [195]= [196]ream [212]eam
302 [131]" listor
303 data" [193]drian, [202]eri, and [210]obin [205]ake [201]t [215]ork"
305 data"
306 [131]" list(NULL)he music is"
307 [131]" lenomedian's chr$allop
308 data" [155]by [196]mitri [203]abalevski
309 [131]" list(NULL)ranscribed by str$ave (NULL)arquis
310 data"
1000 [137]2000
1001 c0[178][194](151):c1[178][194](253)
1002 [158]57812"play",dv,0:[151]780,0:[151]781,0:[151]782,192:[158]65493
1003 [158]49155"welcome.vox",dv
1010 [151]151,0:[151]253,12
1020 [151]214,22:[153]"for":[135]a1$,b1$
1030 [153][163]19[171][195](a1$)[173]2)a1$
1040 [153][163]19[171][195](b1$)[173]2)b1$;
1050 [158]49152
1051 [151]151,c0:[151]253,c1
1055 [142]
1060 [131]"(NULL)elcome to (NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL)!"
1061 [131]"(NULL)his is str$ave (NULL)oorman"
2000 t[178]ti[170]240:[129]x[178][171]1[164]0:x[178]ti[179]t:[130]:[142]
9999 [128]
10000 dv[178][194](186):[159]15,dv,15,"s0:star":[160]15:[148]"star",dv:[128]
60000 [137]10000