Google
 

Trailing-Edge - PDP-10 Archives - decuslib10-04 - 43,50353/lan13.bas
There is 1 other file named lan13.bas in the archive. Click here to see a list.
00010 '  LAN13
00020 '  DUANE MOORE    D I G I T A L
00030 '  READS THE FILE YPARAM.LAN AND THE PARAMETERS ARE LISTED
00040 '  ON THE TTY.  BOTH POLAR AND RECTANGULAR FORMS
00050 '  ARE LISTED.
00060 '
00070 FILES YPARAM.LAN,LAN.BAK
00080 SCRATCH #2
00090 FOR J=1 TO 7 STEP 2
00100 IF END#1 GOTO 190
00110 INPUT #1,F
00120 FOR I=1 TO 8
00130 INPUT #1,Y(I)
00140 NEXT I
00150 IF Y(J)>=0 GOTO 160
00160 PRINT #2,F,Y(J),Y(J+1);
00170 PRINT #2,Y(J)*COS(Y(J+1)/57.29577951),Y(J)*SIN(Y(J+1)/57.29577951)
00180 GOTO 100
00190 IF J=1 GOTO 240
00200 IF J=3 GOTO 260
00210 IF J=5 GOTO 280
00220 LET D$="Y(2,2)"
00230 GOTO 290
00240 LET D$="Y(1,1)"
00250 GOTO 290
00260 LET D$="Y(1,2)"
00270 GOTO 290
00280 LET D$="Y(2,1)"
00290 RESTORE #2
00300 GOSUB 360
00310 RESTORE #2
00320 SCRATCH #2
00330 RESTORE #1
00340 NEXT J
00350 CHAIN LAN,200
00360 PRINT,,  "***"D$"***"
00370 PRINT 
00380 PRINT  "FREQUENCY"," MAGNITUDE"," PHASE"," CONDUCTANCE",
00390 PRINT  " SUSCEPTANCE"
00400 IF END #2 GOTO 460
00410 FOR I=1 TO 5
00420 INPUT #2,A
00430 PRINT A,
00440 NEXT I
00450 GOTO 400
00460 PRINT
00470 RETURN
00480 END