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