File ANAPC.FC (FOCAL source file)

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

7P%.()0C-ANAPC.FCNOV-77?M6,BAC   ANAPC.FC, LV-DATEI ERSTELLEN + KORR., ENDE 4.33, ANAPCA 25.25?MCHBBC   -SB- , -CD- , KORNTAL?MCMBCD 20?MCQBJE?MC$BTT !!"ANAP : ANGEBOTSAUSWERTUNG"!?M0?BYF DU=1,6;T "="?MC4B\S DY=?MDZB]A !!"EINGEBEN (1), AENDERN (0), AUSDRU
KEN (-1)
"DU;I (DU)25.01,21.01?MD1B^A !!"TITEL-NR."N,!,"TITEL-BEZ. (60 Z):"!?MEFB S DY=DY+1;S X=FIN();I (X-254.5)1.34?METB!T "\";S DY=DY-2;G 1.32?ME	B"I (X-141.5)1.36;S X(DY)=X;G 1.32?ME/B$S DY=DY-1?MFAB(A "TEXT-BUCH-NR. (BELIEBIG)"NB?MFMB-D 3.9;I (-KO)1.28?MFSB2D
3.8?MFYB<D 31.3?MF
CFO R O?MF%CKD 3.4?MF4CPI (DY-60.5)1.85;S DY=60?MGDCUF DU=1,DY;S DI=FOUT(X(DU))?MGWDAC   DIE EINZELNEN POS. ABFRAGEN?MGDES R=;S TA=17;S VP=?MHGDGT !;D 31.12;D 2.15;D 2.2;A :8,NT;S DZ=NT;G 2.28;C NUR BEI 1. POS.?MHNDJD 31.12?MHWDOS R=R+1;D 6?MH^DTT !,%3,R?
IEDWA :8,NT;I (NT+.1)2.26;I (NT-.1)4.01;I (999.5-NT)2.95;I (KE)2.25;S VP=DZ?MI DYI (NT-VP-.1)2.95;I (KE)2.28;S DX=DZ;D 10;G 2.28?MI2DZS TA=17;S R=R-2;S KE=-1;G 2.15?MJRD\S KE=1;A :TA,ST;I (-ST)2.3;S R=R-1;S KE=-1;S TA=17;G 2.15?MJ
D^T :(TA+13),":";S DY=?MJ3D S DY=DY+1;S X=FIN();I (254.5-X)2.9?MKFD"I (X-141.5)2.36;S X(DY)=X;G 2.32?MKPD$S DZ=NT;G 2.15?MK^EZT "\";S DY=DY-2;G 2.32?MK+E
D 3.1;S TA=30;G 2.2?MK<FAC   MEHRF. VERW. STATEMENTS?MLIFJT "  UNZULAESSIG",!?ML%FTS DZ=QL*41+QL;S DU=FX[DZ-31,PO];S DU=FX[DZ-30,ME]?ML/F^S DU=FX[2,QE]?MMCF(S DX=NB;D 14;S DX=N;T " ";D 14;T !?MMVF2S DX=QP+QH;D 15;T " ";S DU=;D 5?MM^F<S DY=FIN()?MM.GFT !"M
X. ANZAHL ERREICHT"?MNIGPT !!"ZEILE  POS      MENGE",:30,"KURZTEXT (40 Z)?MNSGZA !"KORR.
"KO?MN*HAC   SCHLUSS,AUS 2.23, 6.10, 22.40, 25.28?MN8HEI (KE)4.1;S DX=DZ;D 10?MOLHJO R O;T "  0",!;O C;D 31.1;D 31.12?MO]HTA !!"WEITER
"DU;I (-DU)1.28?MO!H^E?MO%H!R?MO3JAC   UP ZU 3.50, 22.22?MPGJJS DU=DU+1;D 3.6;I (DY-141)5.2,5.3?MPSJTS QK(DU)=DY;G 5.1?MP!J^D 3.6;S DZ=DU-1;O R O?MP2J(F DU=1,DZ;S DY=FOUT(QK(DU))?MP7J2T !?MQILAC   UP ZU 2.15 - MAX. 299 POS?MQ LJI (R-295)6.4;I (R-299.5)6.2
D 3.7;G 4.01?MQ8LTT !"NOCH",%1,300-R," POSITIONEN EINGEBEN !?MQ<L(R?MRFPAC  UP ZU 21.32?MR]PJD 3.6;I (DY-245.5)8.2;T "\";S QZ=QZ-2;R?MR)PTI (DY-141)8.3,8.5?MR;P^I (QZ-40.5)8.4;I (49-QZ)8.7;R?MSEP(S QK(QZ)=DY;R?MSRP2F QZ=QZ,40;S QK(QZ)=?MSZP<S QZ=51;R?MS
QFT !?MS1RAC   UP ZU 23.25, 23.28, 23.67?MTDRJS DX=PO+QH;S ST=FX[DZ-30];O R O?MTORTD 15;D 12;S QZ=?MT	R^S QZ=QZ+1;I (40.5-QZ)9.5;S QK=FX[DZ-30+QZ]?MT:R(I (QK-.5)9.5;S DY=FOUT(QK);G 9.3?MT?R2T !?MUVTAC   UP ZU 2.25, 4.05 : POS. ABSPEICHERN?MU\TJO R O?MU$TT
 15;D 12?MU3TYI (DY-41.5)10.3;S DY=41?MVDT^F DU=1,DY-1;S DI=FOUT(X(DU))?MV	UPT !;D 31.12;S TA=7;I (NT-9.5)10.9;S TA=6;I (NT-99.5)10.9;S TA=5?MV+UZR?MV9VAC   UP ZU 22.43, 23.09?MWIVJI (QV-QP)11.2;S QV=QP+QH;R?MWOVTS QH=?MW*XAC   UP ZU 9.20, 10.20, FORMAT F
ER ST BERECHNEN?MXHXJI (ST-9999.999)12.2;I (ST-999999.99)12.5;T %8,ST," ";R?MX!XTI (FITR(ST)-ST+.0001)12.30;T %4,ST,"     ";R?MX>X^I (FITR(10*ST)-10*ST+.0001)12.40;T %5.01,ST,"   ";R?MY[X(I (FITR(100*ST)-100*ST+.0001)12.45;T %6.02,ST,"  ";R?MY&X-T %7.03,S
," ";R?MY>X2I (FITR(ST)-ST+.001)12.60;T %6,ST,"   ";R?MZYX<I (FITR(10*ST)-10*ST+.001)12.70;T %7.01,ST," ";R?MZ$YFT %7.02,ST," ";R?M[A\AC   UP ZU 3.40 : AUSGABE DX MIT FOUT() IM I2-FORMAT?M[T\JI (DX-9.5)14.3;S DI=FITR(DX/10)?M[,\TS DU=FOUT(176+DI);S DU=FOU
(176+DX-DI*10)?M[0\YR?M[?\^T " ";S DU=FOUT(176+DX)?M\"^AC   UP ZU 3.50, 9.20, 10.20 : AUSGABE DX MIT FOUT() IM I3-FORMAT?M\?^JI (DX-99.5)15.3;S DU=FITR(DX/100);S DI=FOUT(DU+176)?M][^TS DX=DX-100*DU;S DU=FITR(DX/10);S DI=FOUT(DU+176)?M](^YS DX=DX-10*DU;G 1
.6?M^G^^T " ";I (DX-9.5)15.5;S DU=FITR(DX/10);S DI=FOUT(DU+176)?M^T^(S DX=DX-10*DU;G 15.6?M^Z^2T " "?M^&^<S DI=FOUT(DX+176)?M^0(AC   UP ZU 1.03?M
H(JS NN=1234567.11-1234567;I (NN)20.2,20.2;R?M
Y(TT !"BITTE FOCD RUFEN !";L E?M
**AC   VON 1.29 - DATEI AENDERN?M
8*JD 31.5;S DU=FX[2303,0]?M S*MA !!"TITEL-NR. ALT"QA,"  NEU"N;D 3.9;I (-KO)1.28?M *PS DY=FX[0,QA];S DY=FX[1,N]?M +*SD 3.8;T !?M 7*VS QL=;S QM=;S KO=?M!N*WS QL=QL+1;I (QL-54.5)21.24;D 3.7;G 21.8?M!!*XT %3,QL;A :8,PO;I (PO)21.42,21.8?M!2*ZI (QM-PO)21.29;D 3
1;G 21.24?M"B*]S QM=PO;A :17,ME;T :30,":"?M"L* F QZ=1,50;D 8?M"R*D 3.2?M"&*&F QZ=1,40;S DU=FX[DZ-30+QZ,QK(QZ)]?M"3*)I (-KO)21.83;G 21.23?M":**S DU=-PO?MK*-I (QM-DU)21.48;D 3.1;G 21.24?MR*0S QM=DU?M[*3S ME=;D 3.2?M-*6F QZ=1,40;S DU=FX[DZ-30+QZ,0]?M<*9T !;I
(-KO)21.83;G 21.23?M$I+PS QE=QL-1;D 3.3;T !?M$	+SA "KORR.-ZEILE"KO;I (54.5-KO)21.89;I (-KO)21.86;G 22.1?M%F+VI (QE+1.1-KO)21.89;I (KO-QE)21.92;S QE=KO;D 3.3;G 21.92?M%P+YD 3.1;G 21.83?M% +\S QL=KO;S QM=;T !;G 21.24?M%4,AC   VON 21.83 - DATEI UMSCHREIBEN?M
G,JS QA=FX[0];S N=FX[1];S QE=FX[2]?M&T,MD 31.4;A NB,DU;D 3.6?M&],PD 31.3;D 3.4?M&&,SO R I;S DU=?M&+,VD 5?M	A,%S QC=;S QV=;S QH=;S QQ=;F QL=1,QE;D 23?M	M,(I (-QP)22.43;G 4.1?M	,+I (QP-PO-.5)22.49;I (QH-.5)22.46;D 11?M	,,.D 3.5;S QD=?M	>,1I (-QD)22.46;O R I
A QP;G 22.4?M(R.AC   UP ZU 22.37 - POS. UMSCHREIBEN?M(X.CS QD=?M(&.DI (QQ-.5)23.06;G 23.09?M(..FO R I;A QP?M)H.GI (QC-.5)23.08;S QC=;I (QH-.5)23.08;S QH=QH-1?M)U.HI (-QP)23.09;S QQ=1?M)!.II (QH-.5)23.1;D 11?M)2.JS DZ=QL*41+QL;S PO=FX[DZ-31]?M)?.KI (QQ-.5)
3.13;D 9;R?M*Q.MI (-PO)23.16;S QO=-PO;G 23.19?M*X.PS QO=PO?M*(.SI (QP-QO)23.8,23.25,23.37?M*>.YI (-PO)23.28;O R I;A DU;S QC=1;G 23.31?M+H.\D 9;O R I;A DU?M+\.
D 3.6;I (DY-141)23.31,23.34,23.31?M+."D 3.6;R?M+0.%I (-PO)23.4;D 3.5;R?M+?.(S DU=FITR(PO);S DU=PO-DU?M,N.+I (-DU)23.47;D 9;G 23.53?M,^./S PO=FITR(PO)+1;D 9;S QD=1?M,3.2I (PO-QP)23.53;S QH=QH+1;S QV=QP+QH?M-D.5S QL=QL+1;I (QL-QE-.5)23.1;R?M-P/PD 3.5;S QL=Q
-1;R?M-2AC   VON 1.29 - DATEI AUSDRUCKEN?M-	2EE?M-72JA !!"TITEL-NR..AUSGABE"DU?M.H2LS N=FITR(DU);S AG=(DU-N)*10?M.Y2NI (AG-2.5)25.16;D 3.1;G 25.1?M./2PA !"1. SEITE"SZ,"  ABSENDER (0-99)"NK?M.;2TD 3.9;I (-KO)1.28?M/]2VI (AG-1.5)25.25;D 31.16;O C;T !!"AUSGA
E AUF AUS:ANAPLV.LS"!!?M/%2YL G ANAPCA?M/+2\G 4.2?M/3>JO I TTY:,E?M/:>LO O TTY:?M0A>NO O LPT:?M0M>PO O AUS:ANAPLV.LS?M0Y>^O O SYS:ANAP(N).DA?M0&>(O I SYS:ANAP(QA).DA?M00>2O A ANAP00.FA?M?T !"ANAPC.FC, 26.11.77"!?MC.BZT !"ANAPC V1A: LV-DATEI ERSTELLEN"!?M?
<HV8 KV8!K3< ,I
4O5K3
6O7K3
5
72IK8
:K8
;K9
<2C
=K>
?KV/2OEK(BBBTBHBA%^%"J;F^F$L:K7MQ

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