home *** CD-ROM | disk | FTP | other *** search
- 1 PRINTCHR$(147)
- 2 PRINTTAB(10);"AF GENERATOR V1.0"
- 3 PRINTTAB(20);"BY"
- 4 PRINTTAB(10);"BILL HAMMOND 75546,202"
- 10 INPUT "F (HZ)";F
- 11 IF F>3995 THEN GOTO 10
- 20 PRINT "WAVEFORM:":PRINT:PRINT" (T)RIANGLE"
- 30 PRINT " (S)AWTOOTH"
- 40 PRINT " (P)ULSE"
- 50 PRINT " (N)OISE"
- 60 INPUT S$
- 70 IF S$="T" THEN LET W=17
- 80 IF S$="S" THEN LET W=33
- 90 IF S$="P" THEN LET W=65
- 100 IF S$="N" THEN LET W=129
- 110 FOR X=54272 TO 54296:POKE X,0:NEXT
- 111 POKE 54275,8
- 120 POKE 54296,15
- 130 POKE 54277,129
- 140 POKE 54278,129
- 150 F1=INT(F/.06097)
- 160 F2=INT(F1/256)
- 170 F3=F1-(256*F2)
- 180 POKE 54273,F2:POKE 54272,F3
- 190 POKE 54276,W
- 200 PRINT:PRINT "PRESS ANY KEY TO STOP TONE"
- 210 A$=""
- 220 GET A$:IF A$="" THEN GOTO 220
- 230 POKE 54296,0
- 240 INPUT "AGAIN";A$
- 250 IF A$="Y" THEN GOTO 10
- 260 END
-