File RANDES.FC (FOCAL source file)

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

L()0SSR$C-PS/8 FOCAL, 1970?MB	BBT "           SEITE",!!!!;G 1.05?MB+BCE?MB2BDS J=-100?MCWBET "STUETZEN:",!,"OBEN :";A 
 BO DO HO 
;T !,"UNTEN:";A 
 BU DU HU 
?MC+BFT !;A "RIEGEL:",
 B D B0 D0 L 
,!!?MC<BGA "LASTF. 1",T,!;I (T-1)1.12?MDHBHS T=T-1;I (T)1.12?MDVBIA 
A  C  G  Q
;D 1.81?MD1BJS A1=A+C/2;S B1=L-A1;S H=A1*B1^2-C*C*(B1-A1/2)/6?MEGBKS M=M+G*C*H/L*L;S N=N+Q*C*H/L*L;G 1.08?MEXBLA "LASTF. 2",T,!;I (T-1)1.15?ME4BMS T=T-1;I (T)1.15;D 1.09;S A1=(L*L-A*A*(2-A/L))/12?MFEBNS M=M+G*A1;S N=N+Q*A1;G 1.13?MFVBOA "LASTF. 3",T,!;I (
-1)1.21?MF6BPS T=T-1;I (T) 1.21;D 1.09;S B1=(L-A-C)/L;S A1=A/L;S C1=C/L?MGLBQS H1=B1*(10-5*C1*C1-10*B1*C1-10*B1*B1)?MG$BRS H2=A1*(5-7.5*C1^2-10*A1*C1-5*A1^2)-C1^3?MHDBSS M=M+G*L*L*C1*(H1-H2)/30;S N=N+Q*L*L*C1*(H1-H2)/30;G 1.16?MHZBTS M=M+G(V)*L*L*C3(V)*(H
(V)-H4(C))/30?MH+BUA "LASTF. 4",T,!;I (T-1)1.30?MILBVS T=T-1 ;I (T) 1.30;D 1.09;S A1=A/L;S B1=(L-A-C)/L;S C1=C/L?MI/BXS H1=B1*(2-3*C1^2-4*B1*C1-2*B1^2);S H2=-A1*(1-A1*C1-C1^2/2-A1^2)?MJDBZS M=M+G*L*L*C1*(H1+H2-0.7*C1^3+C1)/6?MJ]B[S N=N+Q*L*L*C1*(H1-H2-0.7
C1^3+C1)/6;G 1.22?MJ	B^D 1.81;D 1.81?MKB
S IO=BO*(DO/10)^3/120;S IU=BU*(DU/10)^3/120?MKVB S DS=D0-D;S TP=B*D/100;S TS=DS*B0/100?MK/B!S S=TP*(D0-D/2)/10+TS*DS/20;S E=S/(TP+TS)*10?MLJB"S EO=D0/100-E;S I=TP*D*D/1200+TP*(EO*10-D/20)^2?ML-BS I=I+TS*(DS/10)^2/12+TS*(10*E-DS/20)^2;I (0.1-HO)1.36;S HO=0
1?ML7B$S CO=L*IO/HO*I?MMNB%S CU=L*IU/HU*I;S MR=-M*(CO+CU)/(1+CO+CU)?MM(B&S NR=-N*(CO+CU)/(1+CO+CU);S MO=-MR*CO/(CO+CU)?MM>B	S MU=MR*CU/(CO+CU);S NO=-NR*CO/(CO+CU)?MNVB(S NU=NR*CU/(CO+CU);S RO=3*(2*HO/3-EO)/2*HO?MN/B)S RU=3*(2*HU/3-E)/2*HU;S GO=MO*RO;S GU=
U*RU?MOQB*S QO=NO*RO;S QU=NU*RU;T %7.04,"IR=",I,"  IO=",IO,"  IU=",IU,!?MO3B+T %7.04,"CO=",CO,"  CU=",CU,"  M2G=",M,"  M2Q=",N;D 1.81;T !!!?MPPB,T  "ENDMOMENTE:   OBEN     RIEGEL   UNTEN",!!;D 1.81?MP B-T "AUS  G    :",MO,MR,MU,!?MP5B.T "ABGEMIND. :",GO,"
        ",GU,!!?MQFB/T "AUS  Q    :",NO,NR ,NU,!?MQ^B0T "ABGEMIND. :",QO,"         ",QU,!;D 1.81?MQ%B1I (J)1.8?MQ,B2S J=J+30?MRDCFF N=1,(70-J);T !?MQ;CPQ?MCQS J=J+1;T !?MSFCHT "ING. - BUERO   B R A S S  ALFONSSTR.9  8000 MUENCHEN 19?MBTBAT "*",!!!!,"BETR.
      POS.        RANDEINSP. N. DIN 1045";E?MQ7CIT "   RUF *181081"!!?M  L S RANDES?M?M081"!!?M      POS.        RANDEINSP. N. DIN 1045";E?19?M.98;G 8.3?MS%H.I .0B4. F .2&0..B0*0B * B * B *6:0*0B0* B *1:4.0B4. F .6F0..Z0*5B * B * B *2:9*8B0* B *2:8.0B4. F
.9F0..N1*0B * B . N *7:0*6B5* B . J .8B3..R3* B * B * B .0B.*0B * B .1F0*2:9*8B6* B * B . B ..B0* B * B .2R9.2&.*9B * B * B * :0*0B0* B * B . B ..B0* B * B * B 

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