home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-scene-files / Coverdisks / CDU / V3D02.D64 / demo2 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  513 b   |  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.