Trailing-Edge
-
PDP-10 Archives
-
decuslib20-03
-
decus/20-0087/freq.bas
There is 1 other file named freq.bas in the archive. Click here to see a list.
00010 ' FREQ.BAS DUANE MOORE D I G I T A L
00020 ' CREATES FREQUENCY PARAMETER FILE, *FREQ.LAN*.
00030 '
00040 ' 1-2-75
00050 '
00060 '
00070 '
00080 LET C9=0
00090 GOTO 110
00100 LET C9=1
00110 FILES FREQ.LAN
00120 SCRATCH #1
00130 PRINT "FREQUENCY SWEEP PARAMETER FILE GENERATOR"
00140 PRINT
00150 PRINT "TYPE H FOR HELP"
00160 PRINT "*";
00170 INPUT A$
00180 IF A$="H" GOTO 420
00190 PRINT #1,A$
00200 IF A$="STD" GOTO 550
00210 IF A$="ONE" GOTO 520
00220 PRINT "LOWEST FREQUENCY (HZ)";
00230 INPUT F0
00240 IF A$="LIN" GOTO 260
00250 IF F0=0 GOTO 220
00260 IF F0<0 GOTO 220
00270 PRINT #1,F0
00280 PRINT "HIGHEST FREQUENCY (HZ)";
00290 INPUT F1
00300 IF F1<F0 GOTO 280
00310 PRINT #1,F1
00320 IF A$="OCT" GOTO 550
00330 IF A$="MOD" GOTO 550
00340 IF A$="LOG " GOTO 400
00350 PRINT "DELTA F(HZ)";
00360 INPUT F2
00370 IF F2<=0 GOTO 350
00380 PRINT #1,F2
00390 GOTO 550
00400 PRINT "NUMBER OF STEPS PER DECADE";
00410 GOTO 360
00420 PRINT "FREQUENCY SWEEP"
00430 PRINT "COMMAND","DESCRIPTION"
00440 PRINT "LIN","LINEAR"
00450 PRINT "LOG","LOGARITHMIC"
00460 PRINT "MOD","MODIFIED LOGARITHMIC"
00470 PRINT "OCT","OCTAVE"
00480 PRINT "ONE","ONE FREQUENCY"
00490 PRINT "STD","STANDARD 1KHZ FREQUENCY"
00500 PRINT
00510 GOTO 160
00520 PRINT "FREQUENCY OF OPERATION (HZ)";
00530 INPUT F0
00540 PRINT #1,F0
00550 IF C9=0 GOTO 570
00560 CHAIN LAN0,100
00570 CHAIN LAN,200
00580 END