SUBROUTINE OPNGET(ITRANS)
	COMMON/INPFIL/IPTR,IEND,INPSUM,INYBBL,IDELAY,IPRMPT,ISENT
     C			,LINEI(256),ICHECK,LENI,IFLAGI,NIREC
	LOGICAL*1 INAME(30)
	BYTE CR,LF
	CHARACTER*80 LINE
	DATA CR,LF/'15'O,'12'O/
	DATA INAME/30*0/
C	  CHECK IF A FILE IS ALREADY OPEN FOR INPUT - IF SO, CLOSE IT
	IF((ITRANS.AND.2).EQ.0) GOTO 5
	CALL CLSFIL(2,ITRANS)
C
C	  TRANSMIT A FILE TO REMOTE
C
5	LINE='TRANSMISSION:'
	NEXT=16
	IF((ITRANS.AND."4).NE.0)THEN
		LINE(NEXT:NEXT+9)='ECHO Mode-'
		NEXT=NEXT+10
	ENDIF
	IF((ITRANS.AND."20).NE.0)THEN
		LINE(NEXT:NEXT+9)='COPY Mode-'
		NEXT=NEXT+10
	END IF
	IF((ITRANS.AND."40).NE.0)THEN
		LINE(NEXT:NEXT+10)='8/Bit Mode-'
		NEXT=NEXT+11
	END IF
	IF((ITRANS.AND."400).NE.0)THEN
		LINE(NEXT:NEXT+15)='PROMPTLESS Mode-'
		NEXT=NEXT+16
	END IF
	IF((ITRANS.AND."200).EQ.0)THEN
		LINE(NEXT:NEXT+10)='ASCII Data-'
		NEXT=NEXT+11
	ELSE
		LINE(NEXT:NEXT+11)='Binary data-'
		NEXT=NEXT+12
	END IF
	IF((ITRANS.AND."10000).NE.0)THEN
		LINE(NEXT:NEXT+8)='LF added-'
		NEXT=NEXT+9
	END IF
	WRITE(5,1000)CR,LINE(1:NEXT-2)
1000	FORMAT('$',A1,A)
	WRITE(5,10)CR
 10	FORMAT('$',A1,'TRANSMIT which file? ')
C	  READ A FILE NAME
	DO 12 I=1,30
 12	INAME(I)=0
	CALL READST(INAME,LEN,29)
	IF(LEN.LT.1) RETURN
C	INAME(30)=0
	IF((ITRANS.AND."200).NE.0.OR.(ITRANS.AND."40).NE.0) GOTO 20
	CALL ASNLUN(4,'SY',0)
	CALL ERRSET(29,.TRUE.,.FALSE.,.TRUE.,.FALSE.,15)
	OPEN (UNIT=4,NAME=INAME,TYPE='OLD',READONLY,ERR=30)
 17	ITRANS=ITRANS + 2
	IEND=0
	ICHECK=0
	INPSUM=0
	INYBBL=0
	IPTR=0
 19	RETURN
C
C	  OPEN A DIRECT-ACCESS FILE TO TRANSFER BINARY DATA
 20	NIREC=0
C	DEFINE FILE 4 (0,256,U,NIREC)
	CALL ASNLUN(4,'SY',0)
	CALL ERRSET(29,.TRUE.,.FALSE.,.TRUE.,.FALSE.,15)
	OPEN(UNIT=4,NAME=INAME,TYPE='OLD',READONLY,ACCESS='DIRECT',
     C		RECORDSIZE=128,ERR=30)
	GOTO 17
C	  NOW PRINT AN ERROR MESSAGE IF FILE NOT FOUND
30	WRITE(5,1001)
1001	FORMAT(' ***** FILE NOT FOUND *****')
	RETURN
	END