C-PS/8 FOCAL, 1970
 1.01 T "*",!!!!,"BETR.:      POS.        RANDEINSP. N. DIN 1045";E
 1.02 T "           SEITE",!!!!;G 1.05
 1.03 E
 1.04 S J=-100
 1.05 T "STUETZEN:",!,"OBEN :";A 
 BO DO HO 
;T !,"UNTEN:";A 
 BU DU HU 

 1.06 T !;A "RIEGEL:",
 B D B0 D0 L 
,!!
 1.07 A "LASTF. 1",T,!;I (T-1)1.12
 1.08 S T=T-1;I (T)1.12
 1.09 A 
A  C  G  Q
;D 1.81
 1.10 S A1=A+C/2;S B1=L-A1;S H=A1*B1^2-C*C*(B1-A1/2)/6
 1.11 S M=M+G*C*H/L*L;S N=N+Q*C*H/L*L;G 1.08
 1.12 A "LASTF. 2",T,!;I (T-1)1.15
 1.13 S T=T-1;I (T)1.15;D 1.09;S A1=(L*L-A*A*(2-A/L))/12
 1.14 S M=M+G*A1;S N=N+Q*A1;G 1.13
 1.15 A "LASTF. 3",T,!;I (T-1)1.21
 1.16 S T=T-1;I (T) 1.21;D 1.09;S B1=(L-A-C)/L;S A1=A/L;S C1=C/L
 1.17 S H1=B1*(10-5*C1*C1-10*B1*C1-10*B1*B1)
 1.18 S H2=A1*(5-7.5*C1^2-10*A1*C1-5*A1^2)-C1^3
 1.19 S M=M+G*L*L*C1*(H1-H2)/30;S N=N+Q*L*L*C1*(H1-H2)/30;G 1.16
 1.20 S M=M+G(V)*L*L*C3(V)*(H3(V)-H4(C))/30
 1.21 A "LASTF. 4",T,!;I (T-1)1.30
 1.22 S T=T-1 ;I (T) 1.30;D 1.09;S A1=A/L;S B1=(L-A-C)/L;S C1=C/L
 1.24 S H1=B1*(2-3*C1^2-4*B1*C1-2*B1^2);S H2=-A1*(1-A1*C1-C1^2/2-A1^2)
 1.26 S M=M+G*L*L*C1*(H1+H2-0.7*C1^3+C1)/6
 1.27 S N=N+Q*L*L*C1*(H1-H2-0.7*C1^3+C1)/6;G 1.22
 1.30 D 1.81;D 1.81
 1.31 S IO=BO*(DO/10)^3/120;S IU=BU*(DU/10)^3/120
 1.32 S DS=D0-D;S TP=B*D/100;S TS=DS*B0/100
 1.33 S S=TP*(D0-D/2)/10+TS*DS/20;S E=S/(TP+TS)*10
 1.34 S EO=D0/100-E;S I=TP*D*D/1200+TP*(EO*10-D/20)^2
 1.35 S I=I+TS*(DS/10)^2/12+TS*(10*E-DS/20)^2;I (0.1-HO)1.36;S HO=0.1
 1.36 S CO=L*IO/HO*I
 1.37 S CU=L*IU/HU*I;S MR=-M*(CO+CU)/(1+CO+CU)
 1.38 S NR=-N*(CO+CU)/(1+CO+CU);S MO=-MR*CO/(CO+CU)
 1.39 S MU=MR*CU/(CO+CU);S NO=-NR*CO/(CO+CU)
 1.40 S NU=NR*CU/(CO+CU);S RO=3*(2*HO/3-EO)/2*HO
 1.41 S RU=3*(2*HU/3-E)/2*HU;S GO=MO*RO;S GU=MU*RU
 1.42 S QO=NO*RO;S QU=NU*RU;T %7.04,"IR=",I,"  IO=",IO,"  IU=",IU,!
 1.43 T %7.04,"CO=",CO,"  CU=",CU,"  M2G=",M,"  M2Q=",N;D 1.81;T !!!
 1.44 T  "ENDMOMENTE:   OBEN     RIEGEL   UNTEN",!!;D 1.81
 1.45 T "AUS  G    :",MO,MR,MU,!
 1.46 T "ABGEMIND. :",GO,"         ",GU,!!
 1.47 T "AUS  Q    :",NO,NR ,NU,!
 1.48 T "ABGEMIND. :",QO,"         ",QU,!;D 1.81
 1.49 I (J)1.8
 1.50 S J=J+30
 1.70 F N=1,(70-J);T !
 1.72 T "ING. - BUERO   B R A S S  ALFONSSTR.9  8000 MUENCHEN 19
 1.73 T "   RUF *181081"!!
 1.80 Q
 1.81 S J=J+1;T !