Trailing-Edge
-
PDP-10 Archives
-
decuslib10-04
-
43,50353/term.bas
There is 1 other file named term.bas in the archive. Click here to see a list.
00010 ' TERM.BAS DUANE MOORE D I G I T A L
00020 ' CREATES A FILE OF TERMINATION DATA FOR *LAN* PROGRAMS.
00030 FILES TERM.LAN
00040 SCRATCH #1
00050 PRINT "ENTER SETS OF SOURCE AND LOAD TERMINATIONS (SERIES ";
00060 PRINT "CONNECTED ELEMENTS)."
00070 PRINT
00080 PRINT "NUMBER OF TERMINATION SETS";
00090 INPUT M
00100 FOR I=1 TO M
00110 PRINT
00120 PRINT "SOURCE";
00130 GOSUB 180
00140 PRINT "LOAD";
00150 GOSUB 180
00160 NEXT I
00170 CHAIN LAN,200
00180 PRINT " TERMINATION:"
00190 PRINT
00200 PRINT "R (KILOHMS)";
00210 INPUT R
00220 LET R=R*1E3
00230 PRINT "C (MFD.)";
00240 INPUT C
00250 LET C=C*1E-6
00260 PRINT "L (MILLIHENRY)";
00270 INPUT L
00280 LET L=L*1E-3
00290 IF C<0 GOTO 220
00300 IF L<0 GOTO 220
00310 PRINT #1,R,C,L
00320 PRINT
00330 RETURN
00340 END