CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
      SUBROUTINE FNDFLD(DIR,DISPLY)
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
      INCLUDE   'SY:ENTRY.CMN'
C
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
      CALL DSASTR
C
      C = C+DIR
C
      IF (DIR.EQ.FORWD) THEN
CCC     FORWARD SEARCH TO NEXT FIELD:
        DO 100 I = 1, 4000
          IF (SCRCOL(S,R,C-1).EQ.PROTEC .AND. 
     *        SCRCOL(S,R,C)  .NE.PROTEC) THEN
            IF (DISPLY.EQ.YES) CALL UVT100(CUP,R,C)
            RETURN
          ELSE
            C = C+1
            IF (C.GT.80) THEN
              C = 2
              R = R+1
              IF (R.GT.23) R = 1
            END IF
          END IF
  100   CONTINUE
      ELSE
CCC     BACKWARD SEARCH TO LAST FIELD:
        DO 300 I = 1, 4000
          IF (SCRCOL(S,R,C-1).EQ.PROTEC .AND. 
     *        SCRCOL(S,R,C)  .NE.PROTEC) THEN
            IF (DISPLY.EQ.YES) CALL UVT100(CUP,R,C)
            RETURN
          ELSE
            C = C-1
            IF (C.LT.2) THEN
              C = 80
              R = R-1
              IF (R.LT.1) R = 23
            END IF
          END IF
  300   CONTINUE
      END IF
C
      RETURN
      END