home *** CD-ROM | disk | FTP | other *** search
/ Run Magazine ReRun: Greatest Hits / rerun-greatest-hits-vol-i.d64 / songfest (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  952b  |  27 lines
  1. 10 print"[147]instructions on screen or printer (s,p)?";
  2. 20 geta$:d=-3*(a$="s")-4*(a$="p"):ifd=0then20
  3. 30 opend,d
  4. 40 print#d,"songfest lets you create songs, save
  5. 50 [152]d,"them to disk and play them back. you
  6. 60 print#d,"also have the option of using the
  7. 70 [152]d,"keyboard as a musical instrument.
  8. 80 print#d,"songfest offers options such as letting
  9. 90 [152]d,"you select from one to three voices
  10. 100 print#d,"and permits modifying the waveform
  11. 110 [152]d,"to achieve triangle, sawtooth and
  12. 120 print#d,"pulse sounds. because the program is
  13. 130 [152]d,"menu driven, you simply make selections
  14. 140 print#d,"from the on-screen menus in order to
  15. 150 [152]d,"create the songs and sounds.
  16. 160 print#d,""
  17. 170 close d
  18. 180 print"to run songfest, just press any key
  19. 190 [153]"now. when the program finishes loading
  20. 200 print"it will automatically run."
  21. 210 geta$:ifa$="" then 210
  22. 211 print"[147]":poke53281,6:poke53280,14:poke646,14
  23. 220 print"load"chr$(34)"songfest"chr$(34)",8[145][145][145]"
  24. 230 a$="run"+chr$(13)
  25. 240 poke631,13:forb=1tolen(a$):poke631+b,asc(mid$(a$,b,1)):next:poke198,10
  26. 250 new
  27.