home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Software / AF-GENERATOR (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  768b  |  33 lines
  1. 1 PRINTCHR$(147)
  2. 2 PRINTTAB(10);"AF GENERATOR V1.0"
  3. 3 PRINTTAB(20);"BY"
  4. 4 PRINTTAB(10);"BILL HAMMOND 75546,202"
  5. 10 INPUT "F (HZ)";F
  6. 11 IF F>3995 THEN GOTO 10
  7. 20 PRINT "WAVEFORM:":PRINT:PRINT"   (T)RIANGLE"
  8. 30 PRINT "   (S)AWTOOTH"
  9. 40 PRINT "   (P)ULSE"
  10. 50 PRINT "   (N)OISE"
  11. 60 INPUT S$
  12. 70 IF S$="T" THEN LET W=17
  13. 80 IF S$="S" THEN LET W=33
  14. 90 IF S$="P" THEN LET W=65
  15. 100 IF S$="N" THEN LET W=129
  16. 110 FOR X=54272 TO 54296:POKE X,0:NEXT
  17. 111 POKE 54275,8
  18. 120 POKE 54296,15
  19. 130 POKE 54277,129
  20. 140 POKE 54278,129
  21. 150 F1=INT(F/.06097)
  22. 160 F2=INT(F1/256)
  23. 170 F3=F1-(256*F2)
  24. 180 POKE 54273,F2:POKE 54272,F3
  25. 190 POKE 54276,W
  26. 200 PRINT:PRINT "PRESS ANY KEY TO STOP TONE"
  27. 210 A$=""
  28. 220 GET A$:IF A$="" THEN GOTO 220
  29. 230 POKE 54296,0
  30. 240 INPUT "AGAIN";A$
  31. 250 IF A$="Y" THEN GOTO 10
  32. 260 END
  33.