home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / modcomp / srecei. < prev    next >
Text File  |  2020-01-01  |  4KB  |  122 lines
  1.       SUBROUTINE SRECEIVE
  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:  MONITORS THE RECSW ROUTINE TO RECEIVE FILE
  24. C
  25. C     MODIFICATION HISTORY
  26. C
  27. C     BY            DATE     REASON            PROGRAMS AFFECTED
  28. C
  29. C     ****************************************************************
  30. C
  31. C     Author:  BOB BORGESON         Version: A.0    Date: Oct-86
  32. C
  33. C     Calling Parameters:
  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 :  RECSW
  42. C
  43. C     ****************************************************************
  44. C
  45. C     Files referenced :  None
  46. C
  47. C     ****************************************************************
  48. C
  49. C     Local variable definitions :
  50. C
  51. C      STATUS   - RECEIVES THE KERMIT STATE CODE
  52. C
  53. C     ****************************************************************
  54. C
  55. C     Commons referenced :  KER and KERPAR
  56. C
  57. C     ****************************************************************
  58. C
  59. C     (*$END.DOCUMENT*)
  60. C
  61. C     ****************************************************************
  62. C     *                                                              *
  63. C     *         D I M E N S I O N   S T A T E M E N T S              *
  64. C     *                                                              *
  65. C     ****************************************************************
  66. C
  67.       IMPLICIT INTEGER (A-Z)
  68. C
  69. C     ****************************************************************
  70. C     *                                                              *
  71. C     *         T Y P E   S T A T E M E N T S                        *
  72. C     *                                                              *
  73. C     ****************************************************************
  74. C
  75. C
  76. C     ****************************************************************
  77. C     *                                                              *
  78. C     *         C O M M O N   S T A T E M E N T S                    *
  79. C     *                                                              *
  80. C     ****************************************************************
  81. C
  82.       INCLUDE USL/UFTTBC
  83.       INCLUDE USL/KERCOM
  84.       INCLUDE USL/KERPMC
  85. C
  86. C     ****************************************************************
  87. C     *                                                              *
  88. C     *         E Q U I V A L E N C E   S T A T E M E N T S          *
  89. C     *                                                              *
  90. C     ****************************************************************
  91. C
  92. C
  93. C     ****************************************************************
  94. C     *                                                              *
  95. C     *         D A T A   S T A T E M E N T S                        *
  96. C     *                                                              *
  97. C     ****************************************************************
  98. C
  99. C
  100. C     ****************************************************************
  101. C
  102. C     Code starts here :
  103. C
  104. C
  105. C                             IF WE'RE IN HOST MODE, ISSUE BINARY READ
  106. C
  107.       IF(HOSTON .EQ. NO)GO TO 10
  108. C
  109.         CALL READ4(IUFT(1,4),BLIN(1,1),132,.FALSE.)
  110.         CURCHN = 1
  111. C
  112.    10 CONTINUE
  113. C
  114. C                             CALL RECSW AND INDICATE SUCCESS OR FAILURE
  115.          STATUS=RECSW(X)
  116.           IF(STATUS.EQ.YES) WRITE(LOCALO,100)
  117.           IF(STATUS.NE.YES) WRITE(LOCALO,101)
  118.       RETURN
  119. 100   FORMAT(' FILE TRANSFER COMPLETED')
  120. 101   FORMAT(' FILE TRANSFER FAILED')
  121.       END
  122.