IMPLICIT  INTEGER (A-Z)
C
      INTEGER   PRL(6), PRLC(6), PRLU(6), PRLB(6), SCRCOL(2,23,80),
     *  FNDCOL(24), NUMROW(2), CMD(4), BUFCHR(200,5), NUMFLD(2),
     *  NUMSCR, SFSMC, IOWVB, IORVB, IOATA, ATTESC, NOTHNG,
     *  CUP, CUU, CUD, CUF, CUB, SCA, SCS, SM, ED, EL, RM, ANSI,
     *  KEYPAD, BEL, SCROLL, PROTEC, YES, NO, NUM, APP, CLE,
     *  NOCLE, FORWD, BACKWD, MODIFY, ENTER, CHECK, FIRST, NEXT,
     *  POSREC, LSTREC, RECLEN, NUMFND, FNDFLG, PRTFLG,
     *  NAMLEN, NUMINP, NUMCHA, NUMDEL, NOCUP, CUPTOP, CUPNM,
     *  CUPBF, NOSCR, TOP, BOTTOM, MOVE1, MOVE10, RESHOW,
     *  S, R, C, FLDBGN, FLDLEN, FLDATR, ERRFLG, FLAST
C
      BYTE      SCRTXT(2,23,80), BUFFER(512), SAVBUF(512),
     *  TMPBUF(512), SCRDSP(256), FNDCHR(24), FILNAM(32),
     *  TCESQ(2), TCACR(2), OK, CHANGD, DELETD, MODE, RECTYP,
     *  BELL, BLANK, UNDERB, CR, LF, FF, TCHR, CHARAC, FLAG
C
      COMMON   /AREAI/ PRLC, PRLU, PRLB, SCRCOL, FNDCOL, NUMROW, CMD,
     *  BUFCHR, NUMFLD, NUMSCR, SFSMC, IOWVB, IORVB, IOATA,
     *  ATTESC, NOTHNG, CUP, CUU, CUD, CUF, CUB, SCA, SCS, SM,
     *  ED, EL, RM, ANSI, KEYPAD, BEL, SCROLL, PROTEC, YES, NO,
     *  NUM, APP, CLE, NOCLE, FORWD, BACKWD, DIREC, MODIFY,
     *  ENTER, CHECK, FIRST, NEXT, POSREC, LSTREC, RECLEN,
     *  NUMFND, FNDFLG, PRTFLG, NAMLEN, NUMINP, NUMCHA, NUMDEL,
     *  NOCUP, CUPTOP, CUPNM, CUPBF, NOSCR, TOP, BOTTOM,
     *  MOVE1, MOVE10, RESHOW, S, R, C, FLDBGN, FLDLEN, FLDATR, 
     *  ERRFLG, FLAST
     *         /AREAB/ SCRTXT, BUFFER, SAVBUF, TMPBUF, SCRDSP, FNDCHR,
     *  FILNAM, TCESQ, TCACR, OK, CHANGD, DELETD, MODE, RECTYP, BELL,
     *  BLANK, UNDERB, CR, LF, FF, TCHR
     *         /INFO/  CHARAC, FLAG