File JABI80.FC (FOCAL source file)

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

^8()GAC U/W-FOCAL:JABI80NO/DA/TE?M^BJEO 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:?MVVB^D 9,9,9;T "103.   PRIVAT:    AUSGABEN":103"EINNAHMEN?M]9B<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?MZNBVD 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?MS1BKD 9,9,9,9;T "1O1.  ";D 5.42,5.44?MRIBDA !"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?MYAB.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)?MV=J:D 9;T :4"LST, SOZ":22"BERAT,GEB":40"GESCH.":49"KM-SPES":67"REP,TEL":76"WEITBLDG":85"ZINSKOST":120"OHNE INVEST.?MUZJ)D 2;R?MXFB&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?MGEBRT %11.02,SS;D 5.5;F I=8,14;T :34%7.02,SN(I)?MLMBEA !"WELCHE ZEILE 
 ",ZE;F I=ZE,71;T !?MT;BNS 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?MT"BLS 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?MR
BMT %7.02:34,S(I);S MM=MM+S(I);N Z;S Z(Z)=S(I)?MQ0BPN I;S SN(I)=Z(I)/X,S=Z(I)-SN(I),SS=SS+S,NN=NN+SN(I);T S?ME$J* T "BETRIEBSEINNAHMEN:":27"MWST-SATZ    0 %":48"13 %":56"6.5 %":66"12 %":76"6 %":84"11 %":92"5.5 %":101"INSGESAMT?M[-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?MY\B0D 9,9,9;T "104.6  PRIVAT:":27,PP,:42,S(33)+S(34)?M^WB2D 9,9,9;T "104.7  GESAMT-INVESTITIONEN,";D 9;T :8"BRUTTO":21"NETTO:":25,S(270),:57,S(270)/1.13?M\!BXD 5.56,5.58,9,9;T :3%7.02,S(183)+S(184)+S(1
3)+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)?MW;B"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]RBZT S(19
)+S(269),S(246)+S(225),S(267),S(265)+S(203)+S(204)+S(205)+S(206)+S(207)+S(208)+S(209)?M[RB[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^MJJF I=1,34;A A(I)?M\UJTF I=35,170;A Z?MHAB7D 9,9,9;T "105.   INSGESAMT:
:27,S(2),:42,S(3),:57,S(3)-S(2)?MS(L S JABI80?M?M  INSGESAMT:":27,S(2),:42,S(3),:57,S(3)-S(2)?MS(187)+S(188)??M)?9?E 5.13?M?M34;A A(I)?M9?E 5.12?M?M34;A A(I)?I)?M?M?MM=1E 5.02*9B2* B * B .0B.*0B * B . &2..B8* B * B * :0*0B0* B .3"0.8F.*6B * B .3B7..V6* B 
 B * :0&0*0

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