C This Fortran program should be run on the mainframe in conjunction C with a Basic program on the IBM PC to transfer Kermit.Fix to the PC. INTEGER A(62) WRITE(6,50) 50 FORMAT(' Ready to transfer data......') C Get terminal handshake 100 READ (5,10,END=35)X 10 FORMAT(A1) C Get line from file 35 READ (7,20,END=90)A 20 FORMAT(62A1) C Write to tty WRITE (6,25)A 25 FORMAT(' ',62A1,';') GOTO 100 90 CONTINUE C Get final handshake WRITE (6,30) 30 FORMAT(' ',63('@')) STOP END