Deutsch (6.2 MB) - Nagra
Deutsch (6.2 MB) - Nagra
Deutsch (6.2 MB) - Nagra
Sie wollen auch ein ePaper? Erhöhen Sie die Reichweite Ihrer Titel.
YUMPU macht aus Druck-PDFs automatisch weboptimierte ePaper, die Google liebt.
NAGRA NTB 85-32 C - 19<br />
C LOGIC FOR AUTOMATIC MAXIMUM SEARCH<br />
C ----------------------------------<br />
IFC.NOT.AUTO) RETURN<br />
IFC.NOT.LOCMAX) GOTO 80<br />
LOCMAX=.FALSE.<br />
GOTO 110<br />
80 IFCSD(9).LT.OLDSUM) GOTO 90<br />
CLI<strong>MB</strong>=.TRUE.<br />
GOTO 110<br />
90 IFCCLI<strong>MB</strong>) GOTO 100<br />
LOCMAX=.FALSE.<br />
GOTO 110<br />
100 LOCMAX=.TRUE.<br />
CLI<strong>MB</strong>=.FALSE.<br />
BACKSPACECIRD)<br />
BACKSPACE(IRD)<br />
BACKSPACE(IPR4)<br />
BACKSPACE(IPR4)<br />
RETURN<br />
110 OLDSUM=SD(9)<br />
120 FORMAT(lHl,5X,10A8116X,'JAHRESDOSEN [MREM/A] ZUR ZEIT'<br />
1 ,lPD9.2,' A'/6X,41C'*')11<br />
2 6X,'NUKLID' ,T15,'TRINKEN' ,T24,'MILCH' ,T33,'FLEISCH'<br />
3 T42, 'BL.GEM.' ,T51, 'GETR.' ,T60, 'W.GEM.' ,T69, 'EIER' ,T78, 'FISCH<br />
4 T87,'TOTAL' ,T96,'ANTEILC%)'/)<br />
130 FORMATC6X,A7,9C1PD8.1,lX),OPF9.2)<br />
140 FORMAT(/6X,87C'-')/)<br />
150 FORMATC6X,'ANTEILC%)' ,9CF<strong>6.2</strong>,3X»<br />
160 FORMATC1P,41El0.3)<br />
RETURN<br />
END
Change language