CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
      SUBROUTINE MESSGE(MSGNUM,BELFLG,SCRFLG,CUPFLG)
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
      INCLUDE    'SY:ENTRY.CMN'
C
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
      IF (BELFLG.EQ.YES) CALL UVT100(BEL,0)
C
      CALL UVT100(SCA,0)
      CALL UVT100(SCA,1)
      CALL UVT100(CUP,24,40)
      CALL UVT100(EL,0)
C
      GOTO (101,102,103,104,105,106,107,108,109,110,
     *      111,112,113,114,115,116,117,118,119), MSGNUM
      GOTO 1000
C
  101 WRITE(4, 1011)
 1011 FORMAT('Too few/many columns - 1 MIN, 510 MAX.')
      GOTO 1000
  102 WRITE(4, 1021)
 1021 FORMAT('Illegal mode.  ENTRY BEING ABORTED.')
      GOTO 1000
  103 WRITE(4, 1031)
 1031 FORMAT('At TOP/BOTTOM of file, illegal move.')
      GOTO 1000
  104 WRITE(4, 1041)
 1041 FORMAT('Field must be completely FILLED.')
      GOTO 1000
  105 WRITE(4, 1051)
 1051 FORMAT('Record changed.')
      GOTO 1000
  106 WRITE(4, 1061)
 1061 FORMAT('Record not found.  Position unchanged.  ')
      GOTO 1000
  107 WRITE(4, 1071)
 1071 FORMAT('Field is REQUIRED.')
      GOTO 1000
  108 WRITE(4, 1081)
 1081 FORMAT('Illegal command')
      GOTO 1000
  109 WRITE(4, 1091)
 1091 FORMAT('Switch screen illegal.  Only 1 screen.  ')
      GOTO 1000
  110 WRITE(4, 1101)
 1101 FORMAT('Enter NUMERIC data only for this field. ')
      GOTO 1000
  111 WRITE(4, 1111)
 1111 FORMAT('OUT OF RANGE value found in this field. ')
      GOTO 1000
  112 WRITE(4, 1121)
 1121 FORMAT('Search backwards when at top.')
      GOTO 1000
  113 WRITE(4, 1131)
 1131 FORMAT('Search forwards when at bottom.')
      GOTO 1000
  114 WRITE(4, 1141)
 1141 FORMAT('No unprotected fields on screen.')
      GOTO 1000
  115 WRITE(4, 1151)
 1151 FORMAT('Record already deleted.')
      GOTO 1000
  116 WRITE(4, 1161)
 1161 FORMAT('Not a deleted record.')
      GOTO 1000
  117 WRITE(4, 1171)
 1171 FORMAT('Record UNdeleted.')
      GOTO 1000
  118 WRITE(4, 1181)
 1181 FORMAT('Deleted record location.')
      GOTO 1000
  119 WRITE(4, 1191)
 1191 FORMAT('No search characters entered.')
C
 1000 IF (SCRFLG.EQ.CLE) THEN
        CALL SCRWRT(CLE,CUPFLG)
      ELSE IF (SCRFLG.EQ.NOCLE) THEN
        CALL SCRWRT(NOCLE,CUPFLG)
      ELSE IF (SCRFLG.EQ.NOSCR) THEN
        IF (CUPFLG.EQ.CUPTOP) THEN
          R = 1
          C = 1
          CALL FNDFLD(FORWD,YES)
        ELSE IF (CUPFLG.EQ.CUPNM) THEN
          CALL UVT100(CUP,R,C)
        ELSE IF (CUPFLG.EQ.CUPBF) THEN
          C = C+1
          CALL FNDFLD(BACKWD,YES)
        END IF
      END IF  
C
      CALL UVT100(SCA,0)
      IF (RECTYP.NE.DELETD) THEN
        CALL ERASE
      END IF
C
      RETURN
      END