FTN4
      SUBROUTINE ERFLG(N,IMAI,IMKY,IMFLG,IMAS,IMDT), 92903-16305 REV.191
     C3  781020 1630
C 
C     SOURCE 92903-18305
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*                                                                   *
C*                         THIS SUBROUTINE IS USED TO RESET THE      *
C*   IMAGE FLAGS IMFLG,IMAS,IMDT,IMKY WHEN THE USER ERASE AN         *
C*   OPERATION PREVIOUSLY DEFINED                                    *
C*                                                                   *
C*********************************************************************
C*
C 
      DIMENSION IMAI(45,5)
C 
C  ERASE IMAI ARRAY AFTER LINE N
C 
      DO 100 I=N,45 
      DO 100 K=1,5
100   IMAI(I,K)=0 
C-----INIT FLAGS
      IFDM=0
      IFDT=0
      IUP=0 
      IAD=0 
      ICK=0 
      IDE=0 
      IDI=0 
      ISM=0 
C 
C  CHECK IF OPERATIONS STILL EXIST IN IMAI
C 
      DO 120 I=1,N
      L=IAND(IMAI(I,3),377B)
      K=IAND(IMAI(I,2),7) 
      IF((K.EQ.0).AND.(L.EQ.IMAS).AND.(IMAS.NE.0)) IFDM=1 
      IF((K.EQ.0).AND.(L.EQ.IMDT).AND.(IMDT.NE.0)) IFDT=1 
      IF(K.EQ.1) IUP=1
      IF(K.EQ.2) IAD=1
      IF(K.EQ.3) ICK=1
      IF(K.EQ.4) IDE=1
      IF(K.EQ.5) IDI=1
      IF(IMAI(I,5).LT.0) ISM=1
120   CONTINUE
      L=0 
      K=0 
      IF((IFDM.EQ.1).OR.(IFDT.EQ.1)) L=1
      IF((IAD+IDE+IUP).GT.0) K=1
      I=IAD+L*2+IDE*4+IUP*8+ICK*16+IDI*32+ISM*64+K*100000B
      IMFLG=IAND(IMFLG,I) 
      IF(IFDM.EQ.0) IMAS=0
      IF(IFDT.EQ.0) IMDT=0
      IF((IFDM+IFDT).EQ.0) IMKY=0 
      RETURN
      END 
      END$
                                                                                                                                                                                                                          