home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 113 / 113.d81 / star (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  2KB  |  46 lines
  1. 5 dv=peek(186):ifdv<8thendv=8
  2. 10 poke53281,0:poke53280,0:print"[147]":gosub400:gosub100
  3. 20 sys57812"sid player",dv,0:poke780,0:poke781,0:poke782,192:sys65493
  4. 30 sys57812"font",dv,0:poke780,0:poke781,0:poke782,100:sys65493
  5. 40 sys57812"music",dv,0:poke780,0:poke781,0:poke782,108:sys65493:poke198,0
  6. 50 poke157,0:load"presenter",dv
  7. 100 print"[147][146]   [176][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][174]"
  8. 102 print"   [221][154]: [152]                          [146]   [221]"
  9. 104 print"   [221]  [152] [151][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174][152] [146]   [221]"
  10. 106 print"   [221]  [152] [151][221][146][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][151][221][152] [146] [154][221] [221]"
  11. 108 print"   [221][156]. [152] [151][221][146][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][151][221][152] [154][146][192][159][219][154][192][221]"
  12. 110 print"   [221]  [152] [151][221][146][223][169][155][176][174][223][169][223][169][223][155][176][174][169][223][155][176][174][169][223][169][223][169][223][169][151][221][152] [146] [154][221] [221]"
  13. 112 print"   [221]  [152] [151][221][146][169][223][159][221][221][176][192][178][192][178][189][171][192][178][189][173][178][192][178][192][174][169][223][151][221][152] [146]   [221]"
  14. 114 print"   [221] [154].[152] [151][221][146][223][169][154][221][171][179][221][171][189][221][221][221][173][219][179][171][219][189][221][221][221][223][169][151][221][152] [153][146].  [221]"
  15. 116 print"   [221]  [152] [151][221][146][169][223][156][221][221][221][221][221][221][221][221][171][174][221][221][221][221][221][221][171][189][169][223][151][221][152] [146]   [221]"
  16. 118 print"   [221]  [152] [151][221][146][223][169][173][192][177][192][177][192][177][192][177][192][189][173][189][173][192][177][189][169][223][169][151][221][152] [146]   [221]"
  17. 120 print"   [221]  [152] [151][221][146][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][151][221][152] [146]  :[221]"
  18. 122 print"   [221]  [152] [151][221][146][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][151][221][152] [146] [154][221] [221]"
  19. 124 print"   [221]  [152] [151][221][146][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][151][221][152] [146]   [221]"
  20. 126 print"   [221]  [152] [151][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][152] [146]   [221]"
  21. 128 print"   [221]  [152]                          [146]  [156].[221]"
  22. 130 print"   [221]  [152][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]  [221]"
  23. 132 print"   [221][156].[152][181] [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] [146][161] [221]"
  24. 134 print"   [221] [152][165][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172] [175][167][146] [221]"
  25. 136 print"   [173][192][155] [191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][190][192] [146][192][189]"
  26. 138 print"     [155]  [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163] [192] "
  27. 140 print"       [146][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][190] [183] "
  28. 142 print"     [151][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]"
  29. 144 print
  30. 146 print"[129]    [193] [208]roduct of [211]oftdisk [208]ublishing"
  31. 148 print"";
  32. 350 poke53280,0:poke53281,00:poke2023,032:poke56295,0
  33. 360 poke53282,01:poke53283,02:poke53284,03
  34. 370 return
  35. 400 print"[159]        [212]iles [205]ake the [195]omputer
  36. 410 [153]"      (NULL)ext chr$raphic by (NULL)hil (NULL)ampson"
  37. 420 [153]"  peekackground music is 'right$ntermezzo' from
  38. 430 print"  '[195]avalleria [205]ascagni' by [208]ietro
  39. 440 [153]"  (NULL)ascagni (1863-1945).
  40. 450 print"  [212]he transcription into [211][201][196] format
  41. 460 [153]"  is by str$r. str$ave (NULL)arquis.
  42. 470 poke198,0
  43. 480 zz=zz+1:geta$:ifa$=""andzz<800then480
  44. 490 return
  45. 10000 open15,8,15,"s0:star":close15:save"star",8:end
  46.