home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-scene-files / Coverdisks / CDU / V3D02.D64 / demo1 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  485 b   |  25 lines
  1. 10 (null)
  2. 20 PRINT"[147]PULSE WIDTH SWEEP DEMONSTRATION"
  3. 21 PRINT"TRY SMALL STEP SIZES FOR BEST RESULTS"
  4. 23 PRINT"THIS USES THREE VOICES WITH A SLIGHT "
  5. 24 PRINT"PITCH DIFFERENCE BETWEEN THEM"
  6. 25 PRINT"HOLD SPACE BAR TO RESTART"
  7. 26 PRINT""
  8. 30 INPUT"STEP SIZE";SP
  9. 40 IFSP<1THEN:GOTO20
  10. 50 INPUT"FREQUENCY";FQ
  11. 60 IFFQ<300THEN:GOTO50
  12. 70 (null)15
  13. 80 FORI=1TO3:(null) I,9,240
  14. 90 (null) I,65
  15. 100 NEXTI
  16. 110 (null) 1,FQ:(null) 2,FQ+30:(null) 3,FQ-30
  17. 120 REM SWEEP PULSE WAVE
  18. 130 FOR I=1 TO 4096 STEP SP
  19. 140 FORV=1TO3
  20. 150 (null) V,I
  21. 160 NEXTV
  22. 170 GETA$:IFA$=CHR$(32)THENRUN
  23. 180 NEXTI
  24. 190 GOTO130
  25.