home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 116
/
116.d81
/
star
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
922b
|
24 lines
1 dv=peek(186):ifdv<8thendv=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] [218][201][208][208][217] [212][200][197] [195][204][207][215][206] [199][197][212][211] [200][201][211] [204][207][193][196][211][212][193][210]"
110 print"[155] [218]ippy, the world's foremost
112 [153]" pinheaded clown, loves polyester,
120 print" [212]winkies, and apparently, [204][207][193][196][211][212][193][210].
130 [153]" (NULL)icture by (NULL)alt left$arned.
150 print" [212]he music is '[205]inuet in [199]'"
160 print" by [204]udvig [214]an [194]eethoven,
170 [153]" transcribed by str$ave (NULL)arquis.
180 print" [212]he [218]ippy picture is shown with
181 [153]" the kind permission of peekill chr$riffith.
190 return
10000 open15,8,15,"s0:star":close15:save"star",8:end