File DLT4.FC (FOCAL source file)

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

XY()NGC U/W-FOCAL:DLT4NO/DA/TE?MB!HJS Z=Z1(D)-1;S D=D+1?MB,JJS Z=Z-1;S E=E+1?MWTNAS D=3*(I-1)+1;S E=1;I (I-1.5)7.02;F C=1,D-1;S E=E+Z1(C)?MC NDI (-B-.02)7.05;S Y=-1;S YY=Y;G 7.06?MC-NES Y=1;S YY=Y;S R=-.5?MC7NFS X=;S H=;D 4?MDWNGI (Z)7.19;I (P-A1(E))7.08;
 (A1(E)+C1(E)-P)7.08;S H=H+Q(E)?MDNHD 5;S X=X+1;G 7.07?MD(NSD 4?MECNTI (Z)7.29;I (P-A1(E))7.28;I (A1(E)+C1(E)-P)7.28?MEWNUS H=H+Q(E)*(.01483+P-A1(E))/C1(E)?MEN\D 5;S X=X+1;G 7.2?ME(N]D 4?MFCN^I (Z)7.39;I (P-A1(E))7.38;I (A1(E)+C1(E)-P)7.38?MFYN
S H=H+Q(E)*(1-(.01483+P-A1(E))/C1(E))?ML8N&D 5;S X=X+1;G 7.3?MGN(I (JJ)7.51;I (O(I)-P-.05)7.49;I (B*Y)7.41;G 7.43?MGFN)S Y=-Y?MMQN*T P+.04;I (-R)7.5?MG"N/S P=P+.05;S D=D-3;S E=E-X?MM;N0G 7.06?MG,N2R?MG=N3I (VV)7.6;I (B*Y)7.52;G 7.53?MHPN4S R=R+.6;S Y=-Y;I
(R)7.53;D 7.42?MH\N5I (L-P)7.54;G 7.47?MH(N6I (-R)7.55;D 7.44?MH5N7I (-VV)7.56;S VV=B;R?MIBN8I (VV+B)7.57;S B=-VV?MIMN9S M=B;T M;D 8;R?MIYN<I (L-P)7.61;G 7.63?MI&N=I (VV-B)7.62;S VV=B?MI6N>S M=VV;T M;D 8;S L=L+O(I)?MJLN?I (B*Y)7.64;I (O(I)-P-.11)7.65;G 7.
7?MJSOD 7.42;R?MJZOAD 7.44;R?MK2PJI (2-AA)8.3,8.2;S MF(1)=M;R?MJ>XJI (57-J1)12.2;T !!;S J1=J1+2;R ?MKHXTF C=J1,67;T !?MW8X^T "ING. - BUERO  B R A S S   ALFONSSTRASSE 9  8000 MUENCHEN 19   RUF 181081"!!?MK;PTS CL(1)=M;R?MJ+P^S CL(2)=M?MLZ*JS V(I-1)=V(I-1)+
(E)*X,V(I)=V(I)+G(E)*Y?M*TS W(I-1)=W(I-1)+Q(E)*X,W(I)=W(I)+Q(E)*Y?MBTFJT !;N J1?MF%N	S H=.05*H,XR=(A-XL-.5*H)*.05,XL=XL+H,B=B+XR?MW/N+I (XR*R)7.47;S R=1;I (Y*YY)7.45?MGRN-S M=B-XR;T P-.01,M;D 8;I (-B)7.47;D 7.44?MG(N1I (B-XR)7.5;D 7.44?MNXBES D=1,E=1,I=2,
=O(1),K=L;D 4?MN,BJI (Z)1.2;S C=C1(E),A=A1(E),B=L-A-C?MODBOS X=C*(B+C/2)/L,Y=C*(A+C/2)/L;D 21,5;G 1.1?MOIBTD 4?MO]B^I (Z)1.4;S C=C1(E),A=A1(E),B=L-A-C?MO8BS X=C*(B+C/3)/2*L,Y=C*(A+2*C/3)/2*L;D 21,5;G 1.3?MO=B(D 4?MPQB2I (Z)1.6;S C=C1(E),A=A1(E),B=L-A-C?MP
B7S X=C*(B+2*C/3)/2*L,Y=C*(A+C/3)/2*L;D 21,5;G 1.5?MULB<D 12;T "G-AUFL.";D 3;S X=(T+T(3))/L?MQ[CT V+V(1)+(U(3)+T)/L,V(2)+V(3)-(U+T(3))/L;D 12?MU)DET "FELDMOMENT";D 3?MQ8DOS JJ=1,I=1,B=-T,M2=T(3),AA=1?MT%DTS A=W(1)-(B-M2)/K;D 7?MVADWS B=-U,JJ=-1;I (DL(1)-.
1)2.33?MR!D\S AA=2;D 2.2?MR>D!S B=-T,M2=U(3);I (DL(2)-.01)2.38;D 3;S L=K-DL(2)-.05?MVXDD 2.25;S VV=-U(3)-W(3)*DL(2);I (.045-DL(2))2.36;S VV=-U(3)?MS/D(D 12;T "MAXIMALE QUERKRAEFTE?MTED)D 3;T "  I      QL       QR      AMAX?MWMEKF I=,1;D 3;T %2,I+1,%7.02,W
2*I),W(2*I+1),W(2*I)+W(2*I+1)?MRFDVD 12;T "STUETZMOMENTE?MS^D&S W(2)=W(2)-(U(3)+T)/K,W(1)=W(1)+(U+T(3))/K?MQAB>T %7.02,V+V(1)+X,V(2)+V(3)-X;D 12;T "MIN-AUFL.";D 3?MQ	DJT "  I      X0L      XMF      MF       X0R?MV(DYD 3;T "      X0L     MRED      X0R";D 3
MT3D$S AA=3;D 2.2;T "    K.NST?MRXD[T "    K.NST";S L=DL(1)-.05,VV=-U+W*DL(1);I (.045-DL(1))2.28;S VV=-U?ML1EPL R DLT3?MCKNBS P=.01;S XL=;S R=-1;I (JJ)7.04;D 3;T %2,I,%7.02?MM$N,T "    K.NST?MLCX(S J1=5;T "*"!!"BETR.:        POS.:";T :60,"SEITE"!!!!,%7.02
MJ1L S DLT4?M?METR.:        POS.:";T :60,"SEITE"!!!!,%7.02?V=-U?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(2)*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