home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / pckermit / pcksend.for < prev    next >
Text File  |  2020-01-01  |  703b  |  35 lines
  1. C     This Fortran program should be run on the mainframe in conjunction
  2. C     with a Basic program on the IBM PC to transfer Kermit.Fix to the PC.
  3.  
  4.       INTEGER LINE(62),ACK(2)
  5.  
  6.       WRITE(6,50)
  7. 50    FORMAT(' Ready to transfer data......')
  8.  
  9. C     Get terminal handshake
  10. 100   READ (5,10,END=35)ACK
  11. 10    FORMAT(2A1)
  12.  
  13. C     Did the other side like it?
  14.       IF (ACK(1) .EQ. 'O') GO TO 35
  15.  
  16. C     No, retransmit the old line.
  17.  
  18.       GO TO 200
  19.  
  20. C     Get line from file
  21. 35    READ (7,20,END=90)LINE
  22. 20    FORMAT(80A1)
  23.  
  24. C     Write to tty
  25. 200   WRITE (6,25)LINE
  26. 25    FORMAT(80A1)
  27.       GOTO 100
  28. 90    CONTINUE
  29.  
  30. C     Get final handshake
  31.       WRITE (6,30)
  32. 30    FORMAT(' ',63('@'))
  33.       STOP
  34.       END
  35.