File OBA831.FC (FOCAL source file)

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

=^()BTC U/W-FOCAL:OBA831NO/DA/TE?M=JBBZ?M1
BIA 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&ZCTD 1.82,1.83;N I;D 1.64,1.83?MD&D<T "B
EROEINN. O. MWST?M,/D=T "PRIVATEINN.?M	YEOT "VGT. FA. HIRSCH?M0VLTI (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![VCT "HS. FST?MFVGT "EST LFD.?MFIVHT "EST RSTD.?MFPVIT "KIST?M1GVJT "SPEND.?M!1XAT "BUEROM.
NKOST.?MF-XCT "BEZ. GEH.?MF6XDT "SOZ.VERSI?MGDXET "VERSI-BUERO, BEITR.?M!8XFT "ACQUIS.?MGWXIT "SONST. SPESEN?MG ZAT "MWST LFD.?M$CZBT "MWST RSTD.?MY/ZET "ST-ZUSCHL.?MG>\AT "VGT. SCHLEI?MHH\BT "VGT. SCHMID?MHQ\CT "NISSL LBG?MHZ\DT "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"M DT "RE.-BRTG.,ETC.?MI*"BT "REIKO. INL.?MI5"CT "REIKO. AUSL.?MJ"DT "SONST. REIKO?MJI$AT "BUEROBED.?M-Q$BT "FIRM.LEISTG.?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?M13-FF K=U,V;T %9.02,K(K)?MW)-PS U=U+D,V=V+D;D 22.7?M;.-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*HB T %3,N;F I=1,N;T %7.03,A(I),B(I),%10.02,C(I)?M7/,<S $=$/100,U=
ITR(($-FITR($))*100+.1)-78,T=12*U+FITR($)?M/]07R?MB=BVT !%2,I;A :7,A;I (A-.1)1.28;S N=I?M7	BFA "VORH. DAT 
 1/-1:",T;I (T)1.14?MO]02I (1-Z)24.7,24.6?M,V0EZ 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%0CES C=-1;G 1.5?M!MSFR?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$
CON 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":44"ENDE?MC1CLT :25%9.02"DM",T(I),U(I),U(I)-T(I)?M. CRN I;D 1.49?MT-B1D 7.
;T "BANKKTO."%1,I?MTLCD 7.1;T "PS-KTO.:?MR=CDD 7.1;T "KASSE:?MLCHT !!"*"!!;D 9.5;T %3,N,!!:20"MONATSABSCHLUSS  ";D 29?M9F2^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?M4O-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?M8>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&>,^T "BUERO, BRUTTO:";D 22.2;T A,E,E-A?M:2CZD 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?M5\3
T :59%6.02,SY?M*9B,I (C)1.7?MZ&PES J=10?M6+PJN 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/TDJS DE=-1;D 1.96;G 22.05?M8N8JZ 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
MAB8T "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?M8 ,%D 7.2;T "PRIVAT";D 7.1;T "KASSE EINGER.:";D 22.2;T SL(11),R?MYP,\D 
.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)AFMT "AW OTTO II?M!D^DT "PGH JED?MH8^ET "PGH SONST?M!TVAT "ENTN.?ME/VBT "U 47?M!VDT "PR. KFZ?M!+VET "VS, KRK?ME7VFT "LV?MF$XBT "POST?M!?XGT "ZINS?MGLXHT "KTOKOST?MG*ZDT "VST?M"W ET "BEW. BUE
O?MI "AT "F.SPES.?M<P$DT "GWG?M0.(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=?M9ZGT "KI.L.ST.RK?MG4ZHT "KI.L.ST.EV?M"GZCT "LST?M\BC"S U=U+D,SS=,V=V+D?M&KC
D 1.96,1.98,23?MU+CPD 7.2;Z I;T "AUSGABEN / EINNAHMEN N. KONTEN";D 9?M+THJA "   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$IC 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 2EPT "BUEROEINN."%3.01,MS," %?M(ZD8S MS=6;D 2.8?M	<D:S MS=5.5;D 
.8?MDXD;S MS=11;D 2.8?M(PEES MS=6.5;D 2.8?M=TEFS MS=13;D 2.8?M	2D9S MS=12;D 2.8?M)[\HT "VGT. CLARA?MK.-DS U=301,V=399?MD0ELS MS=6;D 2.8?M)PFZT "BBK: WOHNANL. TAUFKI.?M*
F[T "FA. SCHLEGEL?M)&^AT "PGH RUBINST.?M)0^BT "PGH TAUFKI.?M <^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),V(I),V(I+10)?M**F^T "AH KRAILLING?M/EF T "GDE. KIRCHHM, SCHULE?MTB-F I=1,4;T !%2,I,%9.02,V(I),V(I+10),V(I+10)-V(I)?M;
JT !"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-DF	T "BBK: BV VACHER STR.?M,:EAT "WW GERMERING?M(FEDT "GDE. GERM.?M.TF)T "BBK: BV FORCHHM.?M"
$CT "REINGG., REP., STEW?M"%&CT "KFZ ZUB.?M,!F&T "SUED. BREMSEN AG:STAHLBUEHNE?M4]C]S U=255,V=287,TA=47;D 23;S U=301,V=350;D 23?M0JF*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-(F$T "DHB: BV BUD.PEST. PL.?
	)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?M:%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?M1QVKT "AUSG. BEL.?M2XVLT "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.?M3IPS 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?M3%P%S R=8;I (L-130)8.55,8.7;S R=10;I (L-150)8.6;G 8.7?M3.P(S R=1;G 8.
?M37P-S R=3;G 8.7?M4P2S R=5;G 8.7?M4IP7S R=7;G 8.7?M])P<S R=9?MLH-SF I=1,4;T V(I),V(I+10)?M$UC^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?M;N,0D 7.2;T "SUMMEN:":40%11"DM",S,%9.02,SZ?M^P4JS T=FITR(M(I)/(1+N/100)),Z=T*N/100
SZ=SZ+Z,S=S+T?M6L,*Z I;S M(I)=K(260);D 9,26;S R=11,O=6?M5F,,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?M2$P^S V(J)=V(J)+C(I),=B(I),L=FITR((-FITR())*1000+.001);Z R;I (L-1)8.7?MO5BDA !"JAHR 83, MON.ZAHL",P;S $=100*(P+.83)?MBXBHO I T6(P)?M76,=O
O P(T)?M):,>T %9.02,P,BA,BE,A,E,NA,NE;F I=0,14;T M(I)?ML%:AS E1=29+P/20;D E1;T "  1983";R?M57,(D 9,9,7.2;T "EINN. NACH MWST-SATZ:":50"NETTO":61"MWST?MN&B^O O T6(P)?M/82(T %9,A;S A=(B1(J)-A),B=C1(J),S=S+B;T %6.01,100*A,:TA,%9.02,B?M1(-\F I=1,N;S =A(I),D=FI
R((-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%Q,2D 7.2;T "ABZUF. UST ST.NR. 115/13206?M+:LLF I=0,14;Z M(I)?M9	-ZS JJ=3;D 9,9;T "D
TENBLATT ZU MON. ";D 29,9,1.08,1.09,1.1,1.11?MR-$ET "KOST. FIRM.,PZ?M$:F0T "BV DANTEPARK?M<1F-T "DAIBER, RO?M<<F.T "LBG: KOPERN.?M<\F/T "GERMERING: REGENR.?M7PBCT !"PR BIS 348?M(8EGS MS=14;D 2.8?M?ML S OBA831?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