File ANAPB.FC (FOCAL source file)

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

7O.()0C-ANAPB.FCMAR-75?M6,BAC   ANAPB, ARRAY KORR., ENDE 1.33?MCBBBC   ING.BUERO SIEGFRIED BOSCH, -CD- , KORNTAL?MY*BCS NN=1234567.11-1234567;I (NN)1.04,1.04,1.05?MZTBET !!"ANAP : ANGEBOTSAUSWERTUNG"!;F DU=1,6;T "=?MC9BJE?MDMBMA !!!"TITEL-NR."N;I (-N)1.16
G 1.3?MD3BPA !"BIETER-NR. (1), -NAME (2), PREISE (3), MWST, 1.SEITE (4) KORR."DU?MD?BSD 5.3;I (-KO)1.13?MEXBVI (DU-2)10.19,10.28;I (3-DU)11.01,10.47,1.13?ME\B^E?ME%B!R;C VON 1.13?ME7JAC   MEHRFACH VERW. STATEMENTS?MFBJJT "  UNZULAESSIG?MFQJTA !!"BIETER-NR
"BA;D 29?MF[J^A !"KORR.
"KO?MF(J(T "  EXISTIERT NICHT?MGHJ2S DZ=FX[N2+19+2*DY,FABS(EP)];S DZ=FX[N2+20+2*DY,FABS(MA)]?MGRJ<A :7,EP,:16,MA?MG$LAC   UP ZU 10.61 - POS. SUCHEN?MG.LJD 31.5;S DY=PO?MHCLMS DZ=FX[DY];I (PO-DZ)6.16,6.22,6.16?MHQLPS DY=DY-1;I (-DY)6.13?MH[LSD 5.4;S DU=1;R
MH*LVS DU=;D (31.80+(NA/1E2))?MH5PAC   UP ZU 10.37?MINPJS DY=FIN();I (DY-245.5)8.2;T "\";S DU=DU-2;R?MIZPTI (DY-141)8.3,8.5?MI,P^I (DU-20.5)8.4;I (29-DU)8.7;R?MI6P(S PR(DU)=DY;R?MJEP2F DU=DU,20;S PR(DU)=160?MJMP<S DU=31;R?MJRQFT !?MJ$TAC   VON 1.22 - BIET
R AENDERN?MJ2TSA !!"ALT"BA,"  NEU"BN?MKBTVD 29;I (DZ-.5)10.25;G 1.13?MKPTYS DZ=FX[N2,BN];G 1.13?MKVT\D 5.2?MK$T
I (DZ-.5)10.34;G 1.13?MK1T"T "  -NAME (20 Z):"?MK;T%F DU=1,30;D 8?MLNT(F DU=1,20;S DY=FX[N2+DU,PR(DU)]?MLTT+G 1.13?ML
T.C PREISE AENDERN?MLT/C?ML)T0D 5.2?ML7T2I (DZ-.5)10.51;G 1.13?MMMT3A !"ALLE PREISE KORR.
"DZ;I (-DZ)12.01?MM\T4D 5.3;I (-KO)10.48;D 30?MM.T5T !!"POS   EP       MA";S KO=?MNDT8A !,PO;I (PO-999.5)10.59;D 5.1;G 10.56?MN]T;I (-PO)10.61;D 5.3;I (-KO)10.56;D 5.2;G 10.5?MN-T=D 6;I (DU-.5)10.64;G 10.56?MN3UD 5.6?MOHUCD 5.5;I (KO-.5)10.56;S PO=-1;G 10
59?MO]VAC   VON 1.22 - MWST, 1. BLATT KORR.?MO/VJA !!"MWST [%]"MW,"  1.SEITE"DU?MPCVTD 31.8;S DY=FX[7,MW];S DY=FX[8,DU]?MPIV^G 1.13?MP^XAC UP ZU 10.51 - ALLE PREISE AENDERN?MP;XJA !"ALT = 100 % / NEU EP = 
 %"PE,"  NEU MA = 
 %"PM?MQGXLD 5.3;I (-KO)10.48?MQ^XNF DU=1,NN;S DX=N2+19+2*DU;D 12.8;D 12.9?MQ%XPG 10.48?MQ=YPS DY=FX[DX];S DY=DY*PE/1E2;S DZ=FX[DX,DY]?MRWYZS DY=FX[DX+1];S DY=DY*PM/1E2;S DZ=FX[DX+1,DY]?MR-:AC   UP ZU 5.20, 10.22 - BIETER SUCHEN?MR::EI (-BA)29.1;S DZ=1;R?
SN:JS DZ=;D 31.8;S NN=FX[5];S II=FX[6]?MS^:MS NA=FX[1];S IA(NA)=FX[3]?MS):PS MK=FX[4];S I=?MTF:VS I=I+1;I (IA(NA)-I+.5)29.28;S N2=(I-1)*(21+NN*2)+11?MT\:YS DY=FX[N2];I (DY-BA)29.22,29.34,29.22?MT-:\I (-MK)29.31;D 5.4;S DZ=1;R?MT>:
D (31.80+(NA+1/1E2));G 29.13?MUB:"R?MUU<AC   UP ZU 10.47 - POS.-NR. HOLEN?MU+<JD 31.4;D 31.5;F DU=1,999;S DZ=FX[DU,0]?MZ,<KS DZ=FX[2303,0];O T;D 31.5?MVY<PS DU=FIND(138);CS DY=FIN();I (DY-141)30.16,30.19,30.16?MV0<SA DU;I (-DU)30.22;S DY=FX[0,DZ];D 31.1;R
MWF<VS DZ=DZ+1;S DY=FX[DZ,DU];A DU;G 30.16?MWN>JO I TTY:,E?MWU>LO O TTY:?MW\>NO O LPT:?MW(>(O I SYS:ANAP(N).DA?MW2>2O A ANAP00.FA?MW>?PO A SYS:ANAP(N).D0?MXJ?QO A SYS:ANAP(N).D1?MXV?RO A SYS:ANAP(N).D2?MX"?SO A SYS:ANAP(N).D3?MX.?TO A SYS:ANAP(N).D4?MX:?U
 A SYS:ANAP(N).D5?MYF?VO A SYS:ANAP(N).D6?MYR?WO A SYS:ANAP(N).D7?MY^?XO A SYS:ANAP(N).D8?MZ4?YO A SYS:ANAP(N).D9?MC[BDT !"BITTE ABAD RUFEN!";L E?MU;<MS DU=FIND(138);S DZ=;CA DU,DU;S DY=FIN();S DZ=?MC5BFT !"ANAPB V1C: EINGABEDATEI KORRIGIEREN"!?MY:<LS DU=
IN()?M?T !"ANAPB.FC, 30.03.78"!?M"!L S ANAPB?M?FC, 30.03.78"!?M"!?M?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