home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / modcomp / sconnect. < prev    next >
Text File  |  2020-01-01  |  4KB  |  128 lines
  1.       SUBROUTINE SCONNECT
  2. C
  3. C
  4. C     Applicable operating system :
  5. C
  6. C                YES     NO     MAYBE
  7. C     GENERIC            X
  8. C     MAXIV       X
  9. C     VMS                X
  10. C     RSX-11M            X
  11. C
  12. C     ****************************************************************
  13. C
  14. C     Abstract:
  15. C
  16. C     MODIFICATION HISTORY
  17. C
  18. C     BY            DATE     REASON            PROGRAMS AFFECTED
  19. C
  20. C     ****************************************************************
  21. C
  22. C     Author:                       Version:        Date:
  23. C
  24. C     Calling Parameters:
  25. C
  26. C     R/W  PARAM 1      - Definition of parameter 1
  27. C     R/W  PARAM 2      - Definition of parameter 2
  28. C     R/W  PARAM n      - Definition of parameter n
  29. C
  30. C     ****************************************************************
  31. C
  32. C     Messages generated by this module :  None
  33. C
  34. C     ****************************************************************
  35. C
  36. C     Subroutines called directly :
  37. C
  38. C     ****************************************************************
  39. C
  40. C     Files referenced :  None
  41. C
  42. C     R/W              File identifier
  43. C
  44. C     ****************************************************************
  45. C
  46. C     Local variable definitions :
  47. C
  48. C     ****************************************************************
  49. C
  50. C     Commons referenced :  KERCOM , KERPMC
  51. C
  52. C     ****************************************************************
  53. C
  54. C     (*$END.DOCUMENT*)
  55. C**********************************************************************
  56. C
  57. C              KERMIT for the MODCOMP MAXIV operating system
  58. C
  59. C        Compliments of:
  60. C
  61. C                         SETPOINT, Inc.
  62. C                      10245 Brecksville Rd.
  63. C                      Brecksville, Ohio 44141
  64. C
  65. C
  66. C      KERMIT is a copyrighted protocol of Columbia Univ. The authors
  67. C      of this version hereby grant permission to copy this software
  68. C      provided that it is not used for an explicitly commercial
  69. C      purpose and that proper credit be given. SETPOINT, Inc. makes
  70. C      no warranty whatsoever regarding the accuracy of this package
  71. C      and will assume no liability resulting from it's use.
  72. C
  73. C
  74. C**********************************************************************
  75. C
  76. C     ****************************************************************
  77. C     *                                                              *
  78. C     *         D I M E N S I O N   S T A T E M E N T S              *
  79. C     *                                                              *
  80. C     ****************************************************************
  81. C
  82. C
  83. C     ****************************************************************
  84. C     *                                                              *
  85. C     *         T Y P E   S T A T E M E N T S                        *
  86. C     *                                                              *
  87. C     ****************************************************************
  88. C
  89. C
  90.       IMPLICIT INTEGER (A-Z)
  91. C
  92. C
  93.       INTEGER IBUF,ILEN,TV,IWRITE,IESCHAR,STATUS,IA,IB
  94.       INTEGER IFUNC,ICLAS,LUTERM,TLEN,RMTRAW,LOCALRAW
  95.       INTEGER TCODE
  96. C
  97. C     ****************************************************************
  98. C     *                                                              *
  99. C     *         C O M M O N   S T A T E M E N T S                    *
  100. C     *                                                              *
  101. C     ****************************************************************
  102. C
  103. C
  104.       INCLUDE USL/KERCOM
  105.       INCLUDE USL/KERPMC
  106. C
  107. C     ****************************************************************
  108. C     *                                                              *
  109. C     *         E Q U I V A L E N C E   S T A T E M E N T S          *
  110. C     *                                                              *
  111. C     ****************************************************************
  112. C
  113. C
  114. C     ****************************************************************
  115. C     *                                                              *
  116. C     *         D A T A   S T A T E M E N T S                        *
  117. C     *                                                              *
  118. C     ****************************************************************
  119. C
  120. C
  121. C     ****************************************************************
  122. C
  123. C     Code starts here :
  124. C
  125. C
  126.       RETURN
  127.       END
  128.