File DLT3.FC (FOCAL source file)

Directory of image this file is from
This file as a plain text file

8[()QHC U/W-FOCAL:DLT3NO/DA/TE?MB!HJS Z=Z1(D)-1;S D=D+1?MLFJJS Z=Z-1;S E=E+1;S R=R+1?ML9LEI (1-Z1(D))6.2;I (-Z1(D+1)-Z1(D+2))6.2;I (C1(E)-L)6.2?MMPLJS G(4)=K;D 7;S G(5)=K^2/G?MM,LOS T=G(5)*(A-4*G*M(B)/1E4)/2*Q(E)+.08*G*(A/Q(E)-X);G S?MD\L[I (Z)6.29;I (P-A
(E))6.28;I (A1(E)+C1(E)-P)6.28;S M=M+Q(E)?MD$L\D 5;G 6.27?MD)L]D 4?MEDL^I (Z)6.39;I (P-A1(E))6.38;I (A1(E)+C1(E)-P)6.38?MEXL
S M=M+Q(E)*(.01483+P-A1(E))/C1(E)?ME L&D 5;G 6.3?ME%L	D 4?ME?L(I (Z)6.5;I (P-A1(E))6.48;I (A1(E)+C1(E)-P)6.48?MFUL)S M=M+Q(E)*(1-(.01483+P-A1(E))/C1(E))?MN&L0D 5;G 6.4?MPOL5S G(2)=G(2)/G;I (.4*G(1)-G(2))6.54;S G(2)=.4*G(1)?MF?L<D 6.26?MG!MCI (Z)6.69;I (P+
1(E)+C1(E)-L)6.68;I (L-A1(E)-P)6.68;S M=M+Q(E)?MG)MDD 5;G 6.67?MG.MED 4?MHKMFI (Z)6.79;I (P+A1(E)+C1(E)-L)6.78;I (L-A1(E)-P)6.78?MH%MGS M=M+Q(E)*(1-(.01483+A1(E)+C1(E)+P-L)/C1(E))?MH-MND 5;G 6.7?MH2MOD 4?MINMPI (Z)6.5;I (P+A1(E)+C1(E)-L)6.88;I (L-A1(E)-P)
.88?MI&MQS M=M+Q(E)*(.01483+A1(E)+C1(E)+P-L)/C1(E)?MI.MXD 5;G 6.8?MY.MZD 8;T %2,I+1;D 10?MJOZS Y=4?M\,PJT !;S J1=J1+1?MJ!TOI (3.5-Y)10.4;I (1.5-Y)10.3;I (.5-Y)10.2?MJ1TPT "  MAXTAU0 < TAU011 ";R?M4$TTT "  KEINE STAFFELUNG ";R?MKQT(T "  MAXTAU0 > TAU02  ";
?MK(T2I (3.5-Y)10.7;I (1.5-Y)10.6;I (.5-Y)10.3?M48T3T "  KONSTR. SCHUBDG. ";R?M(WUFT "  MAXTAU0>TAU03  "?ML&LAS D=3*(I-1)+1,E=1,B=I;I (I-1.5)6.02;F C=1,D-1;S E=E+Z1(C)?MYTLBS A=FABS(W(2*I-1)),C=6.26,S=6.55?MCNLHS K=1E3*(A-Q(E)*X)/M(B),G(3)=K*A/2*Q(E)?MC^L
I (.4*K-G(5))6.15;S G(5)=.4*K,T=G(5)*A/2*Q(E);G S?MM;LTS P=.01,G=1,J=1;Z G(3),T?MN^LXI (-X)C;S J=-1,K=1E3*A/M(B);D 6.1;I (.4*K-G(5))C;S G(5)=.4*K;G C?MC<LZZ R,M;D 4?MOGL2S G(1)=1E3*A/M(B),A=A-.05*M,G(2)=G(1)^2/G,G(3)=G(3)+.05*G(1)?MO	L3S D=D-3,E=E-R,P=P+.
5;I (.4*G(1)-G(2))6.52;S G(2)=.4*G(1)?MF]L4S T=T+.05*G(2);I (A)S;I (L-P)S;I (J)C;I (P-X-.05)C;S G(4)=G(1),K=G(1);D 7?MP.L6S G(5)=G(2),J=-1,G(3)=G(1)*(X+.1)/2,T=G(2)*(X+.1)/2;G C?MF9L7D 10;S C=6.6,S=6.9,B=I+1,A=FABS(W(2*I));G 6.03?M60BED 12;T "BEMESSUNG?MY
BHS YY=1,H=HA,B=B1;I (-B1)1.1;S B=B0?M52B^D 12;T "STUETZMOMENTE";S B=B0,YY=-1?M.JB(D 12;T "SCHUBBEMESSUNG?MRB0S G(3)=G(4)*L/2,K=G(4);D 7;S G(2)=G(4)^2/G?MR7B1I (.4*G(4)-G(2))1.5;S G(2)=.4*G(4)?MSEB2S T=G(2)*L/2;D 10;G C?M-*B<F I=1,N-1;S L=O(I);D 6?MBTCZT 
*"!;Q?MVJZHI (MA-M)13.7?M6MZ2S MS=1E3*MS/(H-H1)*SE,X=1E3*M/SF*Z+MS;I (X-3*MS)13.6?MTZZ<S C=C-.1,NU=2.1-.35*C/3,M=X1*(18-C)/(18-C-.1)?MVZZ=I (SE/21-C)13.62;S SF=21*C?MV
[AS MS=M-MA,X1=M,M=MA;G 13.5?MUV[PS C=C+.1;I (D1-1)13.65;I (YY)13.65;T "ZU KLEIN";R?MV:\JS KX=E/(E+C);I (YY)14.6;I (D1-1)14.6;S R=E,E=R*(1-D1/KX*H);D 15?MSZZCZ MS;S SF=SE,C=5,E=3.5;D 14?M,ZZJS E=E-.1;D 14;I (M-MA)13.1?MT*Z>D 14?MT:[FS C=C-.1;I (C-2.98)13.
;D 14;I (M-MA)13.5;G 13.7?MWQ\TS X=A*E,E=R;D 15;S A=H*(A*E-X)/D1*(E+C)?MW\^S Z=H-D1/2,MA=A*BR*D1*Z/1E5;R?MW;\<D 15;S Z=H*(1-KX*KA),MA=A*BR*KX*H*B*Z/1E5?MXV^JI (2/7-KX)15.2;S A=E*(6-E)/12,KA=(8-E)/4*(6-E);R?MX6^TI (7/17-KX)15.3;S A=1-2/3*E,KA=(3*E*E-4*E+2)
2*E*(3*E-2);R?M[E^^S A=.809524,KA=.415966?MZ(BJI (D1-1)1.2;I (5-B1/B0)1.2?MB0LCS X=FITR(10*AB(B)+H/10)/20;I (-AB(B))6.05;Z X?MZJNEZ Y;I (-H1)7.45;S U=20/(H+4)+.33;I (U-1)7.1;S U=1?M.*NJG (710+FITR(BR/10))/100?M1RN-G (740+FITR(BR/10))/100?M5LBLT "     BI";
 BS=23?MZ;BPG 1.3?MQ(BTS BS=13;D 1.14?M)].CS M=FABS(1.75*M),C=5,E=3.5?M[^.HI (MA-M)23.7?M[0.JS E=E-.1;D 23.05;I (M-MA)23.1?M[;.OS E=E+.1;D 23.05?M7T.2S X=1E3*M/SE*Z?M\"/FS C=C-.1;I (C-2.98)23.8;D 23.05;I (M-MA)23.5;G 23.7?M)=/PT "ZU KLEIN";R?M4SRJS Y=Y-1?
\=6DI (X-7.5)27.08?M,86FS J=J+1;I (8.5-J)L;I (7.5+5*J-X)27.06?M]56JI (R-55)L;I (R-60)Z;D 9;I (R-65)Z;D 9;I (R-75)Z;D 9;I (R-90)Z?M*X6OD 9;I (R-115)Z;D 9;I (R-150)Z;D 9;I (R-210)Z;D 9;I (R-375)Z;D 9;G Z?M^>6^I (R-160)L;I (R-180)Z;D 9;I (R-200)Z;D 9;I (R-23
)Z;D 9;I (R-275)Z?M
T6D 9;I (R-340)Z;D 9;I (R-440)Z;D 9;G Z?M+Y6(I (R-210)L;I (R-235)Z;D 9;I (R-270)Z;D 9;I (R-310)Z;D 9;I (R-365)Z?M  62I (R-265)L;I (R-295)Z;D 9;I (R-335)Z;D 9;I (R-390)Z;D 9;I (R-460)Z;D 5;G Z?M!A6<I (R-315)L;I (R-355)Z;D 9;I (R-405)Z;D 9;I (R-465)Z;D 9;G 
?M+	7FI (R-370)L;I (R-415)Z;D 9;I (R-470)Z;D 9;G Z?M!$7ZI (R-475)L;G Z?M!/7\S R=100;G 27.99?M"B7]S X=100*B1/B0;Z J;I (X-175)27.97?M-E7
S J=J+1;I (X-175-50*J)27.97;I (J-5.5)27.95?M"7S B=R*B1/100?M"):KS R=71?M"/:LS R=75?M"5:MS R=79?M";:NS R=83?MA:OS R=87?MG:PS R=91?MM:QS R=95?MS:RS R=97?MY:SS R=99?M
:US R=56?M%:VS R=62?M+:WS R=69?M1:XS R=75?M7:YS R=81?M=:ZS R=87?M$C:[S R=92?M$I:\S R=96?M$O:]S R=99?M$U:
S R=47?M$[: S R=55?M$!:!S R=62?M$	:"S R=70?M$-:S R=77?M$3:$S R=84?M$9:%S R=90?M$?:&S R=95?M%E:	S R=99?M%K:)S R=42?M%Q:*S R=50?M%W:+S R=58?M%]:,S R=66?M%:-S R=75?M%):.S R=82?M%/:/S R=89?M+9:0S R=95?M%;:3S R=37?M&A:4S R=46?M&G:5S R=55?M&M:6S R=64?M&S:7S R=7
?M&Y:8S R=81?M&
:9S R=89?M&%::S R=95?M&+:;S R=99?M&1:=S R=34?M&7:>S R=44?M&=:?S R=53?M	C;S R=62?M	I;AS R=71?M	O;BS R=80?M	U;CS R=88?M	[;DS R=94?M	!;ES R=99?M		;GS R=30?M	-;HS R=40?M	3;IS R=50?M	9;JS R=60?M	?;KS R=70?M(E;LS R=79?M(K;MS R=87?M(Q;NS R=94?M;OS R=98?M()XJI (5
-J1)12.2;T !!;S J1=J1+2;R?M(3XTF C=J1,67;T !?M7>X^T "ING. - BUERO  B R A S S   ALFONSSTRASSE 9  8000 MUENCHEN 19   RUF 181081"!!?M[U.ES KX=E/(E+C);D 27,15;S Z=H*(1-KA*KX),MA=A*BR*KX*H*B*Z/1E5?M\36BS X=100*D1/H;Z J;S R=1E3*KX,Y=9,Z=27.93,L=27.92?M*<6TI (R-
05)L;I (R-120)Z;D 9;I (R-135)Z;D 9;I (R-155)Z;D 9;I (R-185)Z?M^Z6YD 9;I (R-225)Z;D 9;I (R-290)Z;D 9;I (R-415)Z;D 9;G Z?M
86-D 9;I (R-450)Z;D 9;G Z?M!Z7PI (R-420)L;I (R-470)Z;D 9;G Z?M%5:1S R=99?MU9ZAS NU=1.75,M=FABS(NU*M);I (-M)13.03;S M(I)=H*B0;R?MSZOS E=E+.1;D 14?M-VB,D 8;T %2,1;I (-KL)1.46;T :30;G 1.6?M]S6HS J=20+(71+J)/10;G J?M"Z7!S J=20+(910+10*J+Y)/100;D J?MRKB.S G(4)
1E3*(W+WL)/M(1),L=LL,C=1.6?M7,CAI (KR)1.8;S G(4)=1E3*(W(2*N-1)+WR)/M(N),L=LR,C=1.8;G 1.48?M,$B*D 12;T "  I  TAU0L   TAUL   ASTL       TAU0R   TAUR   ASTR?M.9NTS G=120;I (U*25-K)7.21;R?M/GNUI (U*35-K)7.22;S Y=1;R?M/TNVI (120-K)7.9;S Y=2;R?M/N[S G=180;I (U*
5-K)7.28;R?M/1N\I (U*50-K)7.29;S Y=1;R?M/>N]I (180-K)7.9;S Y=2;R?M0MN!S G=240;I (U*40-K)7.34;R?M0[N"I (U*60-K)7.35;S Y=1;R?M0(NI (240-K)7.9;S Y=2;R?M07N%S G=270;I (U*50-K)7.38;R?M1EN&I (U*70-K)7.39;S Y=1;R?MZYN	I (270-K)7.9;S Y=2;R?M1 N2S G=120;I (50-K)7.
1;R?M1.N3I (120-K)7.52;S Y=1;R?M1;N4I (200-K)7.9;S Y=2;R?M2IN9S G=180;I (75-K)7.58;R?M2WN:I (180-K)7.59;S Y=1;R?M2$N;I (300-K)7.9;S Y=2;R?M23N?S G=240;I (100-K)7.64;R?M3AOI (240-K)7.65;S Y=1;R?M3NOAI (400-K)7.9;S Y=2;R?M3]OCS G=270;I (110-K)7.68;R?M3+ODI 
270-K)7.69;S Y=1;R?M38OEI (450-K)7.9;S Y=2;R?M4FOGI (300-K)7.72;S Y=1;R?MI:OHI (500-K)7.9;S Y=2;R?MJJTET %5.02,G(4)/100;I (-H1)10.5?MKAT^T G(5)/100,%6.02,T*B0/240,"    ";R?MK8T<T " V.SCHD.",G(3)*B0/240,"    ";R?MZ5BND 12;T "FELDMOMENTE";F I=1,N-1;D 8;S M=
F(I)/10;T %2,I,%7.02,M*10;D BS?MQ=BF I=1,N;D 8;S M=CL(I)/10;T %2,I,%7.02,M*10;D 13?MTZ7S M(I)=H*B0*(1-KX*KA);T X,MS,SF/NU*10,%5.02,M(I)/B0,%4.02,C,E;R?MQTBFD 12;T "  I      M        AS       AS	      SS     Z     ES    EB?M\E.7T X,0,SE/17.5,%5.02,Z,%4.02,
,E,%5.02,B;R?MSSCPD 12.2,12.3;I (LM)1.9;L R DLT2?M+?X(S J1=5;T "*"!!!"BETR.:"%4,PR,"  POS.:":60"SEITE"!!!!?M?ML S DLT3?M?M*"!!!"BETR.:"%4,PR,"  POS.:":60"SEITE"!!!!?M?M ES    EB?D BS?ME;R?I (O(I)-P-.05)6.79;I (-B*Y)6.73;S Y=-Y;T P+.04;I (-R)6.8?MXMII (KR*
)6.77;S R=1;I (Y*YY)6.75;D 3?MVHMMS P=P+.05;S D=D-3;

Note: Lines longer than 256 characters were wrapped



Feel free to contact me, David Gesswein djg@pdp8online.com with any questions, comments on the web site, or if you have related equipment, documentation, software etc. you are willing to part with.  I am interested in anything PDP-8 related, computers, peripherals used with them, DEC or third party, or documentation. 

PDP-8 Home Page   PDP-8 Site Map   PDP-8 Site Search