home *** CD-ROM | disk | FTP | other *** search
- 10 REM FREQUENCY PLOTTING ROUTINE
- 20 DATA 1.8,2, 3.5,4, 7,7.5
- 30 DATA 10,10.5,14,14.5,18,18.5
- 40 DATA 21,21.5,24,24.5
- 50 DATA 28,28.5,28.5,29,29,29.5,29.5,30
- 60 DATA 50,50.5
- 70 I = 9 : REM 9 BANDS
- 80 LPRINT "BAND"," LOW OSC",," HIGH OSC"
- 90 FOR X = 1 TO 13
- 100 READ F1,F2
- 110 LPRINT F1, F1-I,F2-I,F1+I,F2+I
- 120 NEXT
- INT "BAND"," LOW OSC",," HIGH OSC"
- 9 FOR X = 1 TO 13
- 100 READ F1,F2
- 110 LPRINT F1, F1-I,F2-I,F1+I,F2+I
- 120 NEXT
- INT "BAND"," LOW OSC",," HIGH OSC"
- 9