SUBROUTINE SHELP
C
C     ****************************************************************
C
C              KERMIT for the MODCOMP MAXIV operating system
C
C        Compliments of:
C
C                         SETPOINT, Inc.
C                      10245 Brecksville Rd.
C                      Brecksville, Ohio 44141
C
C
C      KERMIT is a copyrighted protocol of Columbia Univ. The authors
C      of this version hereby grant permission to copy this software
C      provided that it is not used for an explicitly commercial
C      purpose and that proper credit be given. SETPOINT, Inc. makes
C      no warranty whatsoever regarding the accuracy of this package
C      and will assume no liability resulting from it's use.
C
C     ****************************************************************
C
C     Abstract:  Display the help file contents on the terminal.
C
C     MODIFICATION HISTORY
C
C     BY            DATE     REASON            PROGRAMS AFFECTED
C
C     ****************************************************************
C
C     Author:  Rick Burke           Version: A.0    Date: Aug-86
C
C     Calling Parameters:  None
C
C     ****************************************************************
C
C     Messages generated by this module :  None
C
C     ****************************************************************
C
C     Subroutines called directly :  ASSGN4, CMRI4, DGETLI, PACK,
C                                    POSUSL
C
C     ****************************************************************
C
C     Files referenced :  None
C
C     ****************************************************************
C
C     Local variable definitions :
C
C     FOUND        - Flag for requested file found and positioned
C     HLPUSL       - CAN code of logical file where help file resides
C     HLPFIL(4)    - Help file name in ASCII
C     LEN          - Length of output record
C
C     ****************************************************************
C
C     Commons referenced :  KER, KERPMC
C
C     ****************************************************************
C
C     (*$END.DOCUMENT*)
C
C     ****************************************************************
C     *                                                              *
C     *         D I M E N S I O N   S T A T E M E N T S              *
C     *                                                              *
C     ****************************************************************
C
      IMPLICIT INTEGER (A-Z)
      INTEGER*2   HLPFIL(4),   ALIN(132)
C
C     ****************************************************************
C     *                                                              *
C     *         T Y P E   S T A T E M E N T S                        *
C     *                                                              *
C     ****************************************************************
C
      LOGICAL*2   FOUND
C
C     ****************************************************************
C     *                                                              *
C     *         C O M M O N   S T A T E M E N T S                    *
C     *                                                              *
C     ****************************************************************
C
      INCLUDE USL/KERCOM
      INCLUDE USL/KERPMC
      INCLUDE USL/UFTTBC
C
C     ****************************************************************
C     *                                                              *
C     *         E Q U I V A L E N C E   S T A T E M E N T S          *
C     *                                                              *
C     ****************************************************************
C
C
C     ****************************************************************
C     *                                                              *
C     *         D A T A   S T A T E M E N T S                        *
C     *                                                              *
C     ****************************************************************
C
      DATA        HLPFIL /'HELPFILE'/
      DATA        HLPUSL /3@KEH/
C
C     ****************************************************************
C
C     Code starts here :
C
C----->  Assign KE7 (UFT #7) to the USL with the help file and
C----->  position to the help file.
C
      IUFT(3,7) = 4ZA000
      CALL ASSGN4 (IUFT(1,7),HLPUSL)
      CALL POSUSL (IUFT(2,7),HLPFIL,FOUND)
      IF (FOUND) GO TO 10
      WRITE (LOCALO,1000)
 1000 FORMAT (' FILE CONTAINING HELP INFORMATION IS NOT AVAILABLE')
      RETURN
   10 CONTINUE
      CALL CMRI4 (IUFT(2,7),40)
   20 CONTINUE
      IF (DGETLIN (ALIN,7) .EQ. EOF) GO TO 50
      DO 30 LEN=1,82
      IF (ALIN(LEN) .EQ. LF) GO TO 40
      ALIN(LEN) = ISHFT (ALIN(LEN),8)
   30 CONTINUE
   40 CONTINUE
      LEN = LEN - 1
      IF (LEN .GE. 80) LEN = 79
      WRITE (LOCALO,1010) (ALIN(I),I=1,LEN)
 1010 FORMAT (79A1)
      GO TO 20
   50 CONTINUE
      RETURN
      END