File RAUF.FC (FOCAL source file)

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

()0(BTC-PS/8 FOCAL, 1971?M$KBAE?MB8BTS H=D0-D;S P=B*D/100;S A=H*B0/100;S R=P*(D0-D/2)/10+A*H/20?MC[BVS C=R/(P+A)*10;S O=D0/100-C;S KR=(P*D*D/1200+P*(10*O-D/20)^2)/L?MN
BWS KR=KR+(A*(H/10)^2/12+A*(10*C-H/20)^2)/L?MS4BYS U(K)=KU(K)/2*R;S R(K)=KR/2*R?M]YB\S R(K)=-.5;G 1.26?MM>B)S A=A(N);S C=C(N);S E=E(N)?MD+B,S L1=L;S R1=R?MOAB-S E=A(N);S A=E(N);D 1.42;D 1.43?ME
B/S GA=GA+G*G(N);S QA=QA+G*Q(N);S GB=GB+Q*G(N);S QB=QB+Q*Q(N)?MFB0S GL=GL-L*G(N);S QL=QL-L*Q(N);S GR=GR+R*G(N);S QR=QR+R*Q(N)?MU?B1G 1.38?MFUB3S T=T-1;I (T)1.6;S N=N+1?MF.B4D 1.4;D 1.41;D 1.42;D 1.43;S TG(N)=Q(N)/C(N)?MGDB6S G=C*(E+C/3)/2*S;S Q=C*(A+2*C/3
/2*S?MGNB8D 1.47;D 1.48?MU	B:G 1.51?MGB=S T=T-1;I (T)1.7;S N=N+1?M	9B>D 1.4;D 1.45;S R1=L;S L1=R;S TG(N)=-Q(N)/C(N)?MHFCHS K=2;S Z=-1?MH%CIS K=K+Z;S Z=-1*Z;S T=N(K)+V(K+Z);S D=V(K);S V(K)=T*R(K)?MK!CJD 1.73;D 1.73;I (.003-FABS(D-V(K)))1.72;D 1.73;I (.003-
ABS(D-V(K)))1.72?M
0CLD 1.73;D 1.75;I (U)1.8?MI$CND 1.73;D 1.77?MK5COS N(1)=QL;S N(2)=QR;S U=-1;S V(2)=QR*R(2);G 1.72?M[QCQD 1.73;D 1.8;S E=(R(2)+R(1))/S;S D=(L(2)+L(1))/S?MBXBSS KR=B0*(D0/10)^3/120*L;G 1.24?MUNB&S T=T-1;I (T)1.5;S N=N+1;S TG(N)=?MD!B+S R=C*(10*(3*E+C)*(3*A
2*C)^2-15*C*C*(3*A-S)-28*C^3)/540*S*S?MILCKS KO(K)=T*2*O(K);S KU(K)=T*2*U(K)?MI?CPS R(K)=N(K)+2*V(K)+V(K+Z);S RO(K)=KO(K);S RU(K)=KU(K)?ML"HJS MD=;S QD=;S I=;S MX=M?MSPHTS I=I+1;I (N-I)4.3;G 5.05?M^8H2I (MX-M)2.2;I (Z1)4.6;D 2.1?MMLIFD 2.1;G 2.22?MO,IPT S
X;G 2.22?MM(JOI (T)5.3,5.2;S QX=(X-A)*T;G 5.4?MM3JTS QX=Q(I);G 5.4?MO;J^S QX=-(C-X+A)*T?MKB*S L=C*(10*(3*E+C)^2*(3*A+2*C)-15*C*C*(3*E-S)-17*C^3)/540*S*S?MC3BXS R(K)=;I (S(K))1.26,1.28;S R=-KU(K)-KO(K)-KR;S O(K)=KO(K)/2*R?MD>B.S Q=C*(E+C/2)/S;S G=C*(A+C/2)
S;S LG=L;S L=L1+R;S R=R1+LG?MR2JHS A=S-A(I)-C(I)?MO!JEI (Z)5.08;S A=A(I);G 5.1?MZ(J(S MD=MD+D*D*DQ/3-D*D*QX/2;S QD=D*QX-DQ*D/2+QD;G 4.2?MRVDOS Z1=1;S Z=1;S X=?ML2H(I (-MX*M)4.5;I (Z)4.8;T X;S Z1=-1;G 2.2?M]PDVT -R(2)?MQ"DKI (1-N)2.15;I (D-A(1))2.15;I (C(1
-S)2.15;S T=QA;S Q=Q(1)?MQ2DLS X=T/Q-FSQT(T*T+2*Q*M)/Q?MPXDMT X;S X=T/Q;T X,X*T-X*X*Q/2+M;S T=QB;S M=-R(2);D 2.12;T S-X;G 2.22?MP;DTS X=X+D;G 4.1?MXJC"S M=R(1);S Q=QA;S D=.05;S Z=1?MMUJJS C=C(I);I (X-A)4.2;I (A+C-X)4.2;S T=TG(I)*Z;S DQ=T*D?MP$H^S M=M+MD+Q
D;S Q=Q-QD?MQBDJT "    K.N.ST.?MV9CTT :4"OBERER STAB:?MDEBZI (1-K)1.3;S K=2;G 1.09?M 4BNS  KN=LG*B*(D/10)^3/120*W?MTCBMS W=1;I (H-.1)1.14;S W=H?MTSBLA " STAB:":15,
 B D H 
 ,:35,
 LG 
?M"\BFT :4"1) KONSTR.: ST.-B. STABWERK";S =7?MDQB(D 8;A A(N),C(N),G(N),Q(N);S E(N)=S-A(N)-C(N)?MGTB<D 9;A "LF DREIECKSLAST FALLEND    ANZAHL"T?MFFB2D 9;A "LF DREIECKSLAST STEIGEND   ANZAHL"T?MG=CGD 8;T "Q:":29,QL,QR;S N(1)=GL;S N(2)=GR;S U=;S V(2)=N(2)*R(
)?MWICUT :29,LO(1),:49,LO(2);D 9?MWZCVT "   RIEGEL:":34,L(1),L(2)?M$3CWD 9;T "   UNTERER STAB:?M\)CYD 9;T "   RIEGEL:":34,R(1),R(2);D 1.87;T :29,RU(1),:49,RU(2)?M^UDED 9;T "MOM.-NULLPKTE. / FELDMOM.:";D 9;T :9"M1":20,"X0L",:31,"XMF",:40,"MAX M?MYLFTT "ING
 - BUERO  B R A S S   8 MUENCHEN 19?MYF^T "   KRATZERSTRASSE 9   RUF *153092"!!?MLSF(Q?MY9PTD 3.1;D 3.2;D 3.3;S =7;D 1.05?MZQP^T :9;R?MY	PJT !;S =+1;I (62-)8.2;G 8.3?MRJT !;S =+1;D 8?MZ"NTD 8.2?MY?N^T :4;R?MZ\NJT !!;S =+2;I (62-)7.2;G 7.3?MT7BET "*"!!"BET
.:":15"POS.":60"SEITE"!!!!!?M[5CRS GA=GA-D;S GB=GB+D;S QA=QA-E;S QB=QB+E;D 7;T %9.02"3) KNOTEN- U.?MS(CST " RIEGELMOMENTE, QUERKRAEFTE, MOM.-NULLPKTE.";D 9;T "KN.-MOMENTE:":36"KN 1":56"KN 2";D 9;T "G :?M&5CZD 9;T "QUERKRAEFTE:  G:":29,GA,:49,GB;D 9;T :23,
Q:",:29,QA,:49,QB;S K=?MX4FJF I=,67;T !?M%0B^S K=1;D 9;T %4.03"VERT.-ZAHLEN: ";D 8;T "LINKS :?MJ,B$D 7;T "2) BELASTUNG:";D 9;A "LF BLOCKLAST":36"ANZAHL"T;S S=L?M
^DFT :53"X0R",:64"M2";T !!%9.02,M;I (.02-FABS(M))2.08;D 2.1;S Z1=-1?MMCH<T X-D,MX;I (FABS(R(2))-.02)4.7,4.7;S X=;S M=-R(2);S Q=QB;S Z=-1;G 2.2?MS^DHS =+2;I (T(N))2.15,2.11,2.15?MIZCMS L(K)=N(K)+2*V(K)+V(K+Z);S LO(K)=KO(K);S LU(K)=KU(K)?MVWCFD 9;T %9.02"VO
LEINSP.-MOM.:":35"LINKS":45"RECHTS";D 9;T "G:":29,GL,GR?M!
BOD 8;T "UNTERER";S KO(K)=KN;S OE(K)=LG;S HO(K)=H;D 1.12;S W=1;I (H-.1)1.17;S W=H?M!:BQD 1.14;S D(K)=D;S KU(K)=KN;S UE(K)=LG;S HU(K)=H?MJZBRI (1-K)1.24;D 9;A "RIEGEL ",
 B0 D0 B D L 
;I (B-1)1.19;G 1.2?M]BID 9;T "KNOTEN"%2,K,:25"S ";A S(K);I (S(K))1.18,1.18?MQC]S D=KO(K)/HO(K);I (OE(K)-1)1.94;S D=1.5*D?M	IC^I (U(K))1.95,1.92?MT"BJD 8;T "OBERER ?MZ:BCT !"ABLIEGENDE STABENDEN: VOLLEINGESP.: LG=1, GELENKIG: LG=0.75"!!?M	BBS K=1;T !"KN. M
T 2 0D. 3 STAEBEN: S=1, GELENKIG: S=0, VOLLEINGESP.: S=-1?MW)CXT :29,LU(1),:49,LU(2);D 9;T "Q :";D 1.84;T :29,RO(1),:49,RO(2)?M"9C\S D=;S E=;S K=K+1;I (2-K)1.97;I (O(K))1.93,1.94?M&FB T "UO=",O(K)," UU=",U(K),"  UR=",R(K)?M]4B"S K=2;D 8;T "RECHTS:";D 1.32
D 9;T "I-RIEGEL:"%6.03,KR*L," DM^4?M(FC S N(K)=E+D;G 1.92?M%UC[S K=;D 9;T "NORM.KRAFT IM RIEGEL:?M&)C
S E=KU(K)/HU(K);I (UE(K)-1)1.96;S E=1.5*E?M NCBS R=R1;S L=L1;S G=G1;S Q=Q1;D 1.56;G 1.61?M	!CD 1.54;S G1=Q;S Q1=G?MR C!T N(1),N(2)," MP";D 8;T "FESTHALTEKR.:":30,N(1)+N(2)?M2)L S RAUF?M?M97?M?M";D 8;T "FESTHALTEKR.:":30,N(1)+N(2)?M2)?MSP.: S=-1?))1.18,1.1
?(B-1)1.19;G 1.2?.17;S W=H?*?JD^FJ 7<J 9DB<ZC8D8A9V8F74J<^E7;+*9P?H+5JCJ<<(+8ZC+	RG*-+9S?2KKB74Z]8H/?G5

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