File OBU80.FC (FOCAL source file)

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

9B()BTC U/W-FOCAL:OBU80NO/DA/TE?MX	BBZ?M!JBIA N;F I=1,N;A A(I),B(I),C(I)?MQ!BNT !!?MB8BRT "  I/X"!;Z I?MK\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?MP/B[G 1.2?MC<CMN I;D 1.49,1.76?MNPCNN I;D 1.64,1.76?
M]CTD 1.82,1.83;N I;D 1.64,1.83?MD	LTI (I-N)6.15;S N=I;G 6.15?MD.NJD 9;T :3?M^CNTD 9,7.1?MLDR^T "ING.-BUERO  B R A S S  ALFONSSTR. 9?MERVIT "KIST?M)PVJT "SPEND.?ME),JD 7.2;T "GES.-BETRAEGE:?M6/,TT %9.02:30"DM?MEZ,ED 9,7.2;T :36"AUSGABEN   EINNAHMEN    SAL
O?MF$, D 7.2;T "VORSTEUER / MWST:";D 22.2;T YA,YE?MTO,D 7.2;T "BUERO, NETTO:";D 22.2;S NA=A-YA,NE=E-YE;T NA,NE,NE-NA?M$J-BS U=251,V=299;D 22.7?MII-FF K=U,V;T %9.02,K(K)?MP -PS U=U+D,V=V+D;D 22.7?MG2-UO C?M->-ZQ?MG=:ET "JAN.?MHD:JT "FEBR.?MHK:OT "MAERZ?MHR
TT "APRIL?MHX:YT "MAI?MH
:^T "JUNI?MH&:T "JULI?MH-:(T "AUG.?MH4:-T "SEPT.?MH;:2T "OKT.?MIB:7T "NOV.?MYS:<T "DEZ.?MG -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?MTERJT !;S JJ=JJ+1;I (63-JJ)9.2;R?MSAB6T !"KONTO ";I (FABS(B-D)-.005)1.6?M!]B T %3,N;F I=1,N;T
%7.03,A(I),B(I),%10.02,C(I)?M4IBGS I=FITR($/100)?M&,=O O M(T)?MJ7,<S $=$/100,U=FITR(($-FITR($))*100+.1)-78,T=12*U+FITR($)?MB=BVT !%2,I;A :7,A;I (A-.1)1.28;S N=I?MJ,BFA "VORH. DAT 
 1/-1:",T;I (T)1.14?ML9R(T "  8000 MUENCHEN 19  RUF *089-181081"!!"*"!!?MB)BLA !"AEND.
 1/-1:",U;I (-U)6.1;G 1.4?M%"D>T "KIG?M6RR2T "BETRIFFT:  ";D 29;S &=&+1,JJ=5;T %2:63"SEITE"&,!!!?ML^BKO I,E?MYACVN I;D 1.68,1.83?MWSCES C=-1;G 1.5?MU-SFR?MVT,2D 7.2;T "ABZUF. MWST ST.NR. 115/13206?M5XB"O C?MXLCON I;D 1.68,1.76?MOHB.T !!"KONT.-KONTR.:?MO8C
S A=-1;G 1.5?MO,B>I (C)1.7;N I;I (A)1.68;I (2-I)1.64;G 1.49?MV4B/T :31"ANFANG":44"ENDE?MQCRN I;D 1.49?M"FB1D 7.1;T "BANKKTO."%1,I?MN	CD 7.1;T "PS-KTO.:?MM(CDD 7.1;T "KASSE:?MW)CHT !!"*"!!;D 9.5;T %3,N,!!:20"MONATSABSCHLUSS  ";D 29?MG--RF I=11,20;T %9.02,S
(I)?M4QB\A !"AEND.
 1/-1:",U;I (-U)6.1;G 1.4?MDXLOA !,I;I (I-.1)1.28;A :7,A;D 1.23;I (9-Y)6.15;D 1.26?MQ4BOT :5"DATUM":13"KONTO":21"KO.GR.?MB.BPT :33"MWST":43"BR.-BBLBGC
