Google
 

Trailing-Edge - PDP-10 Archives - decuslib10-04 - 43,50353/lan.bas
There is 1 other file named lan.bas in the archive. Click here to see a list.
00010  '  LAN.BAS        DUANE MOORE        D I G I T A L
00020  '  USED TO DISPATCH TO ALL LAN PROGRAMS.
00030  '  OTHER PROGRAMS CHAIN TO THIS WITH AN ENTRY
00040  '  AT LOCATION 200.
00050  '
00060 PRINT "LINEAR ACTIVE NETWORK ANALYSIS PROGRAM *LAN*"
00070 PRINT
00080 PRINT "TYPE H FOR HELP."
00090 PRINT
00100 
00110 
00120 
00130 
00140 
00150 
00160 
00170 
00180 
00190 
00200 PRINT "OPTION";
00210 INPUT A$
00220 IF A$="LGT" GOTO 530
00230 IF A$="LGTV" GOTO 540
00240 IF A$="LGF" GOTO 550
00250 IF A$="LGFV" GOTO 560
00260 IF A$="LYT" GOTO 570
00270 IF A$="LYF" GOTO 580
00280 IF A$="PGT" GOTO 590
00290 IF A$="PGTV" GOTO 600
00300 IF A$="PGF" GOTO 610
00310 IF A$="PGFV" GOTO 620
00320 IF A$="PGFX" GOTO 630
00330 IF A$="PGTX" GOTO 640
00340 IF A$="PYT" GOTO 650
00350 IF A$="PYTX" GOTO 660
00360 IF A$="PYF" GOTO 670
00370 IF A$="PYFX" GOTO 680
00380 IF A$="SYS" GOTO 1170
00390 IF A$="EXIT" GOTO 1170
00400 IF A$="CONFIG" GOTO 760
00410 IF A$="YPARAM" GOTO 770
00420 IF A$="FREQ" GOTO 750
00430 IF A$="GAIN" GOTO 780
00440 IF A$="TITLE" GOTO 710
00450 IF A$="RUN" GOTO 690
00460 IF A$="RUN1" GOTO 700
00470 IF A$="RUN2" GOTO 770
00480 IF A$="VTERM" GOTO 740
00490 IF A$="RLCTERM" GOTO 720
00500 IF A$="TERM" GOTO 730
00510 IF A$="H" GOTO 790
00520 GOTO 80
00530 CHAIN LAN4
00540 CHAIN LAN11
00550 CHAIN LAN6
00560 CHAIN LAN15
00570 CHAIN LAN13
00580 CHAIN LAN12
00590 CHAIN LAN3
00600 CHAIN LAN8
00610 CHAIN LAN7
00620 CHAIN LAN14
00630 CHAIN LAN9
00640 CHAIN LAN18
00650 CHAIN LAN17
00660 CHAIN LAN16
00670 CHAIN LAN5
00680 CHAIN LAN10
00690 CHAIN FREQ,100
00700 CHAIN LAN0,100
00710 CHAIN TITLE
00720 CHAIN TERM
00730 CHAIN TERM1
00740 CHAIN TERM2
00750 CHAIN FREQ
00760 CHAIN LAN0
00770 CHAIN LAN1,100
00780 CHAIN LAN2
00790 PRINT
00800 PRINT "OPTION","DESCRIPTION"
00810 PRINT
00820 PRINT "TERM","SPECIFY N SETS OF RESISTIVE TERMINATIONS"
00830 PRINT "RLCTERM","SPECIFY N SETS OF R L C TERMINATIONS"
00840 PRINT "VTERM","SPECIFY SETS OF TERMINATIONS WITH"
00850 PRINT,"A VARYING ELEMENT"
00860 PRINT
00870 PRINT "FREQ","SPECIFY FREQUENCY SWEEP"
00880 PRINT
00890 PRINT "TITLE","PROVIDE TITLING INFORMATION"
00900 PRINT
00910 PRINT "CONFIG","SPECIFY NETWORK CONFIGURATION"
00920 PRINT "YPARAM","CALCULATE YPARAMETERS OF NETWORK USING"
00930 PRINT ,"PRESENT CONFIGURATION"
00940 PRINT "GAIN","CALCULATE NETWORK GAINS USING THE"
00950 PRINT ,"PRESENT Y-PARAMETERS"
00960 PRINT
00970 PRINT "RUN","DO 'FREQ','CONFIG','YPARAM', AND 'GAIN' COMMANDS"
00980 PRINT "RUN1","DO 'CONFIG','YPARAM', AND 'GAIN' COMMANDS"
00990 PRINT "RUN2","DO 'YPARAM', AND 'GAIN' COMMANDS"
01000 PRINT
01010 PRINT "$%& OR $%&#","WHERE:"
01020 PRINT ,"  $ IS L FOR A LISTING"
01030 PRINT ,"       P FOR A PLOT"
01040 PRINT ,"  % IS G FOR GAIN"
01050 PRINT ,"       Y FOR Y-PARAMETER"
01060 PRINT ,"  & IS T FOR ON TTY"
01070 PRINT ,"       F FOR IN A FILE"
01080 PRINT ,"  # IS X FOR XY PLOT (IF USED)"
01090 PRINT ,"       V FOR VS LOAD (IF USED)"
01100 PRINT
01110 PRINT ,"FOR EXAMPLE:"
01120 PRINT ,"LGT MEANS 'LIST GAIN DATA ON THE TTY'"
01130 PRINT ,"PYFX MEANS 'PLOT Y-PARAMETERS IN A FILE"
01140 PRINT ,"           IN AN XY GRAPH'"
01150 PRINT
01160 GOTO 200
01170 END