Trailing-Edge
-
PDP-10 Archives
-
decuslib10-04
-
43,50353/term1.bas
There is 1 other file named term1.bas in the archive. Click here to see a list.
00010 ' TERM1.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
00060 PRINT "NUMBER OF TERMINATION SETS";
00070 INPUT M
00080 FOR I=1 TO M
00090 PRINT
00100 PRINT "SOURCE";
00110 GOSUB 160
00120 PRINT "LOAD";
00130 GOSUB 160
00140 NEXT I
00150 CHAIN LAN,200
00160 PRINT " TERMINATION:"
00170 PRINT
00180 PRINT "R (KILOHMS)";
00190 INPUT R
00200 LET R=R*1E3
00210 PRINT #1,R,C,L
00220 PRINT
00230 RETURN
00240 END