File ANAPAA.FC (FOCAL source file)

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

7NI.()0C-ANAPAA.FCNOV-77?M6,BAC ANAPAA, UP ZU ANAPA, ENDSUMMENSPIEGEL DRUCKEN, ENDE IN 13.60?MB=DAG 13.01?MCHHAC   UP ZU 13.30?MC[HJS KO=KO+1;S I=I+1;I (15.5-I)4.4?MC)HTS DU=Y(KO);D 6;T ", "?MC6H^I (KO-(IE-1.5))4.1;R?MDIH(D 7.5;T :10;S KO=KO-1;S I=;G 4.1?
DRLAC 4.2, 13.35?MD%LJS DI=FITR(DU/10);I (DU-9.5)6.25?MD4LTS DY=FOUT(DI+176);G 6.3?MD9LYT " ?MEHL^S DY=FOUT(176+DU-DI*10)?MEQNJT !;S J=J+1?MR7NTI (60-J)7.3;R?ME0N(D 28.05;D 28.1;D 13.4;D 7.1;S J=6;R?ME:N2T !!;S J=J+2;R?MFFZAC ENDSUMMENSPIEGEL?MFMZED 31.50
MF\ZJF DU=0,299;S DY=FX[DU,0]?MF	ZKS DU=FX[2300,0]?MF9ZOF KO=1,IE;S N=FITR[Y(KO)];D 18?MGPZPI (YY-.5)13.17;S EA=[Y(1)-FITR(Y(1))]*10?MG\ZQD (31.12+EA*2/100)?MRTZTD 7.3;S SZ=0;D 28.05;D 28.1;S J=2?MG<ZZD 7;F DU=1,16;T "=?MHOZ^D 7;T "(TITEL : ";S KO=;S I=;D
4?MH\ZS DU=Y(IE);D 6;T ")?MH/Z(D 7.5;T :39,"NETTO",:67,"BRUTTO"?MIGZ)D 7.1;T "NR BIETER",:28,"%",:37,"GP [DM]"?MI]Z*T :48,"MWST [DM]",:66,"GP [DM]";D 7.1?MIZ+S KI=?MI8Z,S KI=KI+1;I (.1-FX[KI])13.45;G 13.44?MJCZ-F BN=KI,97;D 17?MJMZ/F BN=1,99;D 16?MJUZ2D 7
5;O C?MJYZ<R?MJ$ AC 13.47, B-ZEILE?MJ0 JI (-FX[BN])16.20;R?MKE TD 7;S DU=BN;D 6;T " ";S DI=280+BN*20?MKW YF DU=1,20;S DY=FOUT(FX[DI+DU])?MK6 ^I (FX[BN+100]+.1-FX[199])16.33;S X1=(FX[BN]*1E2)/FX[KI]?MLL 
I (X1-999.1)16.32;T :25,">999";G 16.35?MLY  T :24,%3,X1;G 16.35?ML- !T :25,"(";S DU=FX[BN+100];D 6;T ")?MMN S GP=FX[BN];S DI=FX[BN+200];T :30,%11.02,GP;T :44,%10.02,DI?MM] (T :59,%11.02,GP+DI;D 7.1?MM! 2R?MM1"AC 13.45 : KL.GP ERMITTELN?MM="JI (-FX[BN])17.
;R?MNZ"TI (FX[KI]-FX[BN])17.6;I (FX[BN+100]+.1-FX[199])17.6?MN!"^S KI=BN?MN%"<R?MN2$AC 13.13, TITEL EINL.?MN9$ED 31.30?MN?$JO R I?MOD$OA MW?MOY$TA BN;I (-FX[BN])18.25;S DI=280+BN*20?MO/$VF DU=1,20;S DY=FIN();S DZ=FX[DI+DU,DY]?MO6$XG 18.30?MPC$YF DU=1,20;S
DY=FIN()?MPH$^A GP?MPV$S DY=FX[BN,FX[BN]+GP]?MP;$(S DY=FX[BN+100,FX[BN+100]+1];S DY=FX[BN+200,FX[BN+200]+GP*(MW/100)]?MQF$-I (BN-98.5)18.20?MR;$2R?MQR>JO I TTY:,E?MQY>LO O TTY:?MQ >NO O LPT:?MQ,>PO O AUS:ANAPEN.LS?MQ8>^O I SYS:ANAP(N).FD?MRD>2O A DSK:ANAP
0.FA?M?T !"ANAPAA.FC, 26.11.77"!?MG0ZYD 7.5;T "ENDSUMMENSPIEGEL",:42,"C O - B O - PROGRAMM ANAPAA V1A?ME[N^C?MSN8ET !;S J=FOUT(140);F J=1,40;T " ?MS98JT !"BUERO F. INGENIEURBAUWESEN OTTO PAULER 7070 SCHWAEB.GMUEND T.:07171/2000"!!?MTH8TT %6,"AUFTRAG-NR.:"
U(1)?MTW8^T %6.01,:28,"POS.:"AU(2)?MQJ8(T :63,"SEITE"!!;S J=6?M6?L S ANAPAA?M?MB O - PROGRAMM ANAPAA V1A?V1A?M?M??M?M;I (-KO)3.85;G 3.35?MU2GUA :19,"LFD.NR."N<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