BJBMA4XJSTC.8"8"M???AM??BBBT= A&??BBMJBPAP:<9,91V6W8[H<>LMNBMACLGKO?AA?BB >?<?;?7=3O<FEOEZEIEVE
E	RFF.QIIZI(2O20,-*TQRP[K7RUCFUSQS
XFGD1IPFPG278;7
2$W\Y; ;KOW4>H->JX%[IXRJZXKJYXXH0XNXT8AXFXU%[%WBBR% *OBI$1B[**=?XK% % J1XXH0XOXQ%!%"%Z%2*;PU%%H8?%2H0XNXTH7%3= %!% H6IH> *2%)%()?%RFU2QLR2I<()?XRHR8A* 2MKF%P%RNF%0KZ?%2H&%*8DX7%/$GMD(K+%0? + H7>(9Q+&H7<(*%H&X79XX8-SGYP$<+4+:+\=N*D*(O	"&1P+0+&PC3
/;+SW[W[W[W[=E=GW[W[W[W[W[W[W[W[W[%RDZ9&2B,GJ"%P%%%TO%T5H8?H*=%&FUH:XL2QLL2I%$%2%RFR%U52QLR<(+C8AX2H8? *:L2%$+CL2X7*\%&%2%RFT%U52I%UO%-S*YCJOI[OKI8A<HNF2C/S/O-&IXR2ALK[Z+]2M2ALK2I/ZO+K
2C
%2I/&-D-EO2: O	S	XLZ\LZ\LZ\LZ\L/	J
F(FXDWP"HNFOF(M	F(F(DUJ7K"M!F(A?ETHNJLF(F(GIHHF(P8%%%&%2H:XR%!H6IH>(-S%V*TH6CX9%!%V<H*^%"H9J,9QJ+<X%2J-*>Y<%E5DU<(H68![DN.R.XMLM=H+AKD> *6HMN.Z.N.Z.> R...CQ9F8F8F/D%%PU%TOH6%P%&+*H7> %	%!%\H6IH> +T2QL:<(+18AX2H82Q?L2%$+,2QL2X7+OH:+\H8?(+1%\+&%QX6%UO%*UHE%
+IJ(J&J0J+J!YA2\P:HGM9H(FTFX%!%RNF%WJC=>*H%RL%"H6K6> %2H2XL2YLL>(T2H2%P%RNE%QX2$G4%WJE=>%2%!K;H9> *NH2%P%RNF%WJE?2%2%TO<*<%T>%RNE%T>%TO%RFT%UO%U>H%U$%QX29X%X^$GL4U?H^H%? -SJ3HKXK/ANH%"%X/ZH6K;>(+&(<HSZSZSZ/ZB&H6K7< S(K59K4X5<XS(/(J?4=C=RH8H5H4<:B,B!B"B%BB
B:B,B,B,B,B;BM%RNF%^X9%"%WI;=>P9*I%RLH6X9JB%[:A%]H6
CH9X68 *LHE$/]2IB<HHE%\XU%!*M%!%%H7X
*MPU%!%WNN=2%\*1%%%C=C
BLBJC?%RNF%&%2H%> %RCK8H0XNXTH7%3PU$.XF%!%\%WDK0% +OH08AXNXT%[%WK0% +Z%R%!%RL$GDMI4%"%WJEA(+"K!FTFXKOKMKVKNB3K^EGH6K?> /7%!S7/7=T%YJ(FX%2: XTX&H6?8BX3%!%X*TPT*KH6?H3*J	?*]	>	=%QX3	<%08!X^H38!XS2Y\1HY*(8 K HLXLLL<(*7HS> *&H^LL> *%9QHLX2-SH[9!H1IJ<X+AH[X190
R;QHZ+KH19 K HL<X%2H1XLLLLL>(<P+DIEHLXLH3\LH&\L2Y\LHLX2\L\L\L-SE%Y8 X9+(2B/;%Y	>PK	<9$X]H%=HP]?(P]<H%H%WJD=>%!+4%!+1*PP:*NO3M)JX2%T2%!X4%Y*R+"+*%RLD%Y*
B"BM*	9$X29$H5<(*"8A>(+NH5IG?H+]3<H%2H5X:H:IG?X:H:8!H4?H+BH49Z8JZ6H4> %U$$GD5DIDX2H:H4>(-S%QX4*(3<H+
H4%P$GD%T$H:X4%!%Y+]+"+**K3%2"%Q<(/X%WS.0B3%2"PK--X3%!%X+TH39DH6+"%T$IDX2][%]%U$*MN H5IG9A8A8A>XS3/3AP1+()BTC U/W-FOCAL:ONU80NO/DA/TE?MY3BBZ?M$	BIA N;F I=1,N;A A(I),B(I),C(I)?MRJBNT !!?MB8BRT "  I/X"!;Z I?MK0BTN I?MCQBWA :17,D,:25,B,:35,E,:44,C(I),:56,Y?M
ZBXI (9-Y)1.22?MC+BZS A(I)=A+D/100,B(I)=B+E/100?MQRB[G 1.2?MC<CMN I;D 1.49,1.76?MN3CNN I;D 1.64,1.76?MM1CTD 1.82,1.83;N I;D 1.64,1.83?M(SD3T "LPE GRI KOST.?MD2LTI (I-N)6.15;S N=I;G 6.15?MD9NJD 9;T :3?M!NNTD 9,7.1?MLXR^T "ING.-BUERO  B R A S S  ALFONSSTR. 
?ME]VIT "KIST?M,5VJT "SPEND.?M.8\CT "NISSL LBG?ME=,JD 7.2;T "GES.-BETRAEGE:?MT8,TT %9.02:30"DM?ME.,ED 9,7.2;T :36"AUSGABEN   EINNAHMEN    SALDO?MF8, D 7.2;T "VORSTEUER / MWST:";D 22.2;T YA,YE?MUR,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?MI]-FF K=U,V;T %9.02,K(K)?MQC-PS U=U+D,V=V+D;D 22.7?MHF-UO C?M[F-ZQ?MHQ:ET "JAN.?MHX:JT "FEBR.?MH
:OT "MAERZ?MH&:TT "APRIL?MH,:YT "MAI?MH3:^T "JUNI?MH::T "JULI?MIA:(T "AUG.?MIH:-T "SEPT.?MIO:2T "OKT.?MIV:7T "NOV.?M[):<T "DEZ.?MG4-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?MT.RJT !;S JJ=JJ+1;I (63-JJ)9.2;R?MS*B6T !"KONTO ";I (
ABS(B-D)-.005)1.6?M$:B T %3,N;F I=1,N;T %7.03,A(I),B(I),%10.02,C(I)?MZXBGS I=FITR($/100)?M	C,=O O M(T)?MKK,<S $=$/100,U=FITR(($-FITR($))*100+.1)-78,T=12*U+FITR($)?MB=BVT !%2,I;A :7,A;I (A-.1)1.28;S N=I?MKBFA "VORH. DAT 
 1/-1:",T;I (T)1.14?MMMR(T "  8000 MUENCHEN 19  RUF *089-181081"!!"*"!!?MB)BLA !"AEND.
 1/-1:",U;I (-U)6.1;G 1.4?M)GD>T "KIG?MN
R2T "BETRIFFT:  ";D 29;S &=&+1,JJ=5;T %2:63"SEITE"&,!!!?ML2BKO I,E?MZ4CVN I;D 1.68,1.83?MXVCES C=-1;G 1.5?MV0SFR?MWW,2D 7.2;T "ABZUF. MWST ST.NR. 115/13206?MNER<I (DE)9.7;D 1.15,1.92,9?MQ	B"O C?MYXCON I;D 1.68,1.76?MO+B.T !!"KONT.-KONTR.:?MP[CBS A=-1;G 1.
?MPOB>I (C)1.7;N I;I (A)1.68;I (2-I)1.64;G 1.49?MW7B/T :31"ANFANG":44"ENDE?M&.CRN I;D 1.49?M%B1D 7.1;T "BANKKTO."%1,I?MOJCD 7.1;T "PS-KTO.:?MM<CDD 7.1;T "KASSE:?MX,CHT !!"*"!!;D 9.5;T %3,N,!!:20"MONATSABSCHLUSS  ";D 29?MHA-RF I=11,20;T %9.02,SL(I)?MZMB\A 
"AEND.
 1/-1:",U;I (-U)6.1;G 1.4?MSIB$G 1.72?MDLOA !,I;I (I-.1)1.28;A :7,A;D 1.23;I0,R=8;G G?M2Q.;S TA=88,R=9;G G?M2\.<S TA=95,R=10;G G?M27.=S TA=102,R=11;G G?M1;.9S TA=72,R=7,X=,Y=;G 23.8?M3H/FS X=D/(1+B),Y=X*B;T %7.02,Y?M3/PT :TA,D;S K(R)=K(R)+D,BA=BA+D,NA=NA+
,YA=YA+Y;R?M]
/ZD G;T :110,Y,D;S K(KO)=K(KO)+D,BE=BE+D,NE=NE+X,YE=YE+Y?M  FWT "HANFST?MBXBHO I T3(I)?MJSB^D 1.07;O O T3(I)?M5^C]G 22.05?M\Y,+F I=1,7;T :34%7.02,M(I);S MM=MM+M(I)?MR;0^S T(I)=FITR(M(I)/(1+N/100)),Z=T(I)*N/100,SZ=SZ+Z,S=S+T(I)?MR B$G 1.71?M$6D3T "GRI KO?M
>D5T "PMURKO?M	]FKT "ST.BONI?M^HQFS M(R)=M(R)+C(I);T %3,R,%8.02,M(R),C(I),%3,I;G 8.1?MM1R<I (DE)9.7;D 30.1,30.14,9?MVHZCT "LST?M+K\CT "V NISS?MUL,YS SL(11)=SL(11)-VA(4),BA=BA-VA(4);T BA,BE,BE-BA?M/2.PI (KO-1303)23.6;I (KO-1304)23.53;I (KO-1305)23.51;I (KO
1306)23.54;I (KO-1307)23.59;I (L-14)23.53;I (KO-1403)23.54?M.%.JS KO=FITR($),B=B(K)-KO,C=(-A)*100,E=KO/100,L=FITR(E),D=C(K);T !%4.02,L?MPCCGA !"WELCHE ZEILE 
",L;F L1=L,70;T !?MCGL S OBU80?M?EILE 
",L;F L1=L,70;T !?O/100,L=FITR(E),D=C(K);T !%4.02,L?.59;I (L-14)23.53;I (KO-1403)23.54?MP=P+.05;S D=D-3;

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