File JAPO83.FC (FOCAL source file)

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

	/()K[C U/W-FOCAL:JAPO83NO/DA/TE?MFWJ2D 8;T "HONORARE, ENTGELTE - NETTO:?MB0NET "JANUAR?MB8NJT "FEBRUAR?MB?NOT "MAERZ?MCFNTT "APRIL?MCLNYT "MAI?MCSN^T "JUNI?MCZNT "JULI?MC"N(T "AUGUST?MC+N-T "SEPTEMBER?MC3N2T "OKTOBER?MC<N7T "NOVEMBER?MEAN<T "DEZEMBER?MUA
JT !;S JJ=JJ+1;I (63-JJ)9.2;R?M$R(T "  8000    M U E N C H E N    19   RUFNUMMER  * O 8 9 - 1 8 1 0 8 1"!!!"*"!!!?MDEPJT !!:4;S JJ=JJ+2?M"GJ,D 8;T "HONORARE, ENTGELTE - BRUTTO:?MH>KPT "ZUSAMMENSTELLUNG:":29"AUSGABEN":43"EINNAHMEN":62"SALDO?MYGB<S R=-1;G 9
2?MG]HJF R=X,.1,Y;T %7.01,R?MI2J8D 9;T :4"PERSKOST RAUMKOST BETR.VER KFZ.KOST BEWIRTG. REISKOST FR.M.ARB BUEBED.  FACHLIT. BANKSP.  BEZ.MWST GWG      INVEST. INSGESAMT?M 7HTF R=X,.01,Y;T %7.02,R?MDVR^T :15"ING.-BUERO  B R A S S  ALFONSSTR. 9?MSCB$D 9,9,9;
 "104.   ";D 5.8?MH+B*D 9,9;T "104.3  VORST / MWST:":27,S,:42,V?M
+B,D 9,9;T "104.4  BEZ. MWST:":34,B?MKWKSD 8;T "BUERO, BRUTTO:":28,A(4),:43,M,:58,M-A(4);I (A(234)-10)5.84;D 8;T "INVESTITIONEN:":28,A(234)?M"SJ:D 9;T :4"LST, SOZ":22"BERAT,GEB":40"GESCH.":49"KM-SPES":67"REP,TEL":76"WEITBLDG":85"ZINSKOST":120"OHNE INVEST.
MJ2NAS TE=T?MJ?NBI (12-TE)7.03;G 7.04?MKKNCS TE=TE-12;G 7.02?MB(NDS E=7+TE/20;D E;R?MV\KTR?MV)BAZ?MWQBFF T=U,;D 12?MK/XBO I P(T)?MK4XCA Z?MZXDF I=1,6;A A(I);S SA(I)=SA(I)+A(I)?MLXXKA V(4),V(14);S SV=SV+V(4)?ML%XLS V=251,W=299;D 12.2?ML/XOS V=301,W=399?MMB
TF I=V,W;A K(I);S S(I)=S(I)+K(I)?MM	XYS V=1101,W=1115;D 12.2;S D=100;D 12.3,12.3,12.3,12.3,12.3,12.3,12.3?MM4X^S V=V+D,W=W+D;D 12.2?MNJXF I=11,20;A SL(I);S SS(I)=SS(I)+SL(I)?MX(O I,E?M$1BKD 9,9,9,9;T "1O1. ";D 5.42,5.44?MN8BTT "102.   BETRIEBSAUSGABEN - B
UTTO:?MO
BVD 8;T "102.1":7;S X=102.2,Y=102.9;D 4.1;T " ";S X=102.10,Y=102.14;D 4.2?MPWBXD 5.56,5.58,9,9;T :3%7.02,S(1203)+S(1203)+S(1204)+S(1303)+S(1307)+S(1308)+S(1401)+S(1402),S(1201)+S(1803)?M^NBYT S(1205)+S(1206)+S(1305)+S(1603)+S(1604),S(1306)+SS(19),S(1605)+
(1806),SS(17),SS(14)+SS(15)-S(1401)-S(1402)?MQ[B\T %9.02,SA(3)?MQ1B^D 9,9,9;T "103.   PRIVAT:    AUSGABEN?MRXB D 8;T "103.1":7;S X=103.2,Y=103.9;D 4.1;T "  ";S X=103.10,Y=103.14;D 4.2?MR>B"D 5.75,9,9;S P=S(1101)-SV;T :3%7.02,P;F I=1102,1113;T S(I);S P=P+S
I)?MHCBT P?MS)B&D 9,9;T "104.1 BUERO, BRUTTO:"%8.02:27,SA(3),:42,SA(4),:57,SA(4)-SA(3)?MHSB(D 9,9;T "104.2  BUERO, NETTO:":27,SA(5),:42,SA(6),:57,SA(6)-SA(5);S V=SA(4)-SA(6),B=S(1301)+S(1304),S=SA(3)-SA(5),M=V-B-S?M&>B0D 9,9,9;T "104.6  PRIVAT:":27,P,:42,
(261)?MG+RTF J1=JJ,68;T !?M[3EFD 2.6,2.6,2.6,2.6,2.6,2.6,2.6,2.6?M&+R7Q?M[UBCA !"ZEITR.: BEGINN- -MONAT: ",U1," ENDE - MONAT:",U2," JAHR 1983?MK
BES U=U1+60,=U2+60?MZ)DTF I=0,9;T %8,I?M[(LJR?MLHXJF I=1,6;A Z?MUBBA !!"AUSDR. EINZELKTEN.= 1, AUSDR. ABRECHNG.= 2, AUSDR. V. BEIDEM = 0",A1?M CBGI (A1-2)2.1?MZ?EZI (A1-1)1.1;D 9.2,9.3,9.4;Q?MY1D-D 2.4,2.4,2.4,2.4,2.4,2.4,2.4,2.4?MVRDOD 9,9;T "EINNAHMEN";
 9,9;T "PROJ.-NR.?MW+D(S P=P+10,Y=P;O (300-P)6.1,6.2;O (400-P)6.1,6.2;D 2.3?MXUD^D 9;T %4,Y,:ST,%TA;F I=P,P+D;T S(I)?MW?DJD 9.2,9.6;T "AUSDRUCK EINZELKONTEN ";S T=U1;D 7;T " BIS ";S T=U2;D 7;T " 1983?MZSD2D 9,9;T "AUSGABEN  KONTEN";D 9,9;S P=1001;F I=1,15
T :4;T %7,I?MUKD<S P=P+100,D=14,TA=7,ST=,Y=P-1;D 9,2.3?MX2DYD 9,9;S P=240,D=9,TA=7.02,ST=12;G 2.4?MFJFJD 9;T %4,Y,:ST,%TA,0;F I=P,P+8;T S(I)?MVFBDA !"WELCHE ZEILE ",JJ;S JJ=JJ-4?MJ,LTD 3;S P=P+10,Y=P?M\KEKD 9,9;T "KOSTENGRUPPEN:";F I=11,20;T %8,I?M\^EPD 9
9;F I=11,20;T :17%7.02,SS(I)?M]GEUD 9,9;T :23"AUSGABEN    EINNAHMEN";D 9,9;T "INSGESAMT:":19%10.02,SA(1),SA(2)?M]7EVD 9,9;T "BUERO, BRUTTO:":19%10.02,SA(3),SA(4);D 9,9;T "BUERO, NETTO:":19%10.02,SA(5),SA(6)?MWZEWD 9,9;T "PRIVAT:":19,SS(11)-V(4),S(261)?MQQ
ZT S(1202)+S(1801)+S(1802),S(1601)+S(1602),S(1207)+S(1208)+S(1209),S(1301)+S(1302)+S(1304),S(1804),SS(20)?MFAB7D 9,9,9;T "105.   INSGESAMT:":27,SA(1),:42,SA(2),:57,SA(2)-SA(1);Z A1?MT)B.D 9,9;T "104.5  SCHULD / GUTH. UST:":34,-M?MNPBJD 9.2,9.6,9;S T=U1,J=
983;T "ERGEBNIS IM ZEITRAUM MONAT ";D 7;T %4,J,"  BIS MONAT ";S T=U2;D 7;T J?MELJ*T "BETRIEBSEINNAHMEN:  MWST-SATZ":38"0 %":46"15 %":54"7.5 %":64"14 %":74"7 %":82"13 %":90"6.5 %":100"12 %":110"6 %":120"INSGESAMT?MNBRT :120,SN;D 9,9,9?MBTJ/D 8;T "ENTH. MWS
:?ME!KKD 9;T :4"ENTN.    U 47":22"ST.LEONH PRIV KFZ KR.KASSE LEB VERS EST LFD  EST RSTD KI.ST     SPENDEN  AO BEL.  ST.BET. BET.RSTD.INSGESAMT?MV XHF I=1,15;A A(I);S M(I)=M(I)+A(I)?M$HBOT :120,SM;D 5.5;F I=1,9;T :32,T(I);S ST=ST+T(I)?M!;BPT :120,ST;D 5.47
F I=1,9;T :32,N(I);S SN=SN+N(I)?MU
R2I (R)9.55;I (A1-1)1.1?M%]BLS R=16,T =;F I=11,-1,7;S R=R-1,T=T+2,T(T)=M(I)/(1+R/100),N(T)=M(I)-T(T),MS(T)=M(I)?M&IBMS R=8,T=1;F I=6,-1,1;S R=R-.5,T=T+2,T(T)=M(I)/(1+R/100),N(T)=M(I)-T(T),MS(T)=M(I)?M-BNS MS(1)=M(1),T(1)=MS(1);F I=1,9;T %7.02:30,MS(I);S S
=SM+MS(I)?MK(R<S &=&+1,JJ=6;T !!"BLATT"%2,&,!!!?M
EB2D 9,9,9;T "104.7  INVESTITIONEN":31"BRUTTO":47"NETTO";D 8;S X=1.14;T :27,SS(20),:42,SS(20)/X?M=6L S JAPO83?M?M04.7  INVESTITIONE* B . ^1.6&.*9B . "1..F0.0F .3V0..B0*0B * B . R .4B.*0B . J2..F1*0B .3Z2..Z0*5B * B .3^5.8R.*0B . N2..F1*0B .3"4..R1*0B . N 
9B9.0B.*0B . N2..F1*0B .3Z3..R1*0B * B .9B8.4B.*0B . V2..F0.0F .1F0..B0*0B * B . B3.0B.*0B . V2..F0.0F .4F0..N1*0B * B .8^4.5B.*0B 

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