home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 123
/
123.d81
/
star
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
1KB
|
44 lines
1 dv=peek(186):ifdv<8thendv=8
2 ifdv>9thengosub200:dv=8
5 poke32767,13
10 poke53281,0:poke53280,0:print"[147][159]":gosub100
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,64:poke253,96
18 poke53280,0:sys51456:sys51459
20 sys57812"sid player",dv,0:poke780,0:poke781,0:poke782,192:sys65493
30 sys57812"font",dv,0:poke780,0:poke781,0:poke782,100:sys65493
40 sys57812"music",dv,0:poke780,0:poke781,0:poke782,108:sys65493:poke198,0
50 poke157,0:load"presenter",dv
100 print"[129] [196][213][197][204] [207][198] [212][200][197]
110 [153]" chr$(NULL)(NULL)peekatn(NULL) lenleft$val(NULL)(NULL)(NULL)val(NULL)
130 print"[155] [208]icture by [215]alt [200]arned
150 [153]" (NULL)he music is 'chr$rand (NULL)arch'
152 print" from the opera, '[193]ida'
160 [153]" by chr$uiseppe (NULL)erdi
170 print" [212]ranscribed by [196]ave [205]arquis
190 [142]
200 [153]"loadlenhanging device number to 8..."
201 [159]15,dv,15,"cp":[132]15,a:[139]a[178]2[167][152]15,"s-8":[129]i[178]1[164]500:[130]
202 [139]a[178]2[167][160]15:[142]
205 [160]15:[159]15,8,15:[160]15:[139]st[167][141]500:[142]
210 [159]15,8,15:[152]15,"m-w:"[199](119)[199](0)[199](2)[199](13[170]32)[199](13[170]64)
220 [141]600:[160]15
221 [159]15,8,15:[160]15:[139]st[167]230
224 [159]15,8,15:[152]15,"u0>"[170][199](13):[141]600:[160]15
230 [159]15,dv,15:[152]15,"m-w:"[199](119)[199](0)[199](2)[199](08[170]32)[199](08[170]64)
240 [141]600:[160]15
241 [159]15,dv,15:[160]15:[139]st[167]250
244 [159]15,dv,15:[152]15,"u0>"[170][199](8):[141]600:[160]15
250 [159]15,13,15:[152]15,"m-w:"[199](119)[199](0)[199](2)[199](dv[170]32)[199](dv[170]64)
260 [141]600:[160]15
261 [159]15,13,15:[160]15:[139]st[167]270
264 [159]15,13,15:[152]15,"u0>"[170][199](dv):[141]600:[160]15
270 [142]
500 [159]15,dv,15:[152]15,"m-w:"[199](119)[199](0)[199](2)[199](08[170]32)[199](08[170]64)
510 [141]600:[160]15
520 [159]15,dv,15:[160]15:[139]st[167]540
530 [159]15,dv,15:[152]15,"u0>"[170][199](8):[141]600:[160]15
600 [129]i[178]1[164]700:[130]:[142]
10000 [159]15,8,15,"s0:star":[160]15:[148]"star",8:[128]