File OBA83.FC (FOCAL source file)

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

<H()BTC U/W-FOCAL:OBA83NO/DA/TE?M84BBZ?M:VBIA N;F I=1,N;A A(I),B(I),C(I)?MY^BNT !!?MB8BRT "  I/X"!;Z I?MO<BTN I?MCQBWA :17,D,:25,B,:35,E,:44,C(I),:56,Y?MCZBXI (9-Y)1.22?MC+BZS A(I)=A+D/100,B(I)=B+E/100?MYCB[G 1.2?MC<CMN I;D 1.49,1.76?MT&CNN I;D 1.64,1.76?
++CTD 1.82,1.83;N I;D 1.64,1.83?MD&D<T "BUEROEINN. O. MWST?M4\D=T "PRIVATEINN.?M-"EOT "VGT. FA. HIRSCH?M8CLTI (I-N)6.15;S N=I;G 6.15?MERNJD 9;T :3?M[-NTD 9,7.1?MQER^T "ING.-BUERO  B R A S S  ALFONSSTR. 9?M:VCT "HS. FST?MFVGT "EST LFD.?MFIVHT "EST RSTD.?MF
VIT "KIST?M9
VJT "SPEND.?M$PXAT "BUEROM.,NKOST.?MF-XCT "BEZ. GEH.?MF6XDT "SOZ.VERSI?MGDXET "VERSI-BUERO, BEITR.?M$WXFT "ACQUIS.?MGWXIT "SONST. SPESEN?MG ZAT "MWST LFD.?M&"ZBT "MWST RSTD.?MZ ZET "ST-ZUSCHL.?MG>\AT "VGT. SCHLEI?MHH\BT "VGT. SCHMID?MHQ\CT "NISSL LBG?MHZ\
T "KOELBL LW?MH$\ET "KOELBL LPE?MH.\FT "KOELBL JED?M.-\GT "VGT. SONST.?MIB AT "F	LIT.,ETC.?MIK BT "WEI.BLDG.?MIT CT "ST.-BRTG.?M$, DT "RE.-BRTG.,ETC.?MI*"BT "REIKO. INL.?MI5"CT "REIKO. AUSL.?MJ"DT "SONST. REIKO?MJI$AT "BUEROBED.?M4>$BT "FIRM.LEISTG.?MJ]&A
 "KFZ LFD.?M5L&BT "KFZ REP.?MJ5,JD 7.2;T "GES.-BETRAEGE:?M!Y,TT %9.02:30"DM?M!3,D 7.2;T "BUERO, NETTO:";D 22.2;S NA=A-YA,NE=E-YE;T NA,NE,NE-NA?M.7-BS U=251,V=299;D 22.7?M/A-FF K=U,V;T %9.02,K(K)?MXZ-PS U=U+D,V=V+D;D 22.7?M:*-UO C?MLY3FS YA=YA+Y,BA=BA+B?MZ
3PS YE=YE+Y,BE=BE+B?ML,:ET "JAN.?ML3:JT "FEBR.?ML::OT "MAERZ?MMA:TT "APRIL?MMG:YT "MAI?MMN:^T "JUNI?MMU:T "JULI?MM\:(T "AUG.?MM:-T "SEPT.?MM*:2T "OKT.?MM1:7T "NOV.?M:<T "DEZ.?M!ORJT !;S JJ=JJ+1;I (63-JJ)9.2;R?M
%B6T !"KONTO ";I (FABS(B-D)-.005)1.6?MP/.JF K=U,V;D 24?M1MB T %3,N;F I=1,N;T %7.03,A(I),B(I),%10.02,C(I)?M
>4JS T=FITR(M(I)/(1+N/100)),Z=T*N/100,SZ=SZ+Z,S=S+T?M05,<S $=$/100,U=FITR(($-FITR($))*100+.1)-78,T=12*U+FITR($)?M7J07R?MB=BVT !%2,I;A :7,A;I (A-.1)1.28;S N=I?M:NBFA "VORH. DAT 
 1/-1:",T;I (T)1.14?MO802I (1-Z)24.7,24.6?M4C0EZ Z,S,I,SY?MLM3AZ A1(J),B1(J),C1(J);R?MR*R(T "  8000 MUENCHEN 19  RUF *089-181081"!!"*"!!?MB)BLA !"AEND.
 1/-1:",U;I (-U)6.1;G 1.4?MQ82JR?MR[2TS A=T?MQ42EI (FITR(A1(J))-T)25.1,25.2?M]]6JD 7.2;S E=K/100;D E?MW&2YD 9;T %6,A,100*(A1(J)-A)?MS;R2T "BETRIFFT:  ";D 29;S &=&+1,JJ=5;T %2:63"SEITE"&,!!!?MJT$FT "BEW.,GESCH.?MQ
BKO I,E?M(OCES C=-1;G 1.5?M,SFR?M	0,2D 7.2;T "ABZUF. MWST ST.NR. 115/13206?MS!R<I (DE)9.7;D 1.15,1.92,9?MYXB"O C?MT 1FD 27;;F T=1,31;F J=1,Z;D 25?MQ>1PD 25.6?M&>CON I;D 1.68,1.76?MU:B.T !!"KONT.-KONTR.:?MV>CBS A=-1;G 1.5?MV2B>I (C)1.7;N I;I (A)1.68;I (2-I
1.64;G 1.49?MXBB2A :27"DM  "T(I),:44,U(I),:58,Y;O (9-Y)9;I (9-Y)1.5?M%LB/T :31"ANFANG":44"ENDE?MC1CLT :25%9.02"DM",T(I),U(I),U(I)-T(I)?M6MCRN I;D 1.49?MU^B1D 7.1;T "BANKKTO."%1,I?MT=CD 7.1;T "PS-KTO.:?MSXCDD 7.1;T "KASSE:?M%+CHT !!"*"!!;D 9.5;T %3,N,!!:20
MONATSABSCHLUSS  ";D 29?M^62^S A=FITR(B1(J)+.001),Y=,L=FITR(TA/10+.01)/10+25.4?MNIB4S B=V(10+I)-V(I),D=U(I)-T(I);T %8.02:60,D?MLH-RF I=11,20;T %9.02,SL(I)?MP72<D 9,9;T :6"INSGES.:"%9.02:TA,S;O (.01-SY)25.95?M9WB\A !"AEND.
 1/-1:",U;I (-U)6.1;G 1.4?M\%B$G 1.72?MY1BOT :5"DATUM":13"KONTO":21"KO.GR.?MB.BPT :33"MWST":43"BR.-BETRAG?M-G,^T "BUERO, BRUTTO:";D 22.2;T A,E,E-A?M[JCZD 9,9,7.2,1.15?M&NZFT "KFZ-ST, VERSI.?M[3ZS Y=B-B/(A+1),SY=SY+Y;T :59%6.02,Y?MN?3
T :59%6.02,SY?M5(C\T :30"MWST":39"BR.-AUSG.  BR.-EINN.":64"MWST";D 9?M1>B,I (C)1.7?M[3PES J=10?M2YPJN J;I (14-J)8.8;I (K-J)8.1,8.3,8.1?M\LQPZ J?M\!QUN J;I (4-J)8.9;I (K-J)8.85,8.95,8.85?M]QZR?M[&B(F I=1,N;S =A(I),K=FITR((-FITR())*100+.1);D 8?MM8Q
S V(J)=V(J)+C(I);G 8.85?M7ADJS DE=-1;D 1.96;G 22.05?M9)8JZ M(1)?M]50OI (FITR(B(I))-K)24.1,24.2,24.1?M^S0TN Z;S K(K)=K(K)+C(I),A1(Z)=A(I),B1(Z)=B(I),C1(Z)=C(I)?MP$0^S A(I)=A(N),B(I)=B(N),C(I)=C(N),A(N)=,B(N)=,C(N)=,N=N-1;G 24.15?M7%2(T %8,A;S A=(B1(J)-A),B
C1(J),S=S+B;T %4.01,100*A,:TA,%9.02,B?M\GQFS M(R)=M(R)+C(I);G 8.1?M% B8T "NICHT ";D 1.6;T "  DIFF. : DM",B-D;G 1.62?MRN4TD 7.1;T "EINN. MIT"%3.01,N," % MWST:":40%11"DM",T,%9.02,Z?M)?,(D 9,9,7.2;T "EINN. NACH MWST-SATZ:":50"NETTO":63"MWST?MS%,0T "SUMMEN:":
0%11"DM",S,%9.02,SZ?MEYRTF Z1=JJ,69;T !?M"0,YS SL(11)=SL(11)-V(4),BA=BA-V(4);T BA,BE,BE-BA?M ^,%D 7.2;T "PRIVAT";D 7.1;T "KASSE EINGER.:";D 22.2;T SL(11),R?MZA,\D 7.2;S A=BA-SL(11)-SL(20),R=K(261)+K(262),E=BE-R?M"T,ZI (SL(20)-10)22.28;D 7.2;T "INVESTITION
N:";D 22.2;T SL(20)?M//FMT "AW OTTO II?M^DT "PGH JED?MH8^ET "PGH SONST?M3VAT "ENTN.?ME/VBT "U 47?M$BVDT "PR. KFZ?M$JVET "VS, KRK?ME7VFT "LV?MF$XBT "POST?M$^XGT "ZINS?MGLXHT "KTOKOST?MG*ZDT "VST?M$6 ET "BEW. BUERO?MI "AT "F.SPES.?MSH$DT "GWG?M8[(AT "INVEST
?MV$B0S I=1,Y=,A=;T :57"I/X":62"DIFF."!?MUFB<T %9.02"AUSGEGL.?MVHCJT !!!"KONT.STD.:";D 1.47;T :54"DIFF.";S I=1;D 9,1.49;S JJ=12,C=?M&XZGT "KI.L.ST.RK?MG4ZHT "KI.L.ST.EV?M$&ZCT "LST?M]OC"S U=U+D,SS=,V=V+D?M(*C
D 1.96,1.98,23?MV\CPD 7.2;Z I;T "AUSGABEN / EINNAHMEN N. KONTEN";D 9?M27HJA "   WELCHE ZEILE 
 ",Z1;F J=Z1,70;T !?MOZ,4D 7.1 ;T "FUER ";D 29;T :31%9.02"DM",SZ-YA;D 9.2,9.3,9.4?MWICFA !!"KONT OK 
 1/-1:",I;O (-I)4.1;I (I)6.1;G 1.3?M&(C S L=FITR(U/100),SL(L)=SS?M&4C^S TA=36,SS=,U=1101,V=1115,D=100;D 23,1.95,1.96,1.95,1.95,1.95,1.95,1.95,1.95,1.95?M*.PS R=2;I (L-120)8.4,8.7;S R=6;G 8.7?M
WP<S R=1?M+8,)S I=1,M(I)=M(I)-R,N=,S=;O (M(I))28;D 9,26?M0?,>T %9.02,M,BA,BE,A,E,NA,NE;F I=1,N;T M(I)?M+MP(S R=6;I (120-L)8.7;S R=2;I (110-L)8.7;S R=4;I (65-L)8.7?M)9P2S R=7;I (60-L)8.7;S R=3;I (55-L)8.7;S R=5;I (50-L)8.7?M,KCVN I;D 1.68,1.83,9,9?M,",*S I
6,N=13;D 26;S I=7,N=6.5;D 26?MZVCXT :25"DM",SV-V(4),SD,SD-SV+V(4);Z SV,SD?M <,,S I=2,N=12;D 26;S I=3,N=6;D 26;S I=4,N=11;D 26;S I=5,N=5.5;D 26,7.2?MJ?, D 7.2;T "VORSTEUER / MWST:";D 22.2;T YA,YE,YA-YE?MQEPT "BUEROEINN."%3.01,MS," %?M.D8S MS=6;D 2.8?M.ED:S
MS=5.5;D 2.8?MDXD;S MS=11;D 2.8?M.YEES MS=6.5;D 2.8?M/&EFS MS=13;D 2.8?M-;D9S MS=12;D 2.8?M0V\HT "VGT. CLARA?MK.-DS U=301,V=399?MK;-HS U=1101,V=1110;D 22.7;S D=100;D 22.8,22.8,22.8,22.8,22.8,22.8,22.8?MD0ELS MS=6;D 2.8?M/>FZT "BBK: WOHNANL. TAUFKI.?M0IF[T
"FA. SCHLEGEL?M1$F]T "PAI: AIDENB.STR/?M0!^AT "PGH RUBINST.?M0+^BT "PGH TAUFKI.?M[^CT "PGH HANFST.?M*W,=S N=7;O O M(T)?MK!-F I=1,4;T V(I),V(10+I)?MTJB!F I=1,4;T %10.02,T(I),U(I),V(I),V(I+10)?M1/F^T "AH KRAILLING?M62F T "GDE. KIRCHHM, SCHULE?MT1B-F I=1,4;T
!%2,I,%9.02,V(I),V(I+10),V(I+10)-V(I)?M)%P^S V(J)=V(J)+C(I),=B(I),L=FITR((-FITR())*1000+.001)?M3]LJT !"AENDERN/ZUS. DAT.:"!!"NR.";D 1.15,1.16,1.18;F I=1,4;Z V(I),V(10+I)?M3	LLF I=1,7;Z M(I)?MD<LOA !,I;I (I-.1)6.3;A :7,A;D 1.23;I (9-Y)6.15;D 1.26?M]0JN I;I
(N-I)24.5?M41F	T "BBK: BV VACHER STR.?M4	EAT "WW GERMERING?M.OEDT "GDE. GERM.?M6AF)T "BBK: BV FORCHHM.?M$>$CT "REINGG., REP., STEW?M%D&CT "KFZ ZUB.?M4NF&T "SUED. BREMSEN AG:STAHLBUEHNE?M(9C]S U=255,V=287,TA=47;D 23;S U=301,V=350;D 23?M77F*T "DHB: BV SCHWA
G?MDGCST %9.02:25"DM",V(I),V(10+I),V(10+I)-V(I);S SV=SV+V(I),SD=SD+V(I+10)?M5UF$T "DHB: BV BUD.PEST. PL.?M-2D7T "BETR. MAW?MTO0<S J=1,A=FITR(A1(J));D 27,25.25,25.3,25.4,25.5;R?MX)22S SS=SS+B;O (.01-A)25.9;D L;R?M	YF+T "BV EHRNTHALLER?MEKL^A !"KTO.STND. OK

",U;I (-U)1.4;Z C;G 1.4?MJ&,ED 9,7.2;T :35"AUSGABEN  EINNAHMEN      SALDO?M9BCT !"PR.NR. BIS 343?MPPBDA !"JAHR 83, MON.ZAHL",M;S $=100*(M+.83)?MN&B^O O T6(M)?M:VKT "AUSG. BEL.?ML%:AS E1=29+FITR($/100)/20;D E1;T "  1983";R?MFXVLT "STEUERL. BETEILGG.?MBXBHO
I T6(M)?MSRBJF I=1,4;A X?MN]-
D 9.2,9.3,9.4;Q?M;J-ZZ JJ;D 7.2;T "DATENBLATT ZU MON. ";D 9,1.08,1.09,1.1,1.11?M:
-\F I=1,N;S =A(I),D=FITR((-FITR())*100+.1),A=,=B(I),E=FITR((-FITR())*100+.1),B=;D 7.1;T %6,I,A,D,B,%8.02,E,C(I)?M(IL S OBA83?M?1,N;S =A(I),D=FITR((-FITR())*100+.1),A=,=B(I),E=FITR((-FITR())*100+.1),B=;D 7.1;T %6,I,A,D,B,%8.02,E,C(I)?(I)?*0B . J .5B0.0B.*0
 . R ..F0.0F .2N0..B0*0B * B .3B6.2B.*4B . R ..F0.0F .7F0.."0*5B * B . R1.6F.*6B . R ..F1

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