FTN4
C 
C 
      SUBROUTINE ERLIT(ILITE,N), 92903-16306 REV.1805  770722 
C*
C     SOURCE 92903-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)
C 
      DO 100 I=1,15 
      M=ILITE(I)
      IF(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$
                                                                                                                                                                      