File JABI83.FC (FOCAL source file)

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

^8()F:C U/W-FOCAL:JABI83NO/DA/TE?MOYJ(O I,E?MHPJ2D 8;T "HONORARE, ENTGELTE - NETTO:?MP:LJS S(I)=S(I)+A(I)?MCANET "JANUAR?MCINJT "FEBRUAR?MCPNOT "MAERZ?MCWNTT "APRIL?MC]NYT "MAI?MC$N^T "JUNI?MC+NT "JULI?MC3N(T "AUGUST?MC<N-T "SEPTEMBER?MDDN2T "OKTOBER?MDMN
T "NOVEMBER?MERN<T "DEZEMBER?MF0RJT !;S JJ=JJ+1;I (63-JJ)9.2;R?MJKR(T "  8000    M U E N C H E N    19   RUFNUMMER  * O 8 9 - 1 8 1 0 8 1"!!!"*"!!!?MDVPJT !!:4;S JJ=JJ+2?ME2J,D 8;T "HONORARE, ENTGELTE - BRUTTO:?MBZJ/D 8;T "ENTH. MWST:?MM+KPT "ZUSAMMENSTEL
UNG:":29"AUSGABEN":43"EINNAHMEN":62"SALDO?MR<S &=&+1,JJ=5;T "SEITE"%2,&,!!!?MJTRTF J1=JJ,67;T !?MK]BBZ?MI$BTT %11.02,NN;D 9,9,9;T "102.   BETRIEBSAUSGABEN - BRUTTO:?MT!B^D 9,9,9;T "103.   PRIVAT:    AUSGABEN":103"EINNAHMEN?M\DB<S R=-1;G 9.2?MIVHJF R=X,.1,
;T %7.01,R?MN
J8D 9;T :4"PERSKOST RAUMKOST BETR.VER KFZ.KOST BEWIRTG. REISKOST FR.M.ARB BUEBED.  FACHLIT. BANKSP.  BEZ.MWST GWG      INVEST. INSGESAMT?M^1HTF R=X,.01,Y;T %7.02,R?MXYBVD 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?MF^R2I (-R)9.6
Q?MD	R^T :15"ING.-BUERO  B R A S S  ALFONSSTR. 9?MO
B$D 9,9,9;T "104.   ";D 5.8?MPDBHT !"*"!!!;F T=U,;D 5?MSQBKD 9,9,9,9;T "1O1.  ";D 5.42,5.44?MQ)BDA !"ZEITRAUM: BEGINN - - MONAT, JAHR: ",U1,V3," ENDE - MONAT, JAHR: ",U2,V4?MJ<BFS U=12*(V3-78)+U1,=U2+12*(V4-78),V1=U1+V3/100,V2=U2+V4/100?ML?B*D 9,9;T "104.
  VORST / MWST:":27,S,:42,V?MMRB,D 9,9;T "104.4  BEZ. MWST:":34,B?MWLB.D 9,9;T "104.5  SCHULD / GUTH. MWST:":34,-M?MQ%KSD 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)?MUHJ:D 9;T :4"LST, SOZ":22"BERAT,GEB
:40"GESCH.":49"KM-SPES":67"REP,TEL":76"WEITBLDG":85"ZINSKOST":120"OHNE INVEST.?M]5J)D 2;R?MVQB&D 9,9;T "104.1  BUERO, BRUTTO:"%8.02:27,S(4),:42,S(5),:57,S(5)-S(4)?MKJBJD 9.6,9,9;T "ERGEBNIS IM ZEITRAUM MONAT ";S T=U1;D 7;T %4,1900+V3,"  BIS MONAT ";S T=U2
D 7;T 1900+V4?MQNAS TE=T?MQMNBI (12-TE)7.03;G 7.04?MQYNCS TE=TE-12;G 7.02?MB9NDS E=7+TE/20;D E;R?MB.KTR?MLFBEA !"WELCHE ZEILE 
 ",ZE;F I=ZE,71;T !?MTBBNS NN=S(8);T %11.02,MM;D 5.47;S SN(8)=S(8);T :34%7.02,S(8)-SN(8);S X=1.13,I=8;D 1.16;S X=1.065;D 1.16;S X=1.12;D 1.16;S X=1.06;D 1.16;S X=1.11;D 1.16;S X=1.055?M]CBLS I=8,Z=7;D 1.13;S I=13;D 1.13;S I=14;D 1.13;S I=9;D 1.13;S I=10;D
1.13;S I=11;D 1.13;S I=12?M]\BPN I;S SN(I)=Z(I)/X,S=Z(I)-SN(I),SS=SS+S,NN=NN+SN(I);T S?MY8B D 8;T "103.1":7;S X=103.2,Y=103.9;D 4.1;T " ";S X=103.10,Y=103.12;D 4.2?ME>KKD 9;T :4"BARENTN. U 47":22"ST.LEONH PRIV KFZ KR.KASSE LEB VERS EST LFD  EST RSTD KI.ST
   SPENDEN  INSGES.  INSGESAMT?MJ,BT PP,S(33)+S(34)?ML	B(D 9,9;T "104.2  BUERO, NETTO:":27,S(6),:42,S(7),:57,S(7)-S(6);S S=S(4)-S(6),V=S(5)-S(7),B=S(191)+S(194),M=V-B-S?MW	B0D 9,9,9;T "104.6  PRIVAT:":27,PP,:42,S(33)+S(34)?M\"B2D 9,9,9;T "104.7  GESAMT-IN
ESTITIONEN,";D 9;T :8"BRUTTO":21"NETTO:":25,S(270),:57,S(270)/1.13?MZ,BXD 5.56,5.58,9,9;T :3%7.02,S(183)+S(184)+S(193)+S(197)+S(198)+S(201)+S(202),S(181)+S(243),S(185)+S(186)+S(223)+S(224)+S(195)+S(189)?MG]B\T S(191)+S(192)+S(194),S(244),S(270),%9.02,S(4)
MVFB"D 5.75,9,9;S PP=S(171)-S(21);T :3%7.02,PP;F I=172,180;;T S(I);S PP=PP+S(I)?MBTJ^F I=171,270;A A(I)?M[]BZT S(196)+S(269),S(246)+S(225),S(267),S(265)+S(203)+S(204)+S(205)+S(206)+S(207)+S(208)+S(209)?MY]B[T S(182)+S(241)+S(242),S(221)+S(222),S(187)+S(18
)?MHCDTF I=171,270;D 6?M[9DJF I=2,34;D 6?M\XJJF I=1,34;A A(I)?MZ JTF I=35,170;A Z?MG:B7D 9,9,9;T "105.   INSGESAMT:":27,S(2),:42,S(3),:57,S(3)-S(2)?MQ?BMT %8.02:34,S(I);S MM=MM+S(I);N Z;S Z(Z)=S(I)?MF>BRT %11.02,SS;D 5.5;F I=8,14;T :34%8.02,SN(I)?ME]J* T 
BETRIEBSEINNAHMEN:":27"MWST-SATZ    0 %":49"13 %":58"6.5 %":69"12 %":80"6 %":89"11 %":98"5.5 %":110"INSGESAMT?M\MJEO I P(T)?M?ML S JABI83?M?MEINNAHMEN:":27"MWST-SATZ    0 %":49"13 %":58"6.5 %":69"12 %":80"6 %":89"11 %":98"5.5 %":110"INSGESAMT?;A A(I)?I)?M
M?MM=1E 5.02D 9,9;T "PRIVAT:":19,SS(11)-V(4),S(261)?M$BMS R=8,T=;F I=5,-1,2;S R=R-.5,T=T+2,T(T)=M(I)/(1+R/100),N(T)=M(I)-T(T)?MRKBZT 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
   INSGES

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