File SOB2.FC (FOCAL source file)

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

;/()FSC U/W-FOCAL:SOB2NO/DA/TE?MB!HJS Z=Z1(D)-1;S D=D+1?MWZJJS Z=Z-1;S E=E+1;S X=X+1?MCCXJI (57-J1)12.2;T !!;S J1=J1+2;R ?MCMXTF C=J1,67;T !?M;EX^T "ING. - BUERO  B R A S S   ALFONSSTRASSE 9  8000 MUENCHEN 19   RUF 181081"!!?MDH0LI (FABS(X-R(1))-P)24.2;S 
=1?M\V0TF I=1,N-2;D 25?MD0[I (FABS(X-R(L))-P)24.3;S Y=1?M\,0^I (Y)24.4;G 24.1?M]M02S M(N)=-M(L)-2*R(L)-R(L-1);T M(N)?M]02KI (FABS(X-R(A))-P)25.2;S Y=1?ME%2UI (FABS(X-R(A+1))-P)25.3;S Y=1?M^A2^R?ME>4TF I=2+J,4,2*N-3;S G((I-J)/2+1)=V(I)?M794^F I=5-J,4,2*N-3
S G((I+J+1)/2)=V(I)?MF-BCT "*"!!"BERT.:        POS.:";T :60,"SEITE"!!!!?MF;BES LN=LN+1;O I D(LN),E?M;BHZ;A 
LN LM N 
?MGPBLI (KL)1.14;S H=1?M7GBMD 12;A 
L Z 
;F I=1,Z;D 20?M8"BOT !!"DL"!;F I=1,N;A DL(I)?M:XBVF I=1,N-2;S H=M(I)+M(I+1),MY(2*I)=-M(I)/2*H,MY(2*I+1)=-M(I+1)/2*H?MW	BXD 4?MH)B^S C=C1(E),A=A1(E),B=L-A-C?MH=B S X=C*(B+C/2)/L,Y=C*(A+C/2)/L;D 21?MIPB"S A=(A+C/2)/L,B=(B+C/2)/L,C=C/L?MI2B$S X=L*L*C*A*(4*(1
A*A)-C*C)/4,Y=L*L*B*C*(4*(1-B*B)-C*C)/4;D 22?MJBB&I (I-3)1.4;I (P)1.45;G 1.5?MJMB(S XL=XL+Q(E)*X/2?MJSB+G 1.5?MJ^B-S XR=XR-Q(E)*Y/2?MJ&B2D 5;G 1.25?MJ+B4D 4?M9>B6I (Z)1.72?MKKB9S A=(A+2*C/3)/L,B=(B+C/3)/L,C=C/L,H=1;D 23?MK[B:I (I-3)1.6;I (P)1.65;G 1.7?MK$
<D 1.4;G 1.7?MK*CAD 1.45?MK2CFD 5;G 1.54?MK7CHD 4?MK?CJI (Z)1.92?MW9CLD 1.3;S X=C*(B+2*C/3)/2*L,Y=C*(A+C/3)/2*L;D 21?ML)CNI (I-3)1.8;I (P)1.85;G 1.9?ML2CPD 1.4;G 1.9?ML8CUD 1.45?MMCZD 5;G 1.74?MMLC\S I=I+2;I (-P)1.24?MMZDJF I=,2*N-1;S M(I)=T(I)?MM-DOD 12;
 "AUSGL. F. G-AUFL.";D 24?MNGDQD 3;T "G-AUFL.";D 3;T V+V(1)+(M(2)-M(1))/O(1)?MN-DSF I=2,N-1;T V(2*I-2)+V(2*I-1)-(M(I)-M(I-1))/O(I-1)-(M(I)-M(I+1))/O(I)?MODDVT V(2*N-2)+V(2*N-1)+(M(N-1)-M(N))/O(N-1)?MORDWS V(2)=-XL,V(2*N-3)=XR?MO.DXI (N-3.5)2.3;S H=1;F I=3
2*N-4;S V(I)=H*U(I),H=-H?MXRD^Z J?MPGD"T "  I    X0L    XMF    MF     X0R?M11DI (3.5-N)2.48;S I=1?MP
D*I (V(2)-M(2))2.5?MP5D,D 3;T "AUSGLM. D. VOLLEINSPM. ERSETZT?MQDD.S M(2)=V(2);D 2.4;G 2.5?MQRD0D 26; F I=1,2,N-1;D 11?MX/D2S J=1;D 2.31,2.32,12;T "AUSGL. F. GERADE FELDER";D 24,12?MRMD4I (V(3)-M(2))2.63;D 2.44;S M(2)=V(3);D 2.4;G 2.63?MYBD<D 26;F I=2,2,N
1;D 11?M2JEAD 24;F I=1,N-1;S X=(M(I)-M(I+1))/O(I),V(2*I-1)=W(2*I-1)-X,V(2*I)=W(2*I)+X?MSSEFD 12;T "AUSGL. F. STUETZE?MS+EJT %2,1;Z J;D 8;S M=U;D 24;I (DL(1)-.01)2.8?MYYELD 3;T "    X0L   MRED    XOR";D 3?MTLERS J=-1;F K=2,N-1;D 9?MZSETD 2.7;T %2,N;S X=N/2
Y=FITR(X),Z=1;I (X-Y-.01)2.86;Z Z?M2\EXF I=3-Z,4,2*N-2;D 7?MBTFJT !;S J1=J1+1?MUNP
F I=1-J,4,2*N-1;D 7?M"FP F I=2+J,4,2*N-1;D 7?MU(RKF I=2*K,4,2*N-1;D 7?M"]RLF I=2+J,4,2*K-2;D 7?MVFRNI (J)9.2;I (K-2.5)9.2;S M=U?MV&RTD 24;S J=-J;I (-M(K))9.3;D 2.76;S I=K-1,L=O(I)-DL(I+1)-.05?M7VRYZ S;D 2.4;S I=K,L=DL(I)-.05;D 2.4;G 9.4?M7&R(S W(2*K-3)=G,
(2*K-2)=W(2*K-2)-(M(K)-M(K-1))/O(K-1)?MZ:NJS M(I)=U(I)?M^-"TR?MHYBYS P=2*N-3-I,L=O(I/2);I (Z)1.52?MLYCMS A=(A+C/3)/L,B=(B+2*C/3)/L,C=C/L,H=-1;D 23?MX"D
D 2.1;F I=1-J,4,2*N-1;D 7?M1UD F I=2+J,4,2*N-1;D 7?MQ1D3D 2.34;I (3.5-N)2.6;S I=2;D 2.4?MR[D?D 12;T "AUSGL.F. VOLLAST";F I=,2*N-1;D 7?MY=END 13;S I=1,L=DL(1)-.05,S=M(1)+W*DL(1);I (.045-DL(1))2.79;S S=M(1)?MZCEOD 2.4?MS?EPS G=W(1)-(M(1)-M(2))/O(1)?MT*EVD 2
1;F I=Z,4,2*N-2;D 7?M0HE\S I=N-1,L=O(I)-DL(N)-.05;D 2.76;Z S;D 2.4?MUAPND 2.1?M[[VTD 2.4;I (M(I)-G(I))11.3;I (M(I+1)-G(I+1))11.3;R ?MB0V^D 2.44;S M(I)=G(I),M(I+1)=G(I+1);D 2.4?M! ZTT "  K.NST?MC70JS P=.003,L=2*N-2,Y=-1,X=R(1),R(1)=-.5*(R(2)+M+M(1))?MDR0YS
X=R(L),R(L)=-.5*(R(L-1)+M(L)+M(L+1))?MD.0(D 3;F I=1,N-1;S M(I)=M(2*I-1)+2*R(2*I-1)+R(2*I);T %5.02,M(I)?M]"2IS A=2*I,H=R(A-1)+M(A)+M(A+1)+R(A+2)?MEB2JS X=R(A),R(A)=MY(A)*H?MES2TS X=R(A+1),R(A+1)=MY(A+1)*H?ME)4JS G(1)=M(1),G(N)=M(N)?M24\LD 3;T "LF";F K=1,Z;
 3;A A1(E),C1(E),G(E),Q(E);S E=E+1?M
E(JD 3;A A,B,X,Y;S C=A+B/2;I (H)20.2;S C=L-C?M5D(TS T(K)=T(K)+H*X*B*C,U(K)=U(K)+H*Y*B*C?M
2*JS V(I-1)=V(I-1)+G(E)*X,V(I)=V(I)+G(E)*Y?M I*TS W(I-1)=W(I-1)+Q(E)*X,W(I)=W(I)+Q(E)*Y?M (,JS T(I-1)=T(I-1)-G(E)*(2*Y-X)/3,T(I)=T(I)+G(E)*(2*X-Y)/3?M!G,TS U(I-1)=U(I-1)-Q(E)*(2*Y-X)/3,U(I)=U(I)+Q(E)*(2*X-Y)/3?M9".JS X=L*L*C*(270*(A-A^3)-C*C*(45*A-2*H*C))
540?M^O\JD 12;T "STW + KZ";D 3;A O(I+1);Z Z;F K=1,3;A Z1(I*3+K);S Z=Z+Z1(I*3+K)?MU[RJD 2.7;T %2,K;D 2.1;F I=2*K-1,4,2*N-1;D 7?MU5RMF I=3+J,4,2*K-2;D 7?MD6CS Z=Z1(D+1)+Z1(D+2);I (-Z)27.4;I (1-Z1(D))27.4?MU6EI (C1(E)-O(I))27.4;S Z=Q(E)?M-6HS M=B+A*A/2*Z,X=A
Z,C=A*A+2*Z*B;I (C)27.2?M$I6IS R=FSQT(C)/Z,P=X-R,R=R+X;I (-P)27.1;D 13;G 27.12?M$N6JT P?M.R6LT X,M;D 17?M$^6TD 13,27.12?M$$6^D 13;R?M$)6(D 29?M%J7FI (O(I)-P-.05)27.79;I (-B*Y)27.73;S Y=-Y;T P+.04;I (-R)27.8?M% 7II (XR*R)27.77;S R=1;I (Y*YY)27.75;D 13?M%77
S M=B-XR;T P-.01,M;D 17;I (-B)27.77;D 13?M&H7MS P=P+.05,D=D-3,E=E-X;G 27.4?M&T7OI (B-XR)27.8;D 13?M&X7PR?M&88AS D=3*(I-1)+1,E=1;Z P;I (I-1.5)28.03;F C=1,D-1;S E=E+Z1(C)?M	R8CS Z=Z1(D+1)+Z1(D+2);I (-Z)28.2;I (1-Z1(D))28.2?M	&8EI (C1(E)-A1(E)-O(I))28.2;S Z=
(E)?M(D8GS C=A*A+2*Z*B;I (S)28.15;S S=M(I+1)+W(2*I)*DL(I+1),H=1?M(%8II (C)28.1;S C=A/Z+H*FSQT(C)/Z;I (O(I)-C)28.1;I (C)28.1;T C;R?M(+8JD 13;R?M.
8OS M=B+A*DL(I);I (M-S)28.18;S M=S?M)C8TD 29?M./83I (S)28.6;I (-B*Y)28.53?M)[85I (L-P)28.55?M),86S P=P+.05,D=D-3,E=E-X;G 28.2?M)787I (-R)28.56;D 13?M*D88I (-S)28.57;S S=B;R?M*Q89I (S+B)28.58;S B=-S?M*\8:T B;S CL(I)=B;R?M*%8<I (P-L)28.63?M*18=I (S-B)28.62;
 S=B?M*?8>T S;S CL(I)=S,L=L+O(I)?M+V8?I (B*Y)28.64;I (P+.11-O(I))28.54;D 13;R?M+^9T P+.04;R?M+	:^I (-P)29.46?M,E:(S P=.01,R=-1;Z XL;I (-B-.02)29.45;S Y=-1,YY=Y;G 29.46?M,P:-S Y=1,YY=Y,R=-.5?M,X:.Z X,H;D 4?M,::/I (Z)29.49;I (P-A1(E))29.48;I (A1(E)+C1(E)-P)
9.48;S H=H+Q(E)?M-C:0D 5;G 29.47?M/B:1D 4?M-P::D 5;G 29.5?M-U:;D 4?M/2:<I (Z)29.69;I (P-A1(E))29.68;I (A1(E)+C1(E)-P)29.68?M-9;DD 5;G 29.6?M3J;ES H=.05*H,XR=(A-XL-.5*H)*.05,XL=XL+H,B=B+XR?M$V6OI (O(I)-R)27.3;T R;R?M(>8RT M;S CL(I)=M,H=-1;G 28.09?M)R84S R=
+.6,Y=-Y;I (R)28.53;T P+.04?M/^:2I (Z)29.59;I (P-A1(E))29.58;I (A1(E)+C1(E)-P)29.58?M-H:3S H=H+Q(E)*(.01483+P-A1(E))/C1(E)?M-1:=S H=H+Q(E)*(1-(.01483+P-A1(E))/C1(E))?M0)E^I (DL(N)-.01)2.98;S M=M(N)+W(2*N-1)*DL(N);I (M-S)2.96;S M=S?M05E S CL(N)=M;T M;D 13?
T7E"S W(2*N-2)=W(2*N-2)-(M(N)-M(N-1))/O(N-1),W(2*N-3)=G;G 30.1?MO3D!D 12;T "AUSGL. F. UNGERADE FELDER";S NX=27;D 24,12?MPTD(S B=M(I),A=W(2*I-1)-(M(I)-M(I+1))/O(I);D NX?MSCECS V=W,V(2*N-1)=W(2*N-1),NX=28?MZ"EZS M(2*N-1)=U(2*N-1);D 24;I (DL(N)-.01)2.94?MW"J
 (FABS(M)-FABS(MF(I)))17.2;S MF(I)=M?M3^<JD 12;T "MAXIMALE QUERKRAEFTE";Z K?M6&<TD 12;T "  I      QL       QR      AMAX?M4R<(S K=K+1;I (O(K)-.7*O(K+1))30.9;I (O(K+1)-.7*O(K))30.9?M4-<2I (K+2.5-N)30.4;D 12;T "QUERKRAEFTE AUS VOLLAST?M4;<<F I=,2*N-1;S W(I)=
(I)?M:0=FD 30.2,30.3?M5[(^S V(K)=V(K)+X*B,W(K)=W(K)+Y*B;I (H)20.7?M55((S R=FITR(10*AB(1)+HA/10)/20;I (-AB(1))20.5;Z R?M6F(2S P=Y*(A+B+R-L);I (-P)20.6;R?M9H(<S WL=WL-P;R?M6^)PS P=Y*(S-A);I (-P)20.9;R?M
[)ZS WR=WR-P?M34<^F I=,N-1;D 3;T %2,I+1,%7.02,W(2*I),W(2*I+1),W(2*I)+W(2*I+1)?MG BNS LL=L,E=1;F I=,N-2;D 14?MV=R^T "  MS POS";S CL(K)=M(K)?M[R)S G=W(2*K-1)-(M(K)-M(K+1))/O(K)?M"*6AS D=3*(I-1)+1,E=1;Z P;D 3;T %2,I,%5.02;I (I-1.5)27.03;F C=1,D-1;S E=E+Z1(C)
M:"BPI (KR)1.18;S K=2*N-1,H=-1;D 1.13;S LR=L?MG0BTF I=1,N-1;S M(I)=1/O(I)?M6O)FS S=FITR(10*AB(N)+HA/10)/20;I (-AB(N))20.8;Z S?M[9.TS Y=L*L*C*(270*(B-B^3)-C*C*(45*B+2*H*C))/540;D 22?MJ3B8D 1.3;S X=C*(B+C/3)/2*L,Y=C*(A+2*C/3)/2*L;D 21?MHTBWS D=1,E=1,I=2?M89
RI (2.5-N)1.2;L R SOB3?M:?=ZD 12.2,12.3;I (-LM)1.03?M=
T "*"?M[1X(S J1=4;T "*"!!"BETR.:        POS.:";T :60,"SEITE"!!!!?MGEBJS J1=7;A 
KL KR 
?M"?L S SOB2?M?MKL KR 
?R.:        PT(3))/K?MXWEPD 12.2,12.3;I (LM)2.9;L R SOB2?MMWEZT "*",!;Q?M?ML S SOB3?M?M=;S R=-1;I (JJ)7.04;D 3;T %2,I,%5.02?MFETL       TAU0R   TAUR   FETR?MY!B0S G(3)=G(4)*L/2,K=G(4);D 7;S G(2)=G(4)^2/G?MY5B1I (.4*G(4)-G(2))1.5;S G(2)=.4*G(4)?MZCB2S T=G(
)*L/2;D 10;

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