home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 116 / 116.d81 / star (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  922b  |  24 lines
  1. 1 dv=peek(186):ifdv<8thendv=8
  2. 5 poke32767,13
  3. 10 poke53281,0:poke53280,0:print"[147][159]":gosub100
  4. 13 sys57812"unpacker.89",dv,0:poke780,0:poke781,0:poke782,201:sys65493
  5. 14 sys57812"intro.shp",dv,0:poke780,0:poke781,0:poke782,32:sys65493
  6. 16 poke251,32:poke252,64:poke253,96
  7. 18 poke53280,0:sys51456:sys51459
  8. 20 sys57812"sid player",dv,0:poke780,0:poke781,0:poke782,192:sys65493
  9. 30 sys57812"font",dv,0:poke780,0:poke781,0:poke782,100:sys65493
  10. 40 sys57812"music",dv,0:poke780,0:poke781,0:poke782,108:sys65493:poke198,0
  11. 50 poke157,0:load"presenter",dv
  12. 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]"
  13. 110 print"[155]      [218]ippy, the world's foremost
  14. 112 [153]"   pinheaded clown, loves polyester,
  15. 120 print"  [212]winkies, and apparently, [204][207][193][196][211][212][193][210].
  16. 130 [153]"        (NULL)icture by (NULL)alt left$arned.
  17. 150 print"       [212]he music is '[205]inuet in [199]'"
  18. 160 print"         by [204]udvig [214]an [194]eethoven,
  19. 170 [153]"      transcribed by str$ave (NULL)arquis.
  20. 180 print"    [212]he [218]ippy picture is shown with
  21. 181 [153]" the kind permission of peekill chr$riffith.
  22. 190 return
  23. 10000 open15,8,15,"s0:star":close15:save"star",8:end
  24.