C SUMALL C C MICHAEL BOORSTEIN C C DATE MARCH 11,1978 C C SUBROUTINE SUMALL(WORTH,LOW,HIGH,NUMCRD) IMPLICIT INTEGER(A-Z) DIMENSION WORTH(11) LOGICAL*1 ACE C C BEGIN C ACE=.FALSE. LOW=0 HIGH=0 DO 10 J=1,NUMCRD TEMP=WORTH(J) LOW=LOW+TEMP HIGH=HIGH+TEMP IF(TEMP.NE.1.OR.ACE)GOTO 10 ACE=.TRUE. HIGH=HIGH+10 10 CONTINUE RETURN END