File OBA80.FC (FOCAL source file)

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

=I()BTC U/W-FOCAL:OBA80NO/DA/TE?M/FBBZ?MWJBIA N;F I=1,N;A A(I),B(I),C(I)?M
MBNT !!?MB8BRT "  I/X"!;Z I?MR5BTN 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?M^UB[G 1.2?MC<CMN I;D 1.49,1.76?MY&CNN I;D 1.64,1.76?M5$CTD 1.82,1.83;N I;D 1.64,1.83?MD&D4T "LBG NEUM.STR. KOST.?MD2D5T "PZ MUR
AU KOST.?MD<D6T "PZ LW KOST.?M7+D7T "BETR. MAW?MESD<T "BUEROEINN. O. MWST?MU&D=T "PRIVATEINN.?M8HEAT "WUG KL. PROJ.?ME3ENT "LBG NEUM.STR.?M7[EOT "VGT. FA. HIRSCH?MFHEUT "PZ MURNAU?MFSEVT "PZ LW TROPRO?MF\EWT "PZ JEDDAH?MF&EYT "DR. HILBER?M.E!T "FRFW O	FOE
RG.?MF;FAT "MALT.HIDI?M9;FCT "PJ FST?MGRLTI (I-N)6.15;S N=I;G 6.15?MGYNJD 9;T :3?M!0NTD 9,7.1?MT
R^T "ING.-BUERO  B R A S S  ALFONSSTR. 9?M*;VCT "HS. FST?MHGVGT "EST LFD.?MHPVHT "EST RSTD.?MHWVIT "KIST?MH
VJT "SPEND.?M+QXAT "BUEROM.,NKOST.?MH4XCT "BEZ. GEH.?MH=XDT "SOZ.VERSI?MIKXET "VERSI-BUERO, BEITR.?M+XXFT "ACQUIS.?MI^XIT "SONST. SPESEN?MI	ZAT "MWST LFD.?M-ZBT "MWST RSTD.?M OZET "ST-ZUSCHL.?MJE\AT "VGT. SCHLEI?MJO\BT "VGT. SCHMID?MJX\CT "NISSL LBG?MJ!\D
 "KOELBL LW?MJ+\ET "KOELBL LPE?MJ5\FT "KOELBL JED?M8&\GT "VGT. SONST.?MKI AT "F	LIT.,ETC.?MKR BT "WEI.BLDG.?MK[ CT "ST.-BRTG.?M+- DT "RE.-BRTG.,ETC.?MK1"BT "REIKO. INL.?MK<"CT "REIKO. AUSL.?MLG"DT "SONST. REIKO?MLP$AT "BUEROBED.?ML[$BT "FIRM.LEISTG.?M+?$C
 "REP., STEW?ML.&AT "KFZ LFD.?M,E&BT "KFZ REP.?MMF,JD 7.2;T "GES.-BETRAEGE:?M	?,TT %9.02:30"DM?ML7,ED 9,7.2;T :36"AUSGABEN   EINNAHMEN    SALDO?M(Y,D 7.2;T "BUERO, NETTO:";D 22.2;S NA=A-YA,NE=E-YE;T NA,NE,NE-NA?M9L-BS U=251,V=299;D 22.7?M9V-FF K=U,V;T %9.
2,K(K)?M],-PS U=U+D,V=V+D;D 22.7?MN7-UO C?MQK-ZQ?MOG3FS YA=YA+Y,BA=BA+B?M [3PS YE=YE+Y,BE=BE+B?MOZ:ET "JAN.?MO!:JT "FEBR.?MO(:OT "MAERZ?MO/:TT "APRIL?MO5:YT "MAI?MO<:^T "JUNI?MPC:T "JULI?MPJ:(T "AUG.?MPQ:-T "SEPT.?MPX:2T "OKT.?MP
:7T "NOV.?M:<T "DEZ.?M	5RJT !;S JJ=JJ+1;I (63-JJ)9.2;R?M%3B6T !"KONTO ";I (FABS(B-D)-.005)1.6?MTI.JF K=U,V;D 24?MXB T %3,N;F I=1,N;T %7.03,A(I),B(I),%10.02,C(I)?M&L4JS T=FITR(M(I)/(1+N/100)),Z=T*N/100,SZ=SZ+Z,S=S+T?M89BGS I=FITR($/100)?M<1,<S $=$/100,U=FI
R(($-FITR($))*100+.1)-78,T=12*U+FITR($)?MW%07R?MB=BVT !%2,I;A :7,A;I (A-.1)1.28;S N=I?MRHBFA "VORH. DAT 
 1/-1:",T;I (T)1.14?M3TLJT !"AENDERN/ZUS. DAT.:"!!"NR.";D 1.15;F I=1,4;Z V(I),V(10+I)?MR102I (1-Z)24.7,24.6?M&0EZ Z,S,I,SY?MN;3AZ A1(J),B1(J),C1(J);R?MV"R(T "  8000 MUENCHEN 19  RUF *089-181081"!!"*"!!?MUFFFT "PZ LW INJ.LOESG.?M-5FGT "AW KRAILLING?MB)BLA 
"AEND.
 1/-1:",U;I (-U)6.1;G 1.4?ME]D>T "KIG?MU02JR?MVS2TS A=T?MU,2EI (FITR(A1(J))-T)25.1,25.2?M 6JD 7.2;S E=K/100;D E?M\&2YD 9;T %6,A,100*(A1(J)-A)?MX;R2T "BETRIFFT:  ";D 29;S &=&+1,JJ=5;T %2:63"SEITE"&,!!!?ML%$FT "BEW.,GESCH.?MW
BJF I=1,4;A T(I),T(I+10),U(I),U(I+10)?MUQBKO I,E?MYO0<S J=1,A=FITR(A1(J));D 27,25.25,25.3,25.4,25.5;R?M05CES C=-1;G 1.5?M*-SFR?M0V,2D 7.2;T "ABZUF. MWST ST.NR. 115/13206?MYJB!F I=1,4;T %10.02,T(I),T(I+10),U(I),U(I+10)?MXIR<I (DE)9.7;D 1.15,1.92,9?M^*B"O C
MY 1FD 27;;F T=1,31;F J=1,Z;D 25?MU61PD 25.6?M.+CON I;D 1.68,1.76?MZ:B.T !!"KONT.-KONTR.:?M[>CBS A=-1;G 1.5?M[2B>I (C)1.7;N I;I (A)1.68;I (2-I)1.64;G 1.49?M]TB2A :27"DM  "T(I),:44,U(I),:58,Y;O (9-Y)9;I (9-Y)1.5?M,MB/T :31"ANFANG":44"ENDE?MC1CLT :25%9.02"D
",T(I),U(I),U(I)-T(I)?M3
CRN I;D 1.49?MZ^B1D 7.1;T "BANKKTO."%1,I?MY=CD 7.1;T "PS-KTO.:?MXCDD 7.1;T "KASSE:?M,,CHT !!"*"!!;D 9.5;T %3,N,!!:20"MONATSABSCHLUSS  ";D 29?M%D2^S A=FITR(B1(J)+.001),Y=,L=FITR(TA/10+.01)/10+25.4?M];22S SS=SS+B;O (.01-A)25.9;D L;R?MP7B4S B=V(10+I)-V(I),D=
(I)-T(I);T %8.02:60,D?MN2-RF I=11,20;T %9.02,SL(I)?MTQ2<D 9,9;T :6"INSGES.:"%9.02:TA,S;O (.01-SY)25.95?M9AB\A !"AEND.
 1/-1:",U;I (-U)6.1;G 1.4?M"(B$G 1.72?MGCLOA !,I;I (I-.1)1.28;A :7,A;D 1.23;I (9-Y)6.15;D 1.26?M
 BOT :5"DATUM":13"KONTO":21"KO.GR.?MB.BPT :33"MWST":43"BR.-BETRAG?M7,^T "BUERO, BRUTTO:";D 22.2;T A,E,E-A?M 9CZD 9,9,7.2,1.15?M-OZFT "KFZ-ST, VERSI.?M /3ZS Y=B-B/(A+1),SY=SY+Y;T :59%6.02,Y?MQ-3
T :59%6.02,SY?M:)C\T :30"MWST":39"BR.-AUSG.  BR.-EINN.":64"MWST";D 9?MY1B-F I=1,4;T !%2,I,%9.02,V(I),V(I+10)?M!UB,I (C)1.7?M!6PES J=10?M4DPJN J;I (14-J)8.8;I (K-J)8.1,8.3,8.1?M"OQPZ J?M"$QUN J;I (4-J)8.9;I (K-J)8.85,8.95,8.85?MCQZR?M!)B(F I=1,N;S =A(I),K=
ITR((-FITR())*100+.1);D 8?MP&Q
S V(J)=V(J)+C(I);G 8.85?MDXDJS DE=-1;D 1.96;G 22.05?M	J8JZ M(1)?M10JN I;I (N-I)24.5?M$C0OI (FITR(B(I))-K)24.1,24.2,24.1?M$!0TN Z;S K(K)=K(K)+C(I),A1(Z)=A(I),B1(Z)=B(I),C1(Z)=C(I)?MS>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?M]B2(T 
8,A;S A=(B1(J)-A),B=C1(J),S=S+B;T %4.01,100*A,:TA,%9.02,B?M"JQFS M(R)=M(R)+C(I);G 8.1?M,!B8T "NICHT ";D 1.6;T "  DIFF. : DM",B-D;G 1.62?MVF4TD 7.1;T "EINN. MIT"%3.01,N," % MWST:":40%11"DM",T,%9.02,Z?M2%,(D 9,9,7.2;T "EINN. NACH MWST-SATZ:":50"NETTO":63"MW
T?MOS:AS E1=29+FITR($/100)/20;D E1;T %5,ED+1900;R?MXM,0T "SUMMEN:":40%11"DM",S,%9.02,SZ?MG RTF Z1=JJ,69;T !?M)V,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?M
0,\D 7.2;S A=BA-SL(11)-SL(20),R=K(261)+K(262),E=BE-R?M(:,ZI (SL(20)-10)22.28;D 7.2;T "INVESTITIONEN:";D 22.2;T SL(20)?M*AFMT "AW OTTO II?M*MFNT "MUC: GR.L. UMB.?M/7FOT "BBK: GG.-STROBL STR.?M*$^DT "PGH JED?MJ?^ET "PGH SONST?M*4VAT "ENTN.?MG6VBT "U 47?M+CV
T "PR. KFZ?M+KVET "VS, KRK?MG>VFT "LV?MH+XBT "POST?M+
XGT "ZINS?MISXHT "KTOKOST?MI1ZDT "VST?M+7 ET "BEW. BUERO?MK	"AT "F.SPES.?MW$DT "GWG?MMP(AT "INVEST.?M[$B0S I=1,Y=,A=;T :57"I/X":62"DIFF."!?MZFB<T %9.02"AUSGEGL.?M[HCJT !!!"KONT.STD.:";D 1.47;T :54"DIFF.";S I=1;D 9,1.49;S JJ=12,C=?M-YZGT "KI.L.ST.RK?MI;ZHT
"KI.L.ST.EV?M+	ZCT "LST?M)7FLT "JOEPHI.STR.[S]?M.LFJT "WALH.STR.[S]?MF2ET "MUC:LEIPZ.STR.?M-)FKT "ST. BONI?MRC"S U=U+D,SS=,V=V+D?M1PC
D 1.96,1.98,23?M[\CPD 7.2;Z I;T "AUSGABEN / EINNAHMEN N. KONTEN";D 9?MSIBDA !"MON.:",M,:12"JAHR:",ED;S $=100*(M+ED/100)?MS]HJA "   WELCHE ZEILE 
 ",Z1;F J=Z1,70;T !?M0DFPT "BBK: RUB.ST.STR.?M0LFQT "STEINH.?M80FRT "ABERLESTR.?MRS,4D 7.1 ;T "FUER ";D 29;T :31%9.02"DM",SZ-YA;D 9.2,9.3,9.4?M\ICFA !!"KONT OK 
 1/-1:",I;O (-I)4.1;I (I)6.1;G 1.3?M.UC S L=FITR(U/100),SL(L)=SS?M.!C^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?M4	PS R=2;I (L-120)8.4,8.7;S R=6;G 8.7?M%%P<S R=1?M51,)S I=1,M(I)=M(I)-R,N=,S=;O (M(I))28;D 9,26?M<;,>T
%9.02,M,BA,BE,A,E,NA,NE;F I=1,N;T M(I)?M^0LLF I=1,57;Z M(I)?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)?M2KP^S V(J)=V(J)+C(I),=B(I),L=FITR((-FITR())*1000+.001);T %4.01,L?M5FP(S R=6;I (120-L)8.7;S R=2;I (110-L)8.7;S R=4;I (65-L
8.7?M2
P2S R=7;I (60-L)8.7;S R=3;I (55-L)8.7;S R=5;I (50-L)8.7?M6DCVN I;D 1.68,1.83,9,9?M6[,*S I=6,N=13;D 26;S I=7,N=6.5;D 26?M ECXT :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?MM), D 7.2;T "VORS
EUER / MWST:";D 22.2;T YA,YE,YA-YE?ME?EPT "BUEROEINN."%3.01,MS," %?M8\D8S MS=6;D 2.8?M7>D:S MS=5.5;D 2.8?MEED;S MS=11;D 2.8?M8REES MS=6.5;D 2.8?M;BEFS MS=13;D 2.8?M74D9S MS=12;D 2.8?M<R\HT "VGT. CLARA?M:FFST "BBK: ROTH?MBXBHO I T3(I)?MQTB^D 1.07;O O T3(I)
MNX-DS U=301,V=399?MN%-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?MT9FET "MUC KO-STAT.?M:OFTT "PZ BARER?M:YFUT "BBK: G-S 3?M:!FVT "DOPEDR?M;KFWT "HANFST.?M1
C]S U=251,V=299,TA=47;D 23;S U=301,V=399;D 23?ME(ELS MS=6;D 2.8?M;TFXT "BV WIDH.?M;
FYT "WZ STADTENTW.?M;.FZT "BBK: WOHNANL. TAUFKI.?M;9F[T "FA. SCHLEGEL?M<EF\T "PZ: VILLA TRUTZ?M/ F]T "PAI: AIDENB.STR/?M<]^AT "PGH RUBINST.?M<	^BT "PGH TAUFKI.?M*\^CT "PGH HANFST.?M2=,=S N=7;O O M(T)?MNK-F I=1,4;T V(I),V(10+I)?M.9L S OBA80>SYS?M??M,V(10+I
?M.95?M?M??MT.E 2.71?M?M?MGH HANFST.?M?M

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