File OBA84.FC (FOCAL source file)

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

<Z()BTC U/W-FOCAL:OBA84NO/DA/TE?M;BBZ?M0NBIA N;F I=1,N;A A(I),B(I),C(I)?MX-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?MXRB[G 1.2?MC<CMN I;D 1.49,1.76?MS5CNN I;D 1.64,1.76?M
PCTD 1.82,1.83;N I;D 1.64,1.83?MD&D<T "BUEROEINN. O. MWST?M+1D=T "PRIVATEINN.?M	OEOT "VGT. FA. HIRSCH?M/ELTI (I-N)6.15;S N=I;G 6.15?MERNJD 9;T :3?MZ NTD 9,7.1?MP*R^T "ING.-BUERO  B R A S S  ALFONSSTR. 9?M!QVCT "HS. FST?MFVGT "EST LFD.?MFIVHT "EST RSTD.?MF
VIT "KIST?M/6VJT "SPEND.?M!	XAT "BUEROM.,NKOST.?MF-XCT "BEZ. GEH.?MF6XDT "SOZ.VERSI?MGDXET "VERSI-BUERO, BEITR.?M!.XFT "ACQUIS.?MGWXIT "SONST. SPESEN?MG ZAT "MWST LFD.?M9ZBT "MWST RSTD.?MY/ZET "ST-ZUSCHL.?MG>\AT "VGT. SCHLEI?MHH\BT "VGT. SCHMID?MHQ\CT "NI
SL LBG?MHZ\DT "KOELBL LW?MH$\ET "KOELBL LPE?MH.\FT "KOELBL JED?M(Z\GT "VGT. SONST.?MIB AT "F	LIT.,ETC.?MIK BT "WEI.BLDG.?MIT CT "ST.-BRTG.?M"C DT "RE.-BRTG.,ETC.?MI*"BT "REIKO. INL.?MI5"CT "REIKO. AUSL.?MJ"DT "SONST. REIKO?MJI$AT "BUEROBED.?M,S$BT "FIRM.L
ISTG.?MJ]&AT "KFZ LFD.?M,!&BT "KFZ REP.?MJ5,JD 7.2;T "GES.-BETRAEGE:?M^:,TT %9.02:30"DM?M
T,D 7.2;T "BUERO, NETTO:";D 22.2;S NA=A-YA,NE=E-YE;T NA,NE,NE-NA?M($-BS U=251,V=299;D 22.7?M0"-FF K=U,V;T %9.02,K(K)?MW)-PS U=U+D,V=V+D;D 22.7?M9$-UO C?MLY3FS YA=YA+Y,BA=BA+B?MY;3PS YE=YE+Y,BE=BE+B?ML,:ET "JAN.?ML3:JT "FEBR.?ML::OT "MAERZ?MMA:TT "APRIL?MM
:YT "MAI?MMN:^T "JUNI?MMU:T "JULI?MM\:(T "AUG.?MM:-T "SEPT.?MM*:2T "OKT.?MM1:7T "NOV.?M:<T "DEZ.?M^0RJT !;S JJ=JJ+1;I (63-JJ)9.2;R?M]7B6T !"KONTO ";I (FABS(B-D)-.005)1.6?MPT.JF K=U,V;D 24?M)$B T %3,N;F I=1,N;T %7.03,A(I),B(I),%10.02,C(I)?M5?,<S $=$/100,U=
ITR(($-FITR($))*100+.1)-78,T=12*U+FITR($)?M.L07R?MB=BVT !%2,I;A :7,A;I (A-.1)1.28;S N=I?M;8BFA "VORH. DAT 
 1/-1:",T;I (T)1.14?MO]02I (1-Z)24.7,24.6?M+X0EZ Z,S,I,SY?MLM3AZ A1(J),B1(J),C1(J);R?MROR(T "  8000 MUENCHEN 19  RUF *089-181081"!!"*"!!?MB)BLA !"AEND.
 1/-1:",U;I (-U)6.1;G 1.4?MQ]2JR?MR2TS A=T?MQY2EI (FITR(A1(J))-T)25.1,25.2?M\P6JD 7.2;S E=K/100;D E?MV52YD 9;T %6,A,100*(A1(J)-A)?MSJR2T "BETRIFFT:  ";D 29;S &=&+1,JJ=5;T %2:63"SEITE"&,!!!?MJT$FT "BEW.,GESCH.?MQDBKO I,E?M%&CES C=-1;G 1.5?M!CSFR?MSFR<I (DE
9.7;D 1.15,1.92,9?MX	B"O C?MS/1FD 27;;F T=1,31;F J=1,Z;D 25?MQ1PD 25.6?M$UCON I;D 1.68,1.76?MUIB.T !!"KONT.-KONTR.:?MVMCBS A=-1;G 1.5?MVAB>I (C)1.7;N I;I (A)1.68;I (2-I)1.64;G 1.49?MWQB2A :27"DM  "T(I),:44,U(I),:58,Y;O (9-Y)9;I (9-Y)1.5?M"B/T :31"ANFANG":
4"ENDE?MC1CLT :25%9.02"DM",T(I),U(I),U(I)-T(I)?M-OCRN I;D 1.49?MT-B1D 7.1;T "BANKKTO."%1,I?MTLCD 7.1;T "PS-KTO.:?MR=CDD 7.1;T "KASSE:?MBCHT !!"*"!!;D 9.5;T %3,N,!!:20"MONATSABSCHLUSS  ";D 29?M6<2^S A=FITR(B1(J)+.001),Y=,L=FITR(TA/10+.01)/10+25.4?MNIB4S B=
(10+I)-V(I),D=U(I)-T(I);T %8.02:60,D?M2>-RF I=11,20;T %9.02,SL(I)?MP\2<D 9,9;T :6"INSGES.:"%9.02:TA,S;O (.01-SY)25.95?M<B\A !"AEND.
 1/-1:",U;I (-U)6.1;G 1.4?M[XB$G 1.72?MYBOT :5"DATUM":13"KONTO":21"KO.GR.?MB.BPT :33"MWST":43"BR.-BETRAG?M&4,^T "BUERO, BRUTTO:";D 22.2;T A,E,E-A?M8(CZD 9,9,7.2,1.15?M%ZFT "KFZ-ST, VERSI.?MZO3ZS Y=B-B/(A+1),SY=SY+Y;T :59%6.02,Y?M4K3
T :59%6.02,SY?M);B,I (C)1.7?MZ&PES J=10?M5ZPJN J;I (14-J)8.8;I (K-J)8.1,8.3,8.1?MZ?QPZ J?M[TQUN J;I (4-J)8.9;I (K-J)8.85,8.95,8.85?M[3QZR?MZYB(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?M.CDJS DE=-1;D 1.96;G 22.05?M<H8JZ M(1)?M\(0OI (FITR(B(I))-K)24.1,24.2,24.1?M]F0TN Z;S K(K)=K(K)+C(I),A1(Z)=A(I),B1(Z)=B(I),C1(Z)=C(I)?MPI0^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?MZ:QFS M(R)=M(R)+C(I);G 8.1
M"7B8T "NICHT ";D 1.6;T "  DIFF. : DM",B-D;G 1.62?MQ34TD 7.1;T "EINN. MIT"%3.01,N," % MWST:":40%11"DM",T,%9.02,Z?MEYRTF Z1=JJ,69;T !?M Q,YS SL(11)=SL(11)-V(4),BA=BA-V(4);T BA,BE,BE-BA?M6^,%D 7.2;T "PRIVAT";D 7.1;T "KASSE EINGER.:";D 22.2;T SL(11),R?MYP,\D
7.2;S A=BA-SL(11)-SL(20),R=K(261)+K(262),E=BE-R?M
5,ZI (SL(20)-10)22.28;D 7.2;T "INVESTITIONEN:";D 22.2;T SL(20)?M :^DT "PGH JED?MH8^ET "PGH SONST?M!JVAT "ENTN.?ME/VBT "U 47?M!YVDT "PR. KFZ?M!!VET "VS, KRK?ME7VFT "LV?MF$XBT "POST?M!5XGT "ZINS?MGLXHT "KTOKOST?MG*ZDT "VST?M"M ET "BEW. BUERO?MI "AT "F.SPES.
M:F$DT "GWG?M/](AT "INVEST.?MU3B0S I=1,Y=,A=;T :57"I/X":62"DIFF."!?MTUB<T %9.02"AUSGEGL.?MUWCJT !!!"KONT.STD.:";D 1.47;T :54"DIFF.";S I=1;D 9,1.49;S JJ=12,C=?M/ZGT "KI.L.ST.RK?MG4ZHT "KI.L.ST.EV?M!=ZCT "LST?M\BC"S U=U+D,SS=,V=V+D?M&AC
D 1.96,1.98,23?MU+CPD 7.2;Z I;T "AUSGABEN / EINNAHMEN N. KONTEN";D 9?M*VHJA "   WELCHE ZEILE 
 ",Z1;F J=Z1,70;T !?MN?,4D 7.1 ;T "FUER ";D 29;T :31%9.02"DM",SZ-YA;D 9.2,9.3,9.4?MVXCFA !!"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&]CVN I;D 1.68,1.83,9,9?MY%CXT :25"DM",SV-V(4),SD,SD-SV+V(4);Z SV,SD?MJ?, D 7.2;T "VORSTEUER / MWST:";D 22.2;T YA,YE,YA-YE?M-4EPT "BUEROEINN."%3.01,MS," %?M(PD8S MS=6;D 2.8?M	2D:S MS=5.5;D 2
8?MDXD;S MS=11;D 2.8?M(FEES MS=6.5;D 2.8?M;JEFS MS=13;D 2.8?M	(D9S MS=12;D 2.8?M(7\HT "VGT. CLARA?MK.-DS U=301,V=399?MD0ELS MS=6;D 2.8?M)B^AT "PGH RUBINST.?M)L^BT "PGH TAUFKI.?M 2^CT "PGH HANFST.?MK!-F I=1,4;T V(I),V(10+I)?MSYB!F I=1,4;T %10.02,T(I),U(I),
(I),V(I+10)?MTB-F I=1,4;T !%2,I,%9.02,V(I),V(I+10),V(I+10)-V(I)?M9YLJT !"AENDERN/ZUS. DAT.:"!!"NR.";D 1.15,1.16,1.18;F I=1,4;Z V(I),V(10+I)?MD<LOA !,I;I (I-.1)6.3;A :7,A;D 1.23;I (9-Y)6.15;D 1.26?M\V0JN I;I (N-I)24.5?M,FF	T "BBK: BV VACHER STR.?M+<EAT "WW
GERMERING?M	<EDT "GDE. GERM.?M-CF)T "BBK: BV FORCHHM.?M"U$CT "REINGG., REP., STEW?M"[&CT "KFZ ZUB.?M3LC]S U=255,V=287,TA=47;D 23;S U=301,V=350;D 23?M.9F*T "DHB: BV SCHWAIG?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)?M;TF$T "DH
: BV BUD.PEST. PL.?M	
D7T "BETR. MAW?MS^0<S J=1,A=FITR(A1(J));D 27,25.25,25.3,25.4,25.5;R?MW822S SS=SS+B;O (.01-A)25.9;D L;R?M8[F+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?M0VKT "AUSG. BEL.?M1GVLT "STEUERL. BETEILGG.?MR7BJF I=1,4;A X?MN]-
D 9.2,9.3,9.4;Q?MK;-HS U=1101,V=1115;D 22.7;S D=100;D 22.8,22.8,22.8,22.8,22.8,22.8,22.8?MFXVMT "ST.BET.-RCKSTD.?M18PS R=2;I (L-60)8.4,8.7;S R=4;I (L-70)8.45,8.7;S R=6;I (L-110)8.5,8.7?M2TP%S R=8;I (L-130)8.55,8.7;S R=10;I (L-150)8.6;G 8.7?M2]P(S R=1;G 8.
?M2&P-S R=3;G 8.7?M2/P2S R=5;G 8.7?M28P7S R=7;G 8.7?M])P<S R=9?MLH-SF I=1,4;T V(I),V(I+10)?M$KC^S TA=36,SS=,U=1101,V=1115,D=100;D 23,1.95,1.95,1.95,1.95,1.95,1.95,1.95,1.95?M9D,0D 7.2;T "SUMMEN:":40%11"DM",S,%9.02,SZ?M^P4JS T=FITR(M(I)/(1+N/100)),Z=T*N/10
,SZ=SZ+Z,S=S+T?M4;,*Z I;S M(I)=K(260);D 9,26;S R=11,O=6?M35,,F L=15,-1,11;S R=R-1,I=R,N=L;D 26;S N=L/2,O=O-1,I=O;D 26?M1SP^S V(J)=V(J)+C(I),=B(I),L=FITR((-FITR())*1000+.001);Z R;I (L-1)8.7?M6F,=O O P(T)?M)V,>T %9.02,P,BA,BE,A,E,NA,NE;F I=0,14;T M(I)?M4&,(
 9,9,7.2;T "EINN. NACH MWST-SATZ:":50"NETTO":61"MWST?M.	2(T %9,A;S A=(B1(J)-A),B=C1(J),S=S+B;T %6.01,100*A,:TA,%9.02,B?M0W-\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:]F,T "BV SPERBERSTR
 47?M,*C\T :30"MWST":39"BR.-AUSG.  BR.-EINN.":62"MWST";D 9?M%G,2D 7.2;T "ABZUF. UST ST.NR. 115/13206?M*<LLF I=0,14;Z M(I)?M7]-ZS JJ=3;D 9,9;T "DATENBLATT ZU MON. ";D 29,9,1.08,1.09,1.1,1.11?MR-$ET "KOST. FIRM.,PZ?M$0F0T "BV DANTEPARK?M:	F-T "DAIBER, RO?M:
F.T "LBG: KOPERN.?M:RF/T "GERMERING: REGENR.?M;!BCT !"PR BIS 348?M(.EGS MS=14;D 2.8?M+F&T "SUED. BREMSEN AG?MO5BDA !"JAHR 84, MON.ZAHL",P;S $=100*(P+.84)?MBXBHO I T7(P)?MN&B^O O T7(P)?ML%:AS E1=29+P/20;D E1;T "  1984";R?M*(L S OBA84?M?20;D E1;T "  1984";R
M*(P+.84)?M3.32?M?M4;D 2.8?M?ME 3.3?M?=14;D 2.8?M?ME 3.27?M?MEGS MS=14;D 2.8?M?ME 3.26?M?MD 2.8?M?ME 3.13?M?M?M?M?MB . 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