Trailing-Edge
-
PDP-10 Archives
-
decuslib20-03
-
decus/20-0087/lan15.bas
There is 1 other file named lan15.bas in the archive. Click here to see a list.
00010 ' LAN15
00020 ' DUANE MOORE D I G I T A L
00030 ' READS THE FILE GAIN.LAN AND SELECTED FUNCTIONS ARE LISTED
00040 ' IN A TABLE IN THE FILE 'TTABLE.LAN"
00050 ' USED FOR VARYING LOAD PARAMETER.
00060 '
00070 PRINT "OUTPUT FILE: TTABLE.LAN"
00080 PRINT
00090 DIM X(5),G(21)
00100 FILES GAIN.LAN,LAN.BAK,TTABLE.LAN
00110 SCRATCH #2,#3
00120 MARGIN #3,110
00130 LET S2=0
00140 GOTO 1420
00150 PRINT
00160 PRINT "TYPE H FOR HELP"
00170 PRINT "*";
00180 LET S1=0
00190 INPUT A$
00200 IF A$="SYS" GOTO 1720
00210 IF A$="DIS" GOTO 390
00220 IF A$="H" GOTO 550
00230 IF A$="EXIT" GOTO 1720
00240 IF A$="PLOT" GOTO 400
00250 IF A$="G" GOTO 410
00260 IF A$="AV" GOTO 430
00270 IF A$="ZIN" GOTO 450
00280 IF A$="AI" GOTO 470
00290 IF A$="ZOUT" GOTO 490
00300 IF A$="AVSL" GOTO 510
00310 IF A$="STA" GOTO 530
00320 IF A$="DB" GOTO 350
00330 IF A$="LIN" GOTO 370
00340 GOTO 160
00350 LET S2=1
00360 GOTO 170
00370 LET S2=0
00380 GOTO 170
00390 CHAIN LAN,200
00400 CHAIN LAN14
00410 LET P9=20
00420 GOTO 700
00430 LET P9=4
00440 GOTO 700
00450 LET P9=2
00460 GOTO 700
00470 LET P9=0
00480 GOTO 700
00490 LET P9=6
00500 GOTO 700
00510 LET P9=8
00520 GOTO 700
00530 LET P9=18
00540 GOTO 700
00550 PRINT
00560 PRINT "COMMAND","DESCRIPTION"
00570 PRINT "AV","VOLTAGE GAIN "
00580 PRINT "AI","CURRENT GAIN "
00590 PRINT "AVSL","VOLTAGE GAIN (TAKING INTO ACCOUNT SOURCE AND LOAD) "
00600 PRINT "ZIN","INPUT IMPEDANCE "
00610 PRINT "ZOUT","OUTPUT IMPEDANCE "
00620 PRINT "G","POWER GAIN"
00630 PRINT "STA","LINVILL AND STERN STABILITY FACTORS"
00640 PRINT "DB","MAGNITUDE IN DB"
00650 PRINT "LIN","MAGNITUDE IN UNITS"
00660 PRINT "YPARAM","Y PARAMETERS OF THE NETWORK"
00670 PRINT "EXIT","EXIT BACK TO BASIC"
00680 PRINT "DIS","RETURN TO DISPATCHER"
00690 GOTO 170
00700 LET G(21)=0
00710 LET S=0
00720 IF END #1, GOTO 920
00730 INPUT #1,X(0),X(1),X(2),X(3),X(4),X(5)
00740 INPUT #1,F
00750 IF F<0 GOTO 850
00760 FOR I=0 TO 17
00770 INPUT #1,G(I)
00780 NEXT I
00790 INPUT #1,G(20),G(18),G(19)
00800 LET G(21)=0
00810 IF S=1 GOTO 840
00820 PRINT #2,X(K0),G(P9),G(P9+1)
00830 LET S=1
00840 GOTO 740
00850 INPUT #1,A1$
00860 LET S=0
00870 RESTORE #2
00880 GOSUB 940
00890 RESTORE #2
00900 SCRATCH #2
00910 GOTO 720
00920 RESTORE #1
00930 GOTO 170
00940 IF S1=1 GOTO 1040
00950 PRINT #3
00960 PRINT #3,,"*** "A$" ***"
00970 PRINT#3
00980 PRINT #3"INITIAL VALUES:"
00990 PRINT #3
01000 PRINT#3,"RESISTANCE","CAPACITANCE","INDUCTANCE"
01010 PRINT#3 "SOURCE",X(0),X(1),X(2)
01020 PRINT#3 "LOAD",X(3),X(4),X(5)
01030 PRINT#3
01040 IF P9=18 GOTO 1340
01050 IF S1=1 GOTO 1170
01060 PRINT #3 " "A0$,"MAGNITUDE";
01070 IF S2=0 GOTO 1150
01080 IF P9=0 GOTO 1140
01090 IF P9=4 GOTO 1140
01100 IF P9=8 GOTO 1140
01110 IF P9=20 GOTO 1140
01120
01130 GOTO 1150
01140 PRINT #3 " (DB)";
01150 PRINT #3,," PHASE","REAL PART","IMAG PART"
01160 LET S1=1
01170 IF END #2 GOTO 1410
01180 INPUT #2,F,A,B
01190 LET B0=B*3.141592654/180
01200 LET C=A*COS(B0)
01210 LET D=A*SIN(B0)
01220 PRINT #3 F,
01230 IF S2=0 GOTO 1320
01240 IF P9=20 GOTO 1290
01250 IF P9=0 GOTO 1310
01260 IF P9=4 GOTO 1310
01270 IF P9=8 GOTO 1310
01280 GOTO 1320
01290 LET A=10*CLOG(A)
01300 GOTO 1320
01310 LET A=20*CLOG(A)
01320 PRINT #3,A,B,C,D
01330 GOTO 1170
01340 IF S1=1 GOTO 1370
01350 PRINT #3 " "A0$," LINVILL"," STERN"
01360 LET S1=1
01370 IF END #2 GOTO 1410
01380 INPUT #2,F,A,B
01390 PRINT #3,F,A,B
01400 GOTO 1370
01410 RETURN
01420 INPUT #1,X(0),X(1),X(2),X(3),X(4),X(5),F
01430 FOR I=0 TO 20
01440 INPUT #1,G(20)
01450 NEXT I
01460 INPUT #1,F
01470 IF F<0 GOTO 1490
01480 GOTO 1430
01490 INPUT #1,A0$
01500 IF END #1 GOTO 1550
01510 INPUT #1,G(0),G(1),G(2),G(3),G(4),G(5)
01520 FOR I=0 TO 5
01530 IF X(I)<>G(I) GOTO 1570
01540 NEXT I
01550 PRINT "THIS PROGRAM IS TO BE USED FOR VARIABLE TERMINATIONS ONLY."
01560 STOP
01570 LET K0=I
01580 RESTORE #1
01590 ON I+1 GOTO 1600,1620,1640,1660,1680,1700
01600 LET A0$="RS"
01610 GOTO 1710
01620 LET A0$="CS"
01630 GOTO 1710
01640 LET A0$="LS"
01650 GOTO 1710
01660 LET A0$="RL"
01670 GOTO 1710
01680 LET A0$="CL"
01690 GOTO 1710
01700 LET A0$="LL"
01710 GOTO 150
01720 END