Google
 

Trailing-Edge - PDP-10 Archives - decuslib10-04 - 43,50353/lan6.bas
There is 1 other file named lan6.bas in the archive. Click here to see a list.
00010 ' LAN6
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 'TABLE.LAN"
00050 '
00060 DIM X(5),G(21)
00070 PRINT "OUTPUT FILE:  TABLE.LAN"
00080 PRINT
00090 FILES GAIN.LAN,LAN.BAK,TABLE.LAN
00100 SCRATCH #2,#3
00110 MARGIN #3,110
00120 LET S1=0
00130 PRINT
00140 PRINT "TYPE H FOR HELP"
00150 PRINT "*";
00160 INPUT A$
00170 IF A$="SYS" GOTO 360
00180 IF A$="DIS" GOTO 380
00190 IF A$="H" GOTO 530
00200 IF A$="EXIT" GOTO 360
00210 IF A$="YPARAM" GOTO 370
00220 IF A$="G" GOTO 390
00230 IF A$="AV" GOTO 410
00240 IF A$="ZIN" GOTO 430
00250 IF A$="AI" GOTO 450
00260 IF A$="ZOUT" GOTO 470
00270 IF A$="AVSL" GOTO 490
00280 IF A$="STA" GOTO 510
00290 IF A$="DB" GOTO 320
00300 IF A$="LIN" GOTO 340
00310 GOTO 140
00320 LET S1=1
00330 GOTO 150
00340 LET S1=0
00350 GOTO 150
00360 STOP
00370 CHAIN LAN12
00380 CHAIN LAN,200
00390 LET P9=20
00400 GOTO 680
00410 LET P9=4
00420 GOTO 680
00430 LET P9=2
00440 GOTO 680
00450 LET P9=0
00460 GOTO 680
00470 LET P9=6
00480 GOTO 680
00490 LET P9=8
00500 GOTO 680
00510 LET P9=18
00520 GOTO 680
00530 PRINT
00540 PRINT "COMMAND","DESCRIPTION"
00550 PRINT "AV","VOLTAGE GAIN "
00560 PRINT "AI","CURRENT GAIN "
00570 PRINT "AVSL","VOLTAGE GAIN (TAKING INTO ACCOUNT SOURCE AND LOAD) "
00580 PRINT "ZIN","INPUT IMPEDANCE "
00590 PRINT "ZOUT","OUTPUT IMPEDANCE "
00600 PRINT "G","POWER GAIN"
00610 PRINT "STA","LINVILL AND STERN STABILITY FACTORS"
00620 PRINT "DB","MAGNITUDE IN DB"
00630 PRINT "LIN","MAGNITUDE IN UNITS"
00640 PRINT "YPARAM","Y PARAMETERS OF THE NETWORK"
00650 PRINT "EXIT","EXIT BACK TO BASIC"
00660 PRINT "DIS","RETURN TO DISPATCHER"
00670 GOTO 150
00680 LET G(21)=0
00690 IF END #1, GOTO 860
00700 INPUT #1,X(0),X(1),X(2),X(3),X(4),X(5)
00710 INPUT #1,F
00720 IF F<0 GOTO 800
00730 FOR I=0 TO 17
00740 INPUT #1,G(I)
00750 NEXT I
00760 INPUT #1,G(20),G(18),G(19)
00770 LET G(21)=0
00780 PRINT #2,F,G(P9),G(P9+1)
00790 GOTO 710
00800 INPUT #1,A0$
00810 RESTORE #2
00820 GOSUB 880
00830 RESTORE #2
00840 SCRATCH #2
00850 GOTO 690
00860 RESTORE #1
00870 GOTO 150
00880 PRINT#3
00890 PRINT #3,,"*** "A$" ***"
00900 PRINT#3
00910 PRINT#3,,"RESISTANCE","CAPACITANCE","INDUCTANCE"
00920 PRINT#3 "SOURCE",X(0),X(1),X(2)
00930 PRINT#3 "LOAD",X(3),X(4),X(5)
00940 PRINT#3
00950 IF P9=18 GOTO 1220
00960 PRINT #3"FREQUENCY","MAGNITUDE";
00970 IF S1=0 GOTO 1040
00980 IF P9=0 GOTO 1030
00990 IF P9=4 GOTO 1030
01000 IF P9=8 GOTO 1030
01010 IF P9=20 GOTO 1030
01020 GOTO 1040
01030 PRINT #3" (DB)";
01040 PRINT #3,,"  PHASE","REAL PART","IMAG PART"
01050 IF END #2 GOTO 1270
01060 INPUT #2,F,A,B
01070 LET B0=B*3.141592654/180
01080 LET C=A*COS(B0)
01090 LET D=A*SIN(B0)
01100 PRINT #3 F,
01110 IF S1=0 GOTO 1200
01120 IF P9=20 GOTO 1170
01130 IF P9=0 GOTO 1190
01140 IF P9=4 GOTO 1190
01150 IF P9=8 GOTO 1190
01160 GOTO 1200
01170 LET A=10*CLOG(A)
01180 GOTO 1200
01190 LET A=20*CLOG(A)
01200 PRINT #3,A,B,C,D
01210 GOTO 1050
01220 PRINT #3 "FREQUENCY","LINVILL","STERN"
01230 IF END #2 GOTO 1270
01240 INPUT #2,F,A,B
01250 PRINT #3,F,A,B
01260 GOTO 1230
01270 PRINT#3
01280 PRINT#3
01290 RETURN
01300 END