File JABIDR.FC (FOCAL source file)

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

^V()GAC U/W-FOCAL:JABIDRNO/DA/TE?M^KJEO I M(T)?MPLJ(O I,E?MHWJ2D 8;T "HONORARE, ENTGELTE - NETTO:?MT2LJS 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:?MN^KPT
"ZUSAMMENSTELLUNG:":29"AUSGABEN":43"EINNAHMEN":62"SALDO?MR<S &=&+1,JJ=5;T "SEITE"%2,&,!!!?MJ[RTF J1=JJ,67;T !?MK5BBZ?MI+BTT %11.02,NN;D 9,9,9;T "102.   BETRIEBSAUSGABEN - BRUTTO:?M\PB^D 9,9,9;T "103.   PRIVAT:    AUSGABEN":103"EINNAHMEN?M[=B<S R=-1;G 9.2?
I]HJF R=X,.1,Y;T %7.01,R?MORJ8D 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?MU]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?MPRB$D 9,9,9;T "104.   ";D 5.8?MJ3BT PP,S(31),S(32),S(31)+S(32)?MS<BHT !"*"!!!;F T=U,;D 5?MYXBKD 9,9,9,9;T "1O1.  ";D 5.42,5.44?MW0BDA !"ZEITRAUM: BEGINN - - MONAT, JAHR: ",U1,V3
" ENDE - MONAT, JAHR: ",U2,V4?MKTBFS U=12*(V3-78)+U1,=U2+12*(V4-78),V1=U1+V3/100,V2=U2+V4/100?MMWB*D 9,9;T "104.3  VORST / MWST:":27,S,:42,V?MM*B,D 9,9;T "104.4  BEZ. MWST:":34,B?MNCB.D 9,9;T "104.5  SCHULD / GUTH. MWST:":34,-M?MV%B0D 9,9,9;T "104.6  PRIV
T:":27,PP,:42,S(31)+S(32)?MV!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)?M\7J: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[AJ)D 2;
?MP7B&D 9,9;T "104.1  BUERO, BRUTTO:"%8.02:27,S(4),:42,S(5),:57,S(5)-S(4)?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(120)+S(123),M=V-B-S?MG$BZT S(169)+S(200),S(231),S(228)+S(229),S(106)+S(195)+S(196),S
165)+S(166),S(111)+S(112),S(120)+S(121)+S(123),S(198),S(234),%9.02,S(4)?MKCB"D 5.75,9,9;S PP=S(90)-S(19);T :3%7.02,PP;F I=91,99;T S(I);S PP=PP+S(I)?MHAB7D 9,9,9;T :8"INSGESAMT:":27,S(2),:42,S(3),:57,S(3)-S(2)?MK"BJD 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?MT8NAS TE=T?MUENBI (12-TE)7.03;G 7.04?MUQNCS TE=TE-12;G 7.02?MCNDS E=7+TE/20;D E;R?MQ2BXD 5.56,5.58,9,9;T :3%7.02,S(107)+S(108)+S(122)+S(126)+S(127),S(105)+S(197),S(109)+S(110)+S(113)+S(124)+S(16
)+S(168),S(125)+S(233)?MB5KTR?MS]B2D 9,9,9;T "104.7  GESAMT-INVESTITIONEN,";D 9;T :8"BRUTTO":21"NETTO:":25,S(234),:57,S(234)/1.12?MGEBRT %11.02,SS;D 5.5;F I=8,14;T :34%7.02,SN(I)?ML^BEA !"WELCHE ZEILE 
 ",ZE;F I=ZE,71;T !?MZ"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?MZIBLS 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?MXFBMT %7.02:34,S(I);S MM=MM+S(I);N Z;S Z(Z)=S(I)?MWWBPN 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\FDJF I=2,32;D 6?MHJDTF I=90,234;D 6?MR7B 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?M]?JTF I=33,89;A 
?MB[J^F I=90,234;A A(I)?M]5JJF I=1,32;A A(I)?M9?L S JABIDR?M?M(I)?M9?E 5.25?M?M A(I)?M9?E 5.18?M?M A(I)?M9?E 5.17?M?M A(I)?M9?E 5.16?M?M A(I)?M9?E 5.15?M?M A(I)?M9?E 5.14?M?M,234;A A(I)?M9?E 5.13?M?M34;A A(I)?M9?E 5.12?M?M34;A A(I)?I)?M?M?MM=1E 5.02*5B8* 
 * B .0B.*0B * B . Z3..B0* B * B * :0*0B0* B .2F5.0&.*9B * B .3&6..V0* B * B * :0*0B0* B * B .0B.*0B * B . B ..B0BZ

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