home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / modcomp / shelp. < prev    next >
Text File  |  2020-01-01  |  5KB  |  139 lines
  1.       SUBROUTINE SHELP
  2. C
  3. C     ****************************************************************
  4. C
  5. C              KERMIT for the MODCOMP MAXIV operating system
  6. C
  7. C        Compliments of:
  8. C
  9. C                         SETPOINT, Inc.
  10. C                      10245 Brecksville Rd.
  11. C                      Brecksville, Ohio 44141
  12. C
  13. C
  14. C      KERMIT is a copyrighted protocol of Columbia Univ. The authors
  15. C      of this version hereby grant permission to copy this software
  16. C      provided that it is not used for an explicitly commercial
  17. C      purpose and that proper credit be given. SETPOINT, Inc. makes
  18. C      no warranty whatsoever regarding the accuracy of this package
  19. C      and will assume no liability resulting from it's use.
  20. C
  21. C     ****************************************************************
  22. C
  23. C     Abstract:  Display the help file contents on the terminal.
  24. C
  25. C     MODIFICATION HISTORY
  26. C
  27. C     BY            DATE     REASON            PROGRAMS AFFECTED
  28. C
  29. C     ****************************************************************
  30. C
  31. C     Author:  Rick Burke           Version: A.0    Date: Aug-86
  32. C
  33. C     Calling Parameters:  None
  34. C
  35. C     ****************************************************************
  36. C
  37. C     Messages generated by this module :  None
  38. C
  39. C     ****************************************************************
  40. C
  41. C     Subroutines called directly :  ASSGN4, CMRI4, DGETLI, PACK,
  42. C                                    POSUSL
  43. C
  44. C     ****************************************************************
  45. C
  46. C     Files referenced :  None
  47. C
  48. C     ****************************************************************
  49. C
  50. C     Local variable definitions :
  51. C
  52. C     FOUND        - Flag for requested file found and positioned
  53. C     HLPUSL       - CAN code of logical file where help file resides
  54. C     HLPFIL(4)    - Help file name in ASCII
  55. C     LEN          - Length of output record
  56. C
  57. C     ****************************************************************
  58. C
  59. C     Commons referenced :  KER, KERPMC
  60. C
  61. C     ****************************************************************
  62. C
  63. C     (*$END.DOCUMENT*)
  64. C
  65. C     ****************************************************************
  66. C     *                                                              *
  67. C     *         D I M E N S I O N   S T A T E M E N T S              *
  68. C     *                                                              *
  69. C     ****************************************************************
  70. C
  71.       IMPLICIT INTEGER (A-Z)
  72.       INTEGER*2   HLPFIL(4),   ALIN(132)
  73. C
  74. C     ****************************************************************
  75. C     *                                                              *
  76. C     *         T Y P E   S T A T E M E N T S                        *
  77. C     *                                                              *
  78. C     ****************************************************************
  79. C
  80.       LOGICAL*2   FOUND
  81. C
  82. C     ****************************************************************
  83. C     *                                                              *
  84. C     *         C O M M O N   S T A T E M E N T S                    *
  85. C     *                                                              *
  86. C     ****************************************************************
  87. C
  88.       INCLUDE USL/KERCOM
  89.       INCLUDE USL/KERPMC
  90.       INCLUDE USL/UFTTBC
  91. C
  92. C     ****************************************************************
  93. C     *                                                              *
  94. C     *         E Q U I V A L E N C E   S T A T E M E N T S          *
  95. C     *                                                              *
  96. C     ****************************************************************
  97. C
  98. C
  99. C     ****************************************************************
  100. C     *                                                              *
  101. C     *         D A T A   S T A T E M E N T S                        *
  102. C     *                                                              *
  103. C     ****************************************************************
  104. C
  105.       DATA        HLPFIL /'HELPFILE'/
  106.       DATA        HLPUSL /3@KEH/
  107. C
  108. C     ****************************************************************
  109. C
  110. C     Code starts here :
  111. C
  112. C----->  Assign KE7 (UFT #7) to the USL with the help file and
  113. C----->  position to the help file.
  114. C
  115.       IUFT(3,7) = 4ZA000
  116.       CALL ASSGN4 (IUFT(1,7),HLPUSL)
  117.       CALL POSUSL (IUFT(2,7),HLPFIL,FOUND)
  118.       IF (FOUND) GO TO 10
  119.       WRITE (LOCALO,1000)
  120.  1000 FORMAT (' FILE CONTAINING HELP INFORMATION IS NOT AVAILABLE')
  121.       RETURN
  122.    10 CONTINUE
  123.       CALL CMRI4 (IUFT(2,7),40)
  124.    20 CONTINUE
  125.       IF (DGETLIN (ALIN,7) .EQ. EOF) GO TO 50
  126.       DO 30 LEN=1,82
  127.       IF (ALIN(LEN) .EQ. LF) GO TO 40
  128.       ALIN(LEN) = ISHFT (ALIN(LEN),8)
  129.    30 CONTINUE
  130.    40 CONTINUE
  131.       LEN = LEN - 1
  132.       IF (LEN .GE. 80) LEN = 79
  133.       WRITE (LOCALO,1010) (ALIN(I),I=1,LEN)
  134.  1010 FORMAT (79A1)
  135.       GO TO 20
  136.    50 CONTINUE
  137.       RETURN
  138.       END
  139.