; 16 jly 85 esj converted
;;;;;;;;;;;;       SETPORT         ;;;;;;;;;;;;;;;;;;;;;;;
      E'F
      E'O SETPORT.(CH,FNAME)

;     this routine would normally enable a user to select which
;     port to used for remote file transfer, but it will not
;     be implemented in the CGOS system.  This routine is a nop until it
;     can be used for setting the proper port configuration such as
;     baud rate, parity, xon/xoff,enq/ack, stop bits, bpc etc

      F'N
      E'N