File ONU80.FC (FOCAL source file)

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

1+()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?MCZBXI (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?
M1CTD 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. 9?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:
T "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;I (9-Y)6.15;D 1.26?MR]BOT :5"DATUM":13"KONTO":21"KO.GR.?MB.BPT :33"MWST":43"BR.-BETRAG?MF ,^T "BUERO, BRUTTO:";D 22.2;T A,E,E-A?M%PB,I (C)1.7?MSBB(F I=1,N;S =A(I),K=FITR((-FITR())*
00+.1);D 8?MTC8JZ M(1)?MXKB8T "NICHT ";D 1.6;T "  DIFF. : DM",B-D;G 1.62?MHJ:AS E1=29+FITR($/100)/20;D E1;T %5,ED+1900;R?MNI,0T "SUMMEN:":40%11"DM",S,%9.02,SZ?MERTF Z1=JJ,69;T !?MVO,YS SL(11)=SL(11)-V(4),BA=BA-V(4);T BA,BE,BE-BA?M]U,%D 7.2;T "PRIVAT";D 7.
;T "KASSE EINGER.:";D 22.2;T SL(11),R?MR-,\D 7.2;S A=BA-SL(11)-SL(20),R=K(261)+K(262),E=BE-R?MU3,ZI (SL(20)-10)22.28;D 7.2;T "INVESTITIONEN:";D 22.2;T SL(20)?MV7VAT "ENTN.?M,NVBT "U 47?M,&VFT "LV?M,=XBT "POST?M.CZDT "VST?M1K$DT "GWG?MKR,4D 7.1;T "FUER ";D
29;T :31%9.02"DM",SZ-YA;D 31,9.2,9.3,9.4?MPAB0S I=1,Y=,A=;T :57"I/X":62"DIFF."!?MOSB<T %9.02"AUSGEGL.?MZ CFA !!"KONT OK 
 1/-1:",I;I (I)6.1;G 1.3?M&XCJT !!!"KONT.STD.:";D 1.47;T :54"DIFF.";S I=1;D 9,1.49;S JJ=12,C=?M+BFKT "ST. BONI?MO9CPD 7.2;Z I;T "AUSGABEN / EINNAHMEN N. KONTEN";D 9?MLDBDA !"MON.:",M,:12"JAHR:",ED;S $=100*(M+ED/100)?MJ	B^D 1.07;O O T2(I)?MBXBHO I T2(I)?MP
