File SIFUGU.FC (FOCAL source file)

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

)	()(XC U/W-FOCAL:SIFUGUNO/DA/TE?MB%NHS DK=.2,KG=6.4;I (KG-K)7.15?MB8NJD 7.9;S K1=49+DK,K2=41+DK,Z=85;R?MCINOS DK=.4,KG=6.8;I (KG-K)7.25?MC\NTD 7.9;S K1=48+DK,K2=40+DK,Z=87;R?MC-NYS DK=.5,KG=7.3;I (KG-K)7.35?MC?N^D 7.9;S K1=47+DK,K2=40,Z=88;R?MDPNS DK=.9,
G=8.2;I (KG-K)7.45?MD$N(D 7.9;S K1=46+DK,K2=38+2*DK,Z=91;R?MD5N-S DK=1.8,KG=10;I (KG-K)7.55?MEGN2D 7.9;S K1=45+DK,K2=38,Z=93;R?MMDN7S DK=3.4,KG=13.4;I (KG-K)7.65?ME*OAS DK=9.4,KG=22.8;I (KG-K)7.7?ME=ODD 7.9;S K1=43+DK,K2=36+DK,Z=97;R?MK^OFS K1=43,K2=36,Z=
7;R?MIOOJS DK=.4,KG=8.7;I (K-KG)7.2;S DK=.8,KG=9.5;I (K-KG)7.3;S DK=1.1?MGGONI (K-KG)7.6;S DK=12.1,KG=29.4;I (K-KG)7.68;G 7.7?MG	OPI (K-5.3)7.9,7.05;I (K-5.4)7.05;S DK=.2,KG=5.6;I (K-KG)7.1?MHEORS DK=.3,KG=5.9;I (K-KG)7.2;S DK=.5,KG=6.4;I (K-KG)7.3?MHOTS 
K=.8,KG=7.2;I (K-KG)7.4;S DK=1.5,KG=8.7;I (K-KG)7.5?MJ0OVS DK=3,KG=11.7;I (K-KG)7.6;S DK=8.2,KG=19.9;I (K-KG)7.68;G 7.7?MJPOZS DK=(KG-K)/DK?MF,OLS KG=10.6;I (K-KG)7.4;S DK=2.2,KG=12.8;I (K-KG)7.5;S DK=4.5,KG=17.3?MO-R^T "ING.- BUERO  B R A S S   ALFONSSTR
 9  ?M([BBZ?MM0PJT !!:4;S J=J+2?MV LYS G=(DR+U/2)/H*(DR+U),M1=G*E1,M2=G*E2?MIEOXS IB=-1;R?MV[C"G 9.2?MJZLTS U=KL-2*DR;S M1=E1/H,M2=E2/H;I (U)6.3?ML
B=D 10;T "AUSF. ?MFJOHI (K-7.8)7.88,7.05;I (K-8)7.05;S IB=,DK=.3,KG=8.3;I (K-KG)7.1?MOLCXD 1.68,1.86?ML&B?T "SCHUBBEW.?MY[CTZ I;D 1.61,1.62,1.63?MLIB>T "MIT  ?ML,CG 1.66?M"WCAT "OHNE ?MS CFD 1.66?ML3CDD 1.61,1.65,1.63?MEYN<D 7.9;S K1=44+DK,K2=37+DK,Z=95;R
MSVS RE=A/AX;I (RE-D/AY)11.4;S RE=D/AY?MRIMPR?MW/RJS J=J+1;T !;R?MODTJT !:4;S J=J+1?M$&B8S Z2(I)=Z2,QR(I)=QR,TR(I)=TR?MJ>LJS E1=K1*M/H,E2=K2*M/H,KL=AX;I (.99-V)6.2;S KL=AY?MMWV^S R=.785*DU^2/AX*AY*10000,QR=Q-R*Q?MTEVJI (IZ)11.3?MY>CZD 9,8;T "GEWAEHLT: AX 
 AY / D =      /       /        [CM]?MZ/R(T "8000 MUENCHEN 19   RUF *181081"!!?MQ$EKD 2.07,11,7,6;Z IZ;R?M!PBES U1=1.053,U2=1.134?MWZBGS U1=.702,U2=.756?M!;BZS DS=A,A=D,A2=-1;T "  RUNDST.[CM] DS = CY =",D?MNDB6S SZ(I)=S1,E1(I)=E1,E2(I)=E2,M(I)=M,M1(I)=M1,
2(I)=M2,Z1(I)=Z1?MQ3EPD 11.2,11.3,11.35,11.4;R?M(?EZS S1=SZ*100?MJ8C!T :33"D =":58"[CM2]?MT)MZS U1=.5915,U2=.637;I (NB)6.8;S U1=.845,U2=.91?MN0VTS D1=D1+.05,H=H+5,P=P1+D1*25,DR=DS+H,DU=DR+H,T=ST+D1?MV(S M=Q*(1-RE)/41,K=H/FSQT(M/10),TR=3.18*QR/DR*H,S=P+Q/A
*AY?M&5CPZ I;D 9,9;T %2"4) BEMESSUNG:  B ",BN?MVIB.S A=A/100,I=,D=D/100,IS=1?MRVOS AX=AX+.05,AY=.05*FITR(20*AX*V+.6);I (IS)11.3?MNULEZ IT;O (IL)6.9?MUDNBZ IB;I (NB)7.72;I (K-6.1)7.88,7.05;I (6.2-K)7.08?MBTNES K1=50,K2=42,Z=83;R?M%SDTI (IZ)2.5;Z IB,IT;D 7,
;I (IB)2.3;I (IT)2.3;S IL=-1;R?M"6C^D 8;T :14"AS2X,Y:":33"/":58"[CM2/M]?M\GB0D 2?MVDB/I (1-I)1.6;S AX=FITR(25*A)/10?M$6DED 11?MWDL^S Z1=U1*FSQT(M1),Z2=U2*FSQT(M2),IT=;I (Z1-TR)6.7;I (TR-Z2)6.8,6.8?MM,MFS IT=-1?MZ:R<D 1.05;O (NB)1.07;G 1.2?MZ>BOA !"WELCHE 
EILE 
 ",Z;F I=Z,71;T !?MI4RTF I=J,54;T !?MPBD2R?MP(BXA !:4"STUETZENQUERSCHNITT:[CM] CX  ",A,"/ CY  ",D;I (1-A)1.3?M)GB
A !:4"ABST. OK-FUSSB./GEL. -- OK-FUND. [M]",ST?MW<BVA !!!!"POS.",A;T !!"1) KONSTR.: STAHLBETON-EINZELFUNDAMENT B"%2,BN?MLCVN I;T %6.01" ",M(I)*10,QR(I),E1(I),E2(I),%5.03,TR(I),Z1(I),Z2(I)?MU/C\D 8;T :14"AS1X,Y:":33"TM =":45"CM":58"[CM2/M]";D 9;T :33"T1 ="
45"CM";D 9;T :33"T2 =":45"CM?MWKR2I (NF)9.7;Z J,IL?MM:SFQ?MX7BTS PS=PS+1,IZ=,IT=,IB=;T %4!"*"!!"BETR.:",PN,:60"SEITE";I (PS-1)1.22;T PS?M&AB(D 9,9;T "3) BODENPRESSUNG:";D 10;T "N. GUTACHTEN GEM. BEILAGE?M$GB2D 11.4,2.07;I (S-S1)1.52,1.52,1.48?MUQDJI (S-S1
2.2;S IS=-1;G 2.05?M\7HBI (1-B)4.04;S B=1?M]DHDI (.5-T)4.06;S T=.5?M!/HFS T1=.5;I (B-1.5)4.08;I (B-2)4.15;I (B-2.5)4.25;I (B-3)4.35;S B=3,B1=3;G 4.35?M^CHJS X1=2.9,X2=3.6,X3=3.6,X4=4.2;G 4.9?M^PHOS B1=1.5;I (1-T)4.6?M^%HTS X1=3.6,X2=3.6,X3=4.2,X4=4.1;G 4.
?M^1HYS B1=2;I (1-T)4.7?M
FH^S X1=3.6,X2=3.3,X3=4.1,X4=3.6;G 4.9?M
SHS B1=2.5;I (1-T)4.8?M%*H(S X1=3.3,X2=3.3,X3=3.6,X4=3.5;G 4.9?M
?H<S T1=1,X1=4.2,X2=4.1,X3=4.8,X4=4.6;G 4.9?M VIFS T1=1,X1=4.1,X2=3.6,X3=4.6,X4=3.9;G 4.9?M *IPS T1=1,X1=3.6,X2=3.5,X3=3.9,X4=3.7?MT
IZS Y1=2*(T-T1)*(X3-X1)+X1,Y2=2*(T-T1)*(X4-X2)+X2,SZ=2*(B-B1)*(Y2-Y1)+Y1?MP\BFA !"BETONG. B ",BN;S PS=PS-1,NB=1;I (20-BN)1.15;S NB=-1?M].HHS B1=1;I (1-T)4.5?MX]B^A !:4"VERHAELTNIS D. FUND.-SEITEN: AX : AY = 1 ",V?ML9CBN I;T %4" ",AX(I)*100,AY(I)*100,D1(I)
100,%7,S(I),SZ(I)?MQ<C D 9,8;T "BEI SCHUBBEWEHRUNG:  ERF. AST ="%4.01,.0312*QR(1)," CM2";D 8;T :14"GEW. AST:?MS5B-S DS=1.13*FSQT(D2*A)?M$B,I (A2)1.46;I (D/A-1.5)1.45;S D2=1.5*A?MQBB4Z IS;N I;I (2-I)1.6;S AX(I)=AX,AY(I)=AY,D1(I)=D1,S(I)=S?M&SB:S IL=-1;Z IS
IT,IB;G 1.47?M\[DGS B=AX,IS=;D 4;S B=AY,S1=SZ*100;D 4;O (S1-SZ*100)2.9?MW8D^D 2.8,7,6;I (IB)2.3;I (IT)2.3;S IL=-1;R?M
(H2S T1=1,X1=3.6,X2=4.2,X3=4.3,X4=4.8;G 4.9?M1B*I (.1-D1)1.44;S D1=.25,H=20.5?MKTB<Z I;D 8;T "ABMESSUNGEN:":28"AX   AY   D   VORH. S  ZUL. S";D 9?MLRCRD 9;T :28"M X,Y    QR       AS1     AS2   TR    ZUL. TAU 1,2";D 9?M	9B"A !!"2) BELASTUNG:"!:4"STUETZENLA
T POS ",Q,:33"Q [KN] ",Q?M[%B$D 10;A "BODENPL. U. NUTZLAST:":30"P [KN/M2] ",P1;S D2=D?MJLB?MPOBDA !"PROJ.-NR. ",PN," SEITE ",PS,"  MEHRERE FUND. 
 ",NF;O (PS)3.1?M\+FJS PS=-150?M	YB D 10; A "MIND. FUND.HOEHE[M]",D1;S D1=D1-.05,H=D1*100-4.5?MA L S SIFUGU?M?MEHE[M]",D1;S D1=D1-.05,H=D1*100-4.

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