File SIBADI.FC (FOCAL source file)

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

&()BTC U/W-FOCAL:SIBADINO/DA/TE?MWKBAZ?MB.FJI (X)4.02;S U=W-D1,R=.6;I (U)4.02,4.02?MOYFTS R1=.6+.4*U/B;I (R1-R)4.02;I (R1-1)3.3;S R=1;G 4.02?MR&HFI (.5-T)4.1;S T=.5?MC"HOI (T-2)4.2;S T=2?MC6HTS SZ=1.8+.8*B+2.4*T-1.2*B*T;G 1.5?MDBHYI (.5-T)4.3;S T=.5?MDWH^
 (1.5-T)4.35;S SZ=4.5-B+.6*T;G 1.5?MUWHI (T-2)4.38;S T=2?MD.H2I (T-2)4.6;S T=2?MD<H<S SZ=4.8-B+.4*T;G 1.5?MEHIFI (.5-T)4.8;S T=.5?M >IPI (T-2)4.9;S T=2?M]PI
D 5;G 1.5?ME	JJI (.5-T)5.2;S T=.5?ME:JTI (1.5-T)5.5;I (.5-B)5.3;S B=.5?MFEJ^I (B-2)5.4;S B=2?MOGJ(S SZ=.3+2*B+1.4*T;R?MF]J<I (B-2)5.7;S B=2?MYSKFS SZ=.6+2*B+1.2*T?MF-LTR?MGFNBI (NB)7.72;I (K-6.1)7.88,7.05;I (6.2-K)7.08?MGSNES K1=50,K2=42,Z=83;R?MG$NHS DK=
2,KG=6.4;I (KG-K)7.15?MG7NJD 7.9;S K1=49+DK,K2=41+DK,Z=85;R?MHHNOS DK=.4,KG=6.8;I (KG-K)7.25?MH[NTD 7.9;S K1=48+DK,K2=40+DK,Z=87;R?MH,NYS DK=.5,KG=7.3;I (KG-K)7.35?MH>N^D 7.9;S K1=47+DK,K2=40,Z=88;R?MIONS DK=.9,KG=8.2;I (KG-K)7.45?MIN(D 7.9;S K1=46+DK,K2=
8+2*DK,Z=91;R?MI4N-S DK=1.8,KG=10;I (KG-K)7.55?MJFN2D 7.9;S K1=45+DK,K2=38,Z=93;R?MJXN7S DK=3.4,KG=13.4;I (KG-K)7.65?MJ+N<D 7.9;S K1=44+DK,K2=37+DK,Z=95;R?MJ<OAS DK=9.4,KG=22.8;I (KG-K)7.7?MKOODD 7.9;S K1=43+DK,K2=36+DK,Z=97;R?MK\OFS K1=43,K2=36,Z=97;R?MK
OHI (K-7.8)7.88,7.05;I (K-8)7.05;S DK=.3,KG=8.3;I (K-KG)7.1?MSHOJS 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?ML9ONI (K-KG)7.6;S DK=12.1,KG=29.4;I (K-KG)7.68;G 7.7?MMYOPI (K-5.3)7.9,7.05;I (K-5.4)7.05;S DK=.2,KG=5.6;I (K-KG)7.1?MM7ORS DK
.3,KG=5.9;I (K-KG)7.2;S DK=.5,KG=6.4;I (K-KG)7.3?MNUOTS DK=.8,KG=7.2;I (K-KG)7.4;S DK=1.5,KG=8.7;I (K-KG)7.5?MOROVS 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?MOAOZS DK=(KG-K)/DK?M]PJD 9,9?MFRJ2I (T-2)5.6;S T=2?MN7OXS Y=-1;R?MV*F^S R=R1?
U*H(I (.5-T)4.45;S T=.5?MW)BXD 8;T :3"POS. LAST   WANDBR. FU.AUFL. OKF. I/X";D 9?M

BPT "EMPFINDL. BAUWERKE";I (X)1.2;D 9;T :12"GRUNDW. "%3.02,W," M UNT. FUND.-OK?M^[BFS X=-1,PS=PS-1;A !"GRUNDW. VORH. ",W?MPIBNT !!:12"ZUL. BODENPRESSG. N. DIN 1054 F. SETZGS.-";I (-L)1.16;T "UN?MRSBS D1=D1+.05,T=S+D1?M$?CFI (SZ*R*RE-SV)1.67;D 9;T :3"AUSF.
IN STAMPFBN.:?MX"B%S B1=B1+.05,DA=B1-A?MS9CCD 1.37?MCWHJI (1.5-T)4.2;S SZ=.9+1.4*B+3*T-1.6*B*T;G 1.5?MT0R2S J=3;D 1.1?ML^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?MX6B,D 1.4;S B=B1;G 3.1?M"OCDS D1=.866*DA,D1=.05*FITR((D1+.05)*2
)?M!4CAD 1.4;S B=B1,Y2=-1,T=S+D1;I (SZ*R*RE-SV)3.1?MBXCZD 10.1,9.5?MT:TJD 9.2,9.3,9.4?MTTT !?M\DR^T "ING.- BUERO  B R A S S   ALFONSSTR. 9  ?MO
H&S SZ=3.6-.4*B-.4*T*B+1.2*T;G 1.5?MDH-I (1.5-T)4.5;S SZ=3.3-.4*B-.4*B*T+1.4*T;G 1.5?MZ
B?I (Y4)1.64;S Y4=-1,B1=B1-.25,SZ=?MQ,B!S B1=.05*FITR(20*(A+.1)),D1=.15?M!RHBI (L)4.95;I (B-1)4.95;I (B-1.5)4.06;I (B-2)4.25;I (B-2.5)4.4?M^:BBA !"PROJ.-NR. ",PN,"  SEITE ",PS,"  BET.GUETE B ",BN,!?MW=BZT :7"[KN/M]   [CM]   [KN/M2]   [M]?M%TB^D 8;A :3,Q;I
(Q-.1)10.1;A :9,Q,:17,A,:25,QK,:32,S,:38,I;I (14-I)1.3?MZHB(S SQ=Q+QK*DA+B1*D1*25,SV=SQ/B1;Z Y?MZ9B2S SZ=SZ*100;I (Y3)1.7;I (SZ*R*RE-SV)1.37;I (Y2)1.64?MY2LJS M=Q*DA/80,H=D1*100-4,QR=Q*(DA-H/100)/B1*2,K=H/FSQT(M)?MF)LLD 7;S T0=10*QR/H*Z;I (T0-O)6.2;S Y=-1
MS-B*S O=T2/10;D 6;I (-Y-.1)1.44;D 1.35;G 1.4?MTOCS O=T1/10;D 6;I (-Y-.1)1.65;D 1.35,1.4;G 1.64?MVB4I (T0-T1/10)1.64,1.64;D 9;T :3"AUSF. M. SCHUBBEW.:?MVDB>S SD=T0^2*76.3*B1/T2;T %3.01,SD?MVWB D 9;T :26"[CM]    ZUL.    VORH.[MN/M2]":62"[CM2/M]?MR?R(T "800
 MUENCHEN 19   RUF *181081"!?MT?RTF I=J,68;T !?MQGBLT !!:12%2"STAMPF- U. STAHLBETON-BANKETTE B 10 U. B",BN?M\YRJS J=J+1;T !;I (67-J)9.2;R?ME[I!D 9;T "BREITE > 5 METER: FESTES SZ EINGEBEN !";G 1.24?M"-BIO (-R2)9.5;I (-R2)1.24?M].BHA "FORTS. 
 1/-1 ",R2,"  WELCHE ZEILE 
 ",Z;F I=Z,71;T !?M]<BGT !!;I (W)1.08;S X=1;A "ABST. FUND.OK-W.SPIEGEL [M]: ",W?M
:BCA "BAUWERK SETZGS.EMPF. 
 1/-1 ",L,"  FAKTOR F. DIN-1054-WERTE 
",RE?M WBTS J=7?M$(CJD 9;T :32"AS2:";D 9;T :32"ATAU:";D 9?MP2BDS NB=-1,T1=3.5,T2=12;I (BN-20)1.06;S NB=1,T1=5,T2=18?MO,BVD 9;T %3.02:12"ZUL. SCHUBSPANNGEN.: T01 =",T1/10," T02 =",T2/10," MN/M2?MESIZS SZ=3.8-.6*B+.4*T,SZ=SZ*SR;G 1.5?MCKHDS SR=1;I (B-3)4.7,
.7;I (5-B)4.97;S SR=1-(B-3)/10;S B=3;G 4.7?MR CBD 9;T :3"AUSF. O. SCHUBBEW.:";S D2=D1;D 1.6,1.33?MQ8CEI (2.5*D2-D1)1.72,1.72;D 1.4;S B=B1,Y3=-1,T=S+D1;G 3.1?M\"BJS PS=PS+1,R=1;T %4!"*"!!"BETR.:",PN,:25"STREIFENFUNDAMENTE":60"SEITE",PS,!!?M[UB<T %4:16,100*
1,100*D1;T %6,SZ*R*RE,SV,%6.03,T0,%5.02,M*K1/H,M*K2/H?M
%CHO (65-J)1.9;D 8;T :3"GEW.: B / D =      /     CM  AS1:        ,T =    CM [     CM2/M]?MT(CPZ Q,Y4,A,Y,Y2,Y3,SZ,T;O (60-J)1.9;G 1.24?M:CGT :18%4,100*B1,100*D1,%6,SZ*R*RE,SV?M[(B
S A=A/100;O (55-J)1.9;D 8;T :25"B  / D   BODENPRESSUNG   T0     AS1    AS2   ATAU?MCGL S SIBADI?M?M(55-J)1.9;D 8;T :25"B  / D   BODENPRESSUNG   T0     AS1    AS2   ATAU?/M]?/10," MN/M2?N-20)1.06;S NB=1,T1=.5,T2=1.8?=1,T1=.5,T2=1.8?.8?M?M(D))28.2?M	&8EI (C
(E)-A1(E)-O(I))28.2;S Z=Q(E)?M(D8GS C=A*A+2*Z*B;I (S)28.15;S S=M(I+1)+W(2*I)*DL(I+.5?MDWH^I (1.5-T)4.35;S SZ=4.5-B+.6*T;G 1.5?MU.HI (T-2)4.38;S T=2?MD.H2I (T-2)4.6;S T=2?MD<H<S SZ=4.8-B+.4*T;G 1.5?MEHIFI (.5-T)4.8;S T=.5?M(IPI (T-2)4.9;S T=2?M
:I
D 5;G 1.5?ME	JJI (.5-T)5.2;S T=.5?ME:JTI (1.5-T)5.5;I (.5-B)5.3;S B=.5?MFEJ^I (B-2)5

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