home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 99 / 099.d81 / star (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  2KB  |  34 lines
  1. 10 poke53281,0:poke53280,0:printchr$(142)"":gosub100
  2. 20 sys57812"sid player",8,0:poke780,0:poke781,0:poke782,192:sys65493
  3. 30 sys57812"font",8,0:poke780,0:poke781,0:poke782,100:sys65493
  4. 40 sys57812"music",8,0:poke780,0:poke781,0:poke782,108:sys65493:poke198,0
  5. 50 poke157,0:load"presenter",8
  6. 100 print"[147][156]                                         [176][192][192][192][192][192][192][192]";
  7. 110 print"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]  [221][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]";
  8. 120 print"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174][156][221]  [221][221] [158].  .               ";
  9. 130 print"   [156]       .   [221][156][221]  [221][221]         [209]      .    ";
  10. 140 print" [158].           [221][156][221]  [221][221]  [156].         [159].[156]          ";
  11. 150 print"     [159].[156]     [221][156][221]  [221][221]      [158].            [221]   [156]. ";
  12. 160 print"      [159][209][156]  [221][156][221]  [221][221]         .         [154][221]        ";
  13. 170 print"      [221][156][221]  [221][221]   .          .  [192][154][192][219][154][192][192]         ";
  14. 180 print"   [221][156][221]  [221][221]                   [154][221]     [158].[154]  .  [159]. ";
  15. 190 print" [221][156][221]  [221][221].     +    [158].       [221] .            [221][156][221]";
  16. 200 print"  [221][221][164][154][164][159][164][158][164][150][164][129][164][164][158][176][174][164][154][164][159][164][153][164][158][164][176][174][164][156][164][158][176][174][154][164][159][164][153][164][158][164][150][164]";
  17. 210 print"[129][164][164][156][164][164][154][164][159][164][153][164][158][164][164][221][156][221]  [221][221][156][192][192][154][192][153][192][158][192][150][192][129][192][158][221][221][176][192][178][192][178][189][171]";
  18. 220 print"[192][178][189][173][178][192][178][192][174][192][156][192][192][154][192][159][192][153][192][158][192][150][192][192][221][156][221]  [221][221][192][156][192][192][159][192][153][192][158][192][150][192]";
  19. 230 print"[146][221][171][179][221][171][189][221][221][221][173][219][179][171][219][189][221][221][221][156][192][192][154][192][159][192][153][192][158][192][150][192][129][192][192][146][221][156][221]  [221][221][156][192]";
  20. 240 print"[192][154][192][153][192][158][192][150][192][129][192][221] [221][221][221][221][221][221][171][174][221][221][221][221][221][221][171][189][192][156][192][192][154][192][159][192][153][192][158][192][150][192][192][221][156][221]";
  21. 250 print"  [221][221][163][154][163][159][163][158][163][150][163][129][163][163][173][192][177][192][177][192][177][192][177][192][189][173][189][173][192][177][189][150][163][129][163][163][156][163][163][154][163][159][163][153]";
  22. 260 print"[163][158][163][163][221][156][221]  [221][221]+   .  .      .            +     ";
  23. 270 print" [221][156][221]  [221][221]          [158].    [159].      [156].        [159].[156] ";
  24. 280 print" [221][156][221]  [221][221]  [158].  . .          .               [221]";
  25. 290 print"[156][221]  [221][221]         .          [159]      [158].     . [221][156][221]  ";
  26. 300 print"[221][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][156][221]  [173][192][192][192][192][192][192][192]";
  27. 310 print"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]     [159]#99[156]          ";
  28. 320 print"   [159](c)1992 softdisk[156]  [151]                          ";
  29. 330 print"                                                  ";
  30. 340 print"     ";
  31. 350 poke53280,0:poke53281,00:poke2023,032:poke56295,0
  32. 360 poke53282,01:poke53283,02:poke53284,03
  33. 370 return
  34.