File SIFAGU.FC (FOCAL source file)

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

!:()BTC U/W-FOCAL:SIFAGUNO/DA/TE?M^BBAZ?MB\LTR?MB5NBI (NB)7.72;I (K-6.1)7.88,7.05;I (6.2-K)7.08?MCBNES K1=50,K2=42,Z=83;R?MCSNHS DK=.2,KG=6.4;I (KG-K)7.15?MC&NJD 7.9;S K1=49+DK,K2=41+DK,Z=85;R?MC7NOS DK=.4,KG=6.8;I (KG-K)7.25?MDJNTD 7.9;S K1=48+DK,K2=40+D
,Z=87;R?MD[NYS DK=.5,KG=7.3;I (KG-K)7.35?MD-N^D 7.9;S K1=47+DK,K2=40,Z=88;R?MD>NS DK=.9,KG=8.2;I (KG-K)7.45?MERN(D 7.9;S K1=46+DK,K2=38+2*DK,Z=91;R?MEN-S DK=1.8,KG=10;I (KG-K)7.55?ME5N2D 7.9;S K1=45+DK,K2=38,Z=93;R?MFGN7S DK=3.4,KG=13.4;I (KG-K)7.65?MFZN<
 7.9;S K1=44+DK,K2=37+DK,Z=95;R?MF+OAS DK=9.4,KG=22.8;I (KG-K)7.7?MF>ODD 7.9;S K1=43+DK,K2=36+DK,Z=97;R?MGKOFS K1=43,K2=36,Z=97;R?MG+OHI (K-7.8)7.88,7.05;I (K-8)7.05;S DK=.3,KG=8.3;I (K-KG)7.1?MK\OJS DK=.4,KG=8.7;I (K-KG)7.2;S DK=.8,KG=9.5;I (K-KG)7.3;S D
=1.1?MH(ONI (K-KG)7.6;S DK=12.1,KG=29.4;I (K-KG)7.68;G 7.7?MIHOPI (K-5.3)7.9,7.05;I (K-5.4)7.05;S DK=.2,KG=5.6;I (K-KG)7.1?MI&ORS DK=.3,KG=5.9;I (K-KG)7.2;S DK=.5,KG=6.4;I (K-KG)7.3?MJDOTS DK=.8,KG=7.2;I (K-KG)7.4;S DK=1.5,KG=8.7;I (K-KG)7.5?MJ6OVS DK=3,K
=11.7;I (K-KG)7.6;S DK=8.2,KG=19.9;I (K-KG)7.68;G 7.7?MJ0OZS DK=(KG-K)/DK?M!UPJD 9,9?MJ&OXS Y=-1;R?MKIBS D1=D1+.05,T=S+D1?MXHB%S B1=B1+.05,DA=B1-A?MLACCD 1.37?MHMOLS 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?MUVCDS D1=.866*DA,D1=.0
*FITR((D1+.05)*20)?M^%CZD 10.1,9.5?ML)TJD 9.2,9.3,9.4?MTTT !?MOOR^T "ING.- BUERO  B R A S S   ALFONSSTR. 9  ?MVB?I (Y4)1.64;S Y4=-1,B1=B1-.25,SZ=?M BB^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?MN]LJS M=Q*DA/80,H=D1*100-4,QR=Q*(DA
H/100)/B1*2,K=H/FSQT(M)?MBXLLD 7;S T0=10*QR/H*Z;I (T0-O)6.2;S Y=-1?M[CB4I (T0-T1/10)1.64,1.64;D 9;T :3"AUSF. M. SCHUBBEW.:?M!+R(T "8000 MUENCHEN 19   RUF *181081"!?M[4CHO (55-J)1.9;D 8;T :3"GEW.: B / D =      /     CM  AS1:        ,T =    CM [     CM2/M]?
^-BIO (-R2)9.5;I (-R2)1.24?MPRBHA "FORTS. 
 1/-1 ",R2,"  WELCHE ZEILE 
 ",Z;F I=Z,71;T !?MR^BDS NB=-1,T1=3.5,T2=12;I (BN-20)1.06;S NB=1,T1=5,T2=18?M\2BVD 9;T %3.02:12"ZUL. SCHUBSPANNGEN.: T01 =",T1/10," T02 =",T2/10," MN/M2?MKVCBD 9;T :3"AUSF. O. SCHUBBEW.:";S D2=D1;D 1.6,1.33?MP BFS X=-1,PS=PS-1?M!%BNT !!:12"ZUL. BODENPRESS
. GEM. GUTACHTEN N. BEILAGE?M["CFI (SZ-SV)1.67;D 9;T :3"AUSF. IN STAMPFBN.:?MS*HBI (.5-B)4.04;S B=.5?MX\HDI (.5-T)4.06;S T=.5?MWUHTS X1=2.4,X2=2.8,X3=3,X4=3.4;G 4.9?MW"H^S X1=2.8,X2=2.9,X3=3.4,X4=3.3;G 4.9?MYHH(S X1=2.9,X2=2.9,X3=3.3,X4=3.2;G 4.9?MWIHJS X
=1.6,X2=2.4,X3=2.2,X4=3;G 4.9?MW.B,D 1.4;S B=B1;G 4.02?MSECEI (2.5*D2-D1)1.72,1.72;D 1.4;S B=B1,Y3=-1,T=S+D1;G 4.02?MRCCAD 1.4;S B=B1,Y2=-1,T=S+D1;I (SZ-SV)1.37?MUIB*S O=T2/10;D 6;I (-Y-.1)1.44;D 1.35;G 1.4?MU5CS O=T1/10;D 6;I (-Y-.1)1.65;D 1.35,1.4;G 1.6
?MT5HHS B2=.5;I (1-T)4.5?MS7HOS B2=1;I (1-T)4.6?MTKHYS B2=1.5;I (1-T)4.7?MT HS B2=2;I (1-T)4.8?MN3B2S SZ=SZ*100;I (Y3)1.7;I (SZ-SV)1.37;I (Y2)1.64?MVLB(S SQ=Q+QK*DA+B1*D1*25,SV=SQ/B1,Y=1?MV=HFS TT=.5;I (B-1)4.08;I (B-1.5)4.15;I (B-2)4.25;I (B-2.5)4.35;S B
2.5,B2=2.5;G 4.35?MY^H2S TT=1,X1=2.2,X2=3,X3=2.8,X4=3.6;G 4.9?M\IH<S TT=1,X1=3,X2=3.4,X3=3.6,X4=4;G 4.9?MZGIPS TT=1,X1=3.3,X2=3.2,X3=3.7,X4=3.5?MM>IZS Y1=2*(T-TT)*(X3-X1)+X1,Y2=2*(T-TT)*(X4-X2)+X2,SZ=2*(B-B2)*(Y2-Y1)+Y1;G 1.5?MMFB>S SD=T0^2*76.3*B1/T2;T %
.01,SD?MZ0B<T %4,100*B1,100*D1,%6,SZ,SV,%6.03,T0,%5.02,M*K1/H,M*K2/H?MO$CGT :19%4,100*B1,100*D1,%6,SZ,SV?M .CJD 9;T :32"AS2:";D 9;T :32"AST:";D 9?MY3IFS TT=1,X1=3.4,X2=3.3,X3=4,X4=3.7;G 4.9?MJ=B!S B1=.05*FITR(20*(A+.1)),D1=.25?M]OBXD 8;T :3"POS.  LAST  WA
DBR. FU.AUFL.  OKF. I/X";D 9?MMYBZT :8"[KN/M]  [CM]   [KN/M2]   [M]?M\
B D 9;T :26"[CM]    ZUL.    VORH. [MN/M2]":62"[CM2/M]";D 9?MP?BBA !"PROJ.-NR. ",PN,"  SEITE ",PS,"  BET.GUETE B ",BN,!;O (PS)3.1?MS]FJS PS=-150?M
RBJS PS=PS+1,R=1;T %4!"*"!!"BETR.:",PN,:25"STREIFENFUNDAMENTE":60"SEITE?M
$BKO (PS)8.1;I (PS)1.12;T PS;D 8?MR(BLT !!:12%2"STAMPF- U. STAHLBETON-BANKETTE B 10 U. B",BN?M]B
S A=A/100;O (57-J)1.9;D 8;T :25"B  / D   BODENPRESSUNG   T0     AS1    AS2     AST?MLWCPZ Q,Y4,A,Y,Y2,Y3,SZ,T;O (58-J)1.9;G 1.24?ML
R<T PS;D 8?ML.RTF I=J,68;T !?M!LRJT !;S J=J+1;I (67-J)9.2;R?MQ\BTS J=7?M!ER2S J=1;D 1.1;O (-PS)9.6;R?MNGL S SIFAGU

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