CGA !"WELCHE ZEILE 
,L;F L1=L,70;T !?MZ<CZD 9,9;D 30?MDXC\F T=1,31;D 23?M[Z.JF K=1,N;S =A(K),$=B(K),A=FITR()?M[%.LI (A-T)23.2,23.3?M J.TR?M[><ED 9,9;T :25"AUSGABEN":112"EINNAHMEN?M\P<JD 9,9;F I1=1,13;T :19%6,I1,".?M<ND 9;T "TAG TEXT   KT  BUZ  %   VORST   RAUMKO  PERS.KO BUE
ETR REISEKO FRE-LEI PRIVAT  G W G   KFZKO  MWST    KTOKO   UMS-ST  BETRAG?M^U,(D 9,9,7.2;T "BETRIEBSEINNAHMEN:":27"MWST-SATZ    0 %":48"13 %":56"6.5 %":66"12 %":76"6 %":84"11 %":92"5.5 %":101"INSGESAMT?M^	,)D 7.2;T "HONORARE, ENTGELTE - ?M^/,*T "BRUTTO:?M
D,+F I=1,7;T :34%7.02,M(I);S MM=MM+M(I9?M
",,T %11.02,MM;D 7.2;Z N;T "ENTH. MWST:":34%7.02,N;S N=14?M
,,-F I=2,2,7;D 24?MT[,.T %11.02,SZ;D 22.41;T "NETTO:";F I=1,7;T :34%7.02,T(I)?M Q0ES N=N-1?M &0JD 24.2;S N=N/2;N I;D 24.2;S N=N*2;R?M .0TD 24.3;T Z?MS$0^S T(I)=FITR(M(I9/(1+N/100)),Z=T(I)*N/100,SZ=SZ+Z,S=S+T(I)?M"LPEZ J?M!=QPR?M" P^I (600-B(I))8.9;S V(J)=
(J)+C(I),=B(I),L=FITR((-FITR())*1000+.001)?MJBQZS VA(J)=VA(J)+C(I);G 8.1?M!WPJN J;I (4-J)8.8;I (K-J)8.1,8.3,8.1?M"4PS R=4;I (L-120)8.4,8.7;S R=2;G 8.7?MBP(S R=6;I (L-110)8.5,8.7?M.P2S R=5;I (L-60)8.6,8.7;S R=3;G 8.7?M(P>R=?M!SQFS M(R)=M(R)+C(I);G 8.1?MZQA
 R=1?MVP<S R=7;I (L-1)8.65;G 8.7?M$]LJT !"AENDERN/ZUS. DAT.:"!!"NR.";D 1.15;F I=1,4;Z VA(I),V(I)?MQ-LLF I=1,7;Z M(I)?MM+BJF I=1,4;A TA(I),T(I),UA(I),U(I)?MN.B!F I=1,4;T %10.02,TA(I),T(I),UA(I),U(I)?MN>B-F I=1,4;T !%2,I,%9.02,VA(I),V(I)?M&B2A :27"DM  "TA(I
,:44,UA(I),:58,Y;O (9-Y)9;I (9-Y)1.5?MJSB4S B=V(I)-VA(I),D=UA(I)-TA(I);T %8.02:60,D?MC1CLT :25%9.02"DM",TA(I),UA(I),UA(I)-TA(I)?MDGCST %9.02:25"DM",VA(I),V(I),V(I)-VA(I)?M	Z,>T %9.02,M,BA,BE,A,E,NA,NE;F I=1,7;T M(I)?MGZ-F I=1,4;T VA(I),V(I)?MG	-DS U=301,V
399?M	9D9T "B.EINN?M	?D:D 2.57?M(ED;D 2.57?M(KD<D 2.57?MMGD=T "P.EINN?M([D4T "LBG KO?M(D5T "PMUR KO?M(+D6T "PLW KO?M(3D7T "BE.MAW?M	1D8T "B.EINN?M)AEED 2.57?M)OEFD 2.57?M(;EAT "WW GER?M)UEGT "GRI?M)[ENT "LBG?M)EOT "HIRSCH?M)3EUT "PZ MUR?M*BEXT "GZ LOH?M):
VT "PZ LW?M)+EWT "PZ JED?M*JE!T "MUC OF?M*RET "MUC LP?M*ZFAT "MALTHI?M*"FCT "PJ STL?M**FET "MUC KS?M*2FFT "PZ LW2?M*:FGT "AW KRA?MYOFJT "WALHAL?M+JFLT "JOSEPH?M+RFMT "AW OTT?M+ZFNT "MUC UM?M+"FOT "GS 5/7?M+*FPT "RUBST.?M+1FQT "MENZ2?M+8FST "ROTH?M+?FTT "B
RER?M,FFUT "GS 3?M=FVT "DOPEDR?M,VVCT "HS.STL?M,^VDT "PR.KFZ?MV>VET "VS KRK?M,-VGT "EST L?MEVVHT "EST RU?MWDXAT "BMI,KO?M-EXCT "GEHALT?M-MXDT "SOZ VS?M-UXET "BV,BTR?M-]XFT "ACQUIS?M-$XGT "ZINS?M-,XHT "K.KOST?M-4XIT "SOSPES?M-;ZAT "UST L?M.0ZBT "UST RU?M.J
ET "ST-ZU?M.RZFT "KFZSTV?M.YZGT "KSTRK?M. ZHT "KSTEV?M.(\AT "V SCHL?ME%\BT "V SCHM?MWKZCT "V NISS?M/\DT "KOE LW?M/G\ET "KOEGR?M/N\FT "KOEJE?M/U\GT "V SON?M/\\HT "V CLA?M/$^DT "PGH JE?M/,^ET "PGH SO?M/3 AT "F	LIT?M/; BT "W.BILD?M0C CT "ST-BER?M0K DT "RE-BE
?M0S ET "BEW-BU?M0["AT "KMSPES?M0"BT "RKO-IL?M0+"CT "RKO-AL?M03"DT "RKO SO?M0;$AT "BUEBED?M1C$BT "FI-LEI?MWQ$CT "REP,EW?M1S$FT "BEW,GE?M1[&AT "KFZ LF?M1&BT "KFZ RE?MFG(AT "INVEST?MML S ONU80?M??MF?,GE?,EW?I-LEI?D?O?ST. RK

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