FTN4 SUBROUTINE ERLIT(ILITE,N), 92080-1X306 REV.2026 791203 C* C SOURCE 92080-18306 C* C C C ************************************************************** C * (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1978. ALL RIGHTS * C * RESERVED. NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED, RE- * C * PRODUCED, OR TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITH- * C * OUT THE PRIOR WRITTEN CONSENT OF HEWLETT-PACKARD COMPANY. * C ************************************************************** C C C********************************************************************* C* * C* THIS SUBROUTINE RESETS THE ILITE BUFFER USED FOR * C* THE LIGHTS ASSIGNEMENTS. * C* * C* PARAMETERS : * C* * C* ILITE : BUFFER TO RESET * C* N : IF > 0 RESET BEFORE A QUESTION * C* IF < 0 RESET BEFORE A DISPLAY * C* * C* IF N > 0 AND ABS(ILITE(I))>=N THEN ILITE(I)=0 * C* * C* IF N < 0 AND ABS(ILITE(I))>(-N) OR ILITE(I)=N THEN * C* ILITE(I)=0 * C* * C********************************************************************* C* C* DIMENSION ILITE(1) DATA NLITES/14/ C DO 100 I=1,NLITES M=ILITE(I) IF(M.EQ.-99.OR.M.EQ.99) GO TO 100 IF(M.LT.0) M=-M IF(N.LT.0) GO TO 110 IF(M.GE.N) GO TO 120 GO TO 100 110 IF(ILITE(I).EQ.N) GO TO 120 IF(M.GT.-N) GO TO 120 GO TO 100 120 ILITE(I)=0 100 CONTINUE C RETURN END END$