File JABI82.FC (FOCAL source file)

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

^8()GAC U/W-FOCAL:JABI82NO/DA/TE?M\TJEO I M(T)?MO J(O I,E?MHWJ2D 8;T "HONORARE, ENTGELTE - NETTO:?MQALJS S(I)=S(I)+A(I)?MCHNET "JANUAR?MCPNJT "FEBRUAR?MCWNOT "MAERZ?MC^NTT "APRIL?MC$NYT "MAI?MC+N^T "JUNI?MC2NT "JULI?MC:N(T "AUGUST?MDCN-T "SEPTEMBER?MDKN2T
"OKTOBER?MDTN7T "NOVEMBER?MEYN<T "DEZEMBER?MF7RJT !;S JJ=JJ+1;I (63-JJ)9.2;R?MJRR(T "  8000    M U E N C H E N    19   RUFNUMMER  * O 8 9 - 1 8 1 0 8 1"!!!"*"!!!?MD]PJT !!:4;S JJ=JJ+2?ME9J,D 8;T "HONORARE, ENTGELTE - BRUTTO:?MB!J/D 8;T "ENTH. MWST:?MM2KPT
"ZUSAMMENSTELLUNG:":29"AUSGABEN":43"EINNAHMEN":62"SALDO?MR<S &=&+1,JJ=5;T "SEITE"%2,&,!!!?MJ[RTF 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\KB<S R=-1;G 9.2?
I]HJF R=X,.1,Y;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?MBTHTF R=X,.01,Y;T %7.02,R?MX 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?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?MPKBHT !"*"!!!;F T=U,;D 5?MSXBKD 9,9,9,9;T "1O1.  ";D 5.42,5.44?MQ0BDA !"ZEITRAUM: BEGINN - - MONAT, JAHR: ",U1,V3," ENDE - MONAT, JAHR: ",U2,V4?MK
BFS U=12*(V3-78)+U1,=U2+12*(V4-78),V1=U1+V3/100,V2=U2+V4/100?MMFB*D 9,9;T "104.3  VORST / MWST:":27,S,:42,V?MMYB,D 9,9;T "104.4  BEZ. MWST:":34,B?MWSB.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(23
)-10)5.84;D 8;T "INVESTITIONEN:":28,A(234)?MUOJ: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]<J)D 2;R?MVXB&D 9,9;T "104.1  BUERO, BRUTTO:"%8.02:27,S(4),:42,S(5),:57,S(5)-S(4)?MKQBJD 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?MQGNAS TE=T?MQTNBI (12-TE)7.03;G 7.04?MQ NCS TE=TE-12;G 7.02?MCNDS E=7+TE/20;D E;R?MB5KTR?MLMBEA !"WELCHE ZEILE 
 ",ZE;F I=ZE,71;T !?MTIBNS 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]JBLS 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?MY?B 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?MFEKKD 9;T :4"BARENTN. U 47":22"ST.LEONH PRIV KFZ KR.KASSE LEB VERS EST LFD  EST RSTD KI.ST 
  SPENDEN  INSGES.  INSGESAMT?MJ3BT 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-INV
STITIONEN,";D 9;T :8"BRUTTO":21"NETTO:":25,S(270),:57,S(270)/1.13?MZ3BXD 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)?
VMB"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)?MB[J^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(188
?MHJDTF I=171,270;D 6?M\DJF I=2,34;D 6?M\
JJF I=1,34;A A(I)?MZ	JTF I=35,170;A Z?MHAB7D 9,9,9;T "105.   INSGESAMT:":27,S(2),:42,S(3),:57,S(3)-S(2)?MRFBMT %8.02:34,S(I);S MM=MM+S(I);N Z;S Z(Z)=S(I)?MGEBRT %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,SL S JABI82?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.02* B . B ..B0* B * B * :0*0B0* B * B .0B.*0B *
B . B ..B0* B .3J4*0:0*0B0* B * B .0B.*0B * B . B ..B0* B * B * :0*0B0* B * B .0B.*0B * B . B ..B0* B * B * :0*0B0* B * B .0B.*0B * B . B ..B0* B * B * :0*0B0* B * B .0B.*0B * B . B ..B0* B * B * :0*0B0* B * B 

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