LEX 'MAXRC' ID #53 MSG 0 POLL EECD7 ENTRY MAXRC CHAR #F KEY 'MAXRC' TOKEN #55 ENDTXT EECD7 ?B=0 B poll handler EECDA GOYES EECDF EECDC GONC EED0F EECDF C=R3 EECE2 D1=C EECE5 A=R2 EECE8 D1=D1- 16 EECEB CD1EX EECEE ?C=A B is previous col. value larger? EEDAD GOYES EEDB2 yes, save! EEDAF C=A B no, exchange with last value read EEDB2 CR0EX and save for output EEDB5 A=B B EEDB8 B=A A EEDBA GOSUB EEDE6 EEDBE GOTO EED8C EEDC2 C=R0 at last, time to output! get saved value EEDC5 A=0 W clear A(A) EEDC8 A=B A put latest row/col in A(A) EEDCA A=C B col. value EEDCD GOSBVL #1B322 FLOAT conversion routine EEDD4 SETHEX EEDD6 C=A W put value to stack EEDD9 A=R3 EEDDC D1=A EEDDF GOVLNG #0F216 EEDE6 D1=D1+ 4 EEDE9 A=0 A EEDEB A=DAT1 B EEDEE CD1EX EEDF1 C=C+A A EEDF3 D1=C EEDF6 A=DAT1 B EEDF9 D1=D1+ 2 EEDFC ?A=B B EEDFF RTNYES EEE01 GONC EEDEB END