CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
      SUBROUTINE SCRPRT
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
      INCLUDE   'SY:ENTRY.CMN'
C
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
      CALL DSASTR
C
      WRITE(3,5)
      DO 106 ST = 1, NUMSCR
        WRITE(3,10) 
        DO 104 RT = 1, 23
          DO 100 CT = 2,80
            SCRDSP(CT) = BLANK
  100     CONTINUE
          DO 102 CT = 2,SCRCOL(ST,RT,1)
            IF (SCRTXT(ST,RT,CT).EQ.UNDERB) THEN
              IF (BUFFER(SCRCOL(ST,RT,CT)).EQ.BLANK) THEN
                SCRDSP(CT) = UNDERB
              ELSE
                SCRDSP(CT) = BUFFER(SCRCOL(ST,RT,CT))
              END IF
            ELSE
              SCRDSP(CT) = SCRTXT(ST,RT,CT)
            END IF
  102     CONTINUE
          WRITE(3,15) (SCRDSP(CT), CT = 2, 80)
  104   CONTINUE
        WRITE(3,8) POSREC, NUMINP, NUMCHA, NUMDEL
        WRITE(3,10)
  106 CONTINUE
C
    5 FORMAT('1')
    8 FORMAT(' ', T25,
     *       '| LOC:',I5, ' INP:',I5, ' CHA:',I5, ' DEL:',I5, T106,'|')
   10 FORMAT('+', T25, '_________________________________________',
     *                 '_________________________________________')
   15 FORMAT(T25, '| ', 79A1, T106, '|')
C
      RETURN
      END