home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS - Coast to Coast / simteldosarchivecoasttocoast.iso / network / pcftp.for < prev    next >
Text File  |  1994-03-04  |  1KB  |  44 lines
  1. C PCFTP - TOPS-20 END OF PERSONAL COMPUTER FILE TRANSFER PROTOCOL
  2. C DICK GILLMANN, JUNE 1982
  3.       DOUBLE PRECISION WAY,FNAME
  4.       INTEGER LINE(164)
  5.       OPEN(UNIT=5,MODE='IMAGE')
  6.       READ(5,1) FNAME
  7. 1     FORMAT(A10)
  8.       READ(5,2) WAY
  9. 2     FORMAT(A10)
  10.       IF(WAY.EQ.'UP        ') GO TO 1000
  11. C TOPS-20 TO PC
  12.       OPEN(UNIT=20,ACCESS='SEQIN',FILE=FNAME)
  13. C MAIN LOOP
  14. 200   READ(20,4,ERR=300,END=300) LINE
  15. 4     FORMAT(132A1)
  16.       DO 250 I=1,132
  17.       N=133-I
  18.       IF(LINE(N).NE.'     ') GOTO 275
  19. 250   CONTINUE
  20. 275   WRITE(5,5) (LINE(I),I=1,N)
  21. 5     FORMAT(1X,132A1)
  22.       GOTO 200
  23. C DONE
  24. 300   WRITE(5,6)
  25. 6     FORMAT(1X,'!E!')
  26.       CLOSE(UNIT=20)
  27.       CALL EXIT
  28. C PC TO TOPS-20
  29. 1000  OPEN(UNIT=20,ACCESS='SEQOUT',FILE=FNAME)
  30. C MAIN LOOP
  31. 1100  READ(5,4) LINE
  32.       IF(LINE(1).EQ.'!'.AND.LINE(2).EQ.'E'.AND.LINE(3).EQ.'!')
  33.      & GOTO 1200
  34.       DO 1150 I=1,164
  35.       N=164-I
  36.       IF(LINE(N).NE.'     ') GOTO 1175
  37. 1150  CONTINUE
  38. 1175  WRITE(20,4) (LINE(I),I=1,N)
  39.       GOTO 1100
  40. C DONE
  41. 1200  CLOSE(UNIT=20)
  42.       CALL EXIT
  43.       END
  44.