CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
      SUBROUTINE EQUIT
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
      INCLUDE 'SY:ENTRY.CMN'
C
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
      CALL UVT100(ED,2)
      CALL UVT100(SCA,0)
      CALL UVT100(SCA,1)
      CALL UVT100(CUP,1,33)
C
      IF (MODE.EQ.CHECK) THEN
        WRITE(4,*) 'CHECKS SAVED'
        CLOSE (UNIT=1, DISP='KEEP')
      ELSE
        WRITE(4,*) 'NOTHING SAVED'
        CLOSE (UNIT=1, DISP='DELETE')
        CLOSE (UNIT=2, DISP='DELETE')
      END IF
      IF (PRTFLG.EQ.YES) CLOSE (UNIT=3)
C
      CALL UVT100(SCA,0)
      CALL UVT100(KEYPAD,0)
      TCACR(2) = 1
      CALL GETADR(PRL,TCACR)
      PRL(2)   = 2
      CALL WTQIO(SFSMC,4,2,,,PRL)
C
      RETURN
      END