File RNKPA.FC (FOCAL source file)

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

==QS()0C DATAPLAN-FOCAL73?MF!BJE?MB\>AR?MB$>JO I TTY:,E?MB+>LO O TTY:?MMM>NC?MDB7S N=I1;D 31.3;D 31.32?MWDKFI C;G 5.8?MCOQRR?MDGQFO R O?MCURJS H=1?MXGRTI (.1-FABS(FITR(A(H))-N))9.4?MT*R(S H=H+3;I (H-AZ-.1)9.2;R?MG7KZO C?MG(J^S M=1;I (-.1+M1)5.75?MCEQLT %3
(AZ+2)/3,!;I (AZ)8.82;F N=1,20;D 9?MQUH(I C?MGOD^D 31.1;D 31.12?MF"D-S M=1;S K=1;D 31.1;D 31.12?MESD7A :14,AU(M+1),:22,AU(M+2),:29,AU(M+3)?ME	EFI (76-M)2.75;S M=M+4;S K=K+4;G 2.5?MFFEKA !!"KORR.
"M;I (M-.1)2.8;A "  KZ"M;D 2.5;D 2.55;G 2.75?MFREPI (AU(K)-.01)2.94?MF/EUO R O?MP<E\G 2.45?MQQER?MJ(D2T !%2,M;A "  "AU(M)?MFXEZF M=1,4,K;T %3,AU(M),%6.02,AU(M+1),%2,AU(M+2),%6,AU(M+3),!?MD-D(T !!!"  KZ PERS.NR. STD. TAETIGK. AUFTR.NR.?MVZJ(S N=I1-1;D 31.3
;D 31.37?MG;LJC?MIGL(O T?MHRBTA !!!"EINGABE 
"M;I (M-.1)3.1?MLNB"A !!"MONAT(Z.B. 10.74)"M;I (M-12.99)1.35;T "   FEHLER";G 1.34?MJGF(A !!"UEBERTRAG VOM VORMONAT 
"M1?MIQMFD 31.1;D 31.12?MMUMPQ?ML(FTA !!"MONAT(Z.B. 10.74)"M;I (M-12.99)3.3;T "   FEHLER";G 3.2?MIUFJA !!"RECHNEN 
"K;I (K-.1)6.8?MJ]HJS N=I1;D 31.4;D 31.42;S DU=FX(4095,0)?MK"HOD 31.44;D 31.45?MKD4I (AU(M)-.01)2.75;I (AU(M-4)-AU(M)-.1)2.55?MD=D5A "  PERS.NR. IN AUFSTEIG. REIHENFOLGE ! ZURUECK ZU KZ"M;G 2.5?MX-HTA AZ;F I=1,AZ;D 21?MU/*AC STD.SATZ?MLF*TS M=FIN();I (159
1-M)21.2?MMY*^S M=FIN()?MB/BS I=FITR(M);S I1=FITR(((M-I)*100-74)*12+I+.01)?MH4F^S I=FITR(M);S I1=FITR(((M-I)*100-74)*12+I+.01)?MOC> O O SYS:RNK0(N)?MPX>^C?MO<>(C?MSAN^C?MM-8ET !;S J=FOUT(140);F J=1,400;S J=J?MNW8JT "BUERO FUER INGENIEURBAUWESEN OTTO PAULE
 SCHWAEBISCH GMUEND T.07171/2000"!!?MN&8TT %6,"AUFTRAG-NR."AU(1)?MN58^T %6.01,:30,"POS.:"AU(2)?MBX8(T :65,"SEITE"!!;S J=6?MON>!O I SYS:RNK0(N)?MOZ>"CO O DTA1:RNK1(N)?MO&>CO I DTA1:RNK1(N)?MO1>$O O SYS:RNK1(N)?MMQ>%O I SYS:RNK1(N)?MPE>*O A DSK:RNK2?MPO>,CO
I DTA0:RNK3?MYD>-O I DSK:RNK3?MMB>
CO I DTA1:RNK0(N)?MP+BAC RNKPA?MBTBET !!!"DATA-PLAN PROGR. RNKPA?MF^E^S K=K-4;D 2.85;D 2.9;T -1;O C;G 3.05?MI6FEE?MQ	H2S N=I1;D 31.31;D 31.33;S M=501?MQ0H<A N;I (N)4.8?MW"IAA H1,H2,H?MRQIKS DU=FX(M+3,H2);S DU=FX(M+4,H);S M=M+5;G 4.6?MR\IPS DU=FX(500,M-5)?
R!IUI C?MC:IZS N=I1;D 31.34;D 31.36?MV%J<A AA;F M=1,AA;D 10;D 8?MC5KPC?MSHPJS AZ=-2?MU6PTS N=FX(500);S I=501?MS2P2S AZ=AZ+3;S A(AZ)=FX(I+3)+FX(I)/1000;I (FX(I+1))8.54?MTJP4S A(AZ+1)=FX(I+1);S A(AZ+2)=FX(I+2);G 8.56?MT\P6S A(AZ+1)=0;S A(AZ+2)=-FX(I+1)?MCIP
S I=I+5;I (I-N-.1)8.4?MT6TJF K=1,40;S A(K)=0?MT;TOA H?MYTTTA K;I (K)10.4?MYT(A AZ;I (AZ-.1)10.55?MYUT %1,-1?MZFT7T %6,H,!;I (.01-H)10.6;D 10.1;G 10.64?MK6*JA M,A(M)?MSUP(I (.01-FABS(FX(I+4)-H))8.56?MQ8IHS DU=FX(M+1,0);S DU=FX(M+2,-H1)?MR/J2O R O;T %3,AY,!
MB=KAI (AY-AA-.1)5.7;F K=AA+1,AY;S H=FX(K);T %6,H,!,%1,-1;D 8?MR=KKO R O;T %3,AY,!;F K=1,AY;S H=FX(K);T %6,H,!,%1,-1;D 8?MVGIFS DU=FX(M,N);I (H1)4.72;S DU=FX(M+1,H1);S DU=FX(M+2,H1*A(N));G 4.75?MC&R^T %3,FITR(A(H)),FITR((A(H)-FITR(A(H)))*1000+.1),%6.02,A(
+1),A(H+2),!?MD^H^A AY;F I=1,AY;A M,N;S DU=FX(M,N)?MK.UR?M?T !!"PROGR. RNKPA  31.1.75?MUET^A A(2*K-1),A(2*K);G 10.2?MUYT2F H3=1,AZ;A K,N,H1,H2;S A(2*K-1)=A(2*K-1)+H1;S A(2*K)=A(2*K)+H2?MURT<F K=1,20;I (FABS(A(2*K-1))+FABS(A(2*K))-.01)10.99;T %2,K,%8.02,A(
*K-1),A(2*K),!?M?ML S RNKPA?M? (FABS(A(2*K-1))+FABS(A(2*K))-.01)10.99;T %2,K,%8.02,A(2*K<HV8 KV8!K3< ,I
4O5K3
6O7K3
5
72IK8
:K8
;K9
<2C
=K>
?KV/2OEJCBBBTBHBA%^%"J;F^F$L:K7MQMDUJJS S(K+NK*I)=U(I);S T(K+NK*I)=V(I)?MD/LEA "  U"US(I),"  V"VS(I),"  F"D(I);S DF(I)=D(I)?MKQLGA !"        IX	"XS(I),"   IY	"YS(I),"   IXY	"I3(I),"   E"EC(I)?MC-D^S U(I)=U(1);S V(I)=V(1);S S(K+NK*I)=U(1);S T(K+NK*I)=V(1)?
FOVTF I=1,N(K);T " "U(I)," "V(

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