home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disk User Volume 3 #2 / Commodore_Disk_User_Vol.3_2_1989_-.d64 / demo2 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  513b  |  23 lines
  1. 5 print"[147]french accordion music"
  2. 6 print"this uses a sawtooth on three voices"
  3. 7 print"with a small frequency difference"
  4. 10 (NULL)
  5. 20 (NULL) 15
  6. 30 (NULL) 1,141,9
  7. 40 (NULL) 2,141,9
  8. 45 (NULL) 3,141,9
  9. 50 forn=1to14
  10. 60 read fq,du
  11. 70 (NULL) 1,fq:(NULL) 2,fq-30:(NULL) 3,fq+30
  12. 80 (NULL) 1,33:(NULL) 2,33:(NULL) 3,33
  13. 90 ford=1to200*du:next:rem duration
  14. 100 (NULL) 1,32:(NULL) 2,32:(NULL) 3,32
  15. 110 nextn
  16. 115 print"press a key"
  17. 120 poke198,0:wait198,1:poke198,0
  18. 125 print"[145]             "
  19. 130 run10
  20. 200 data4817,2,6069,2,10207,2,9634,12
  21. 210 data4817,2,6430,2,10207,2,9634,10
  22. 220 data7647,2,8583,3,5103,1,4817,1,4291,1,4817,4
  23.