CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
      SUBROUTINE HELP
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
      INCLUDE   'SY:ENTRY.CMN'
      BYTE      HELPLN(100)
C
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
      CALL DSASTR
C
      CALL GETADR(PRL, HELPLN(1))
C
      OPEN (UNIT=2, NAME='LB:[1,2]ENTRY.HLP', READONLY,
     *      STATUS='OLD', DISP='KEEP')
C
      CALL UVT100(SCA,0)
C
      DO 300 I = 1,8
        DO 200 ST = 1,2
CCC       ERASE DISPLAY (LINES 1-23)
          CALL UVT100(CUP,23,80)
          CALL UVT100(ED,1)
          DO 100 RT = 1,23
            READ(2,15,END=1000) NCHRS, HELPLN
            CALL UVT100(CUP,RT,1)
            PRL(2) = NCHRS
            CALL WTQIO(IOWVB,4,2,,,PRL)
  100     CONTINUE
          CALL UVT100(CUP,24,1)
          CALL ENASTR
          CALL WAITFR(1)
          CALL CLREF(1)
          IF (CHARAC.NE.'C' .AND. CHARAC.NE.'c') GOTO 1000
          CHARAC = BLANK
  200   CONTINUE
        REWIND 2
  300 CONTINUE
C
 1000 CALL UVT100(CUP,23,80)
      CALL UVT100(ED,1)
C
      CLOSE (UNIT=2, DISP='KEEP')
C
   15 FORMAT(Q,100A1)
      RETURN
      END