C
C	INPUT--- ROUTINE TO TAKE THE FORMATTED DATA THAT WAS KEYED IN BY
C		 USER  PROMPT, AND CONVERT IT TO OCTAL FROM
C		  AND PLACE THE CONVERTED
C		 FORM INTO THE SEND/RECEIVE DATA DIRECTIVE BUFFER.
C
C		INPUTS:		NBYTES		NO. OF BYTES TO PROCESS
C				TYPE		TYPE OF CONVERSION
C						0-1=OCTAL
C						2 INTEGER
C						3 ASCII
C						4 RADX50
C				AGASCI		INPUT ASCII BUFFFER
C				ISTART		POSITN TO START AT
C
C		OUTPUTS:	DATA		FOUR WORD BUFFER(OCTAL)
C
C
	SUBROUTINE INPUT(NBYTES,TYPE,DATA,AGASCI,ISTART)
	INTEGER NBYTES,TYPE,DATA(4),ISTART
	BYTE AGASCI(36),ASCII(36)
	IF(ISTART.EQ.0)GOTO100
	ISTART=ISTART*6-6
100	ISET=3
	GOTO(5000,5000,2000,3000),TYPE
	GOTO5000
2000	ISET=2
3000	J=1
	DO 2010 I=1,NBYTES*3,6
	CALL STRMOV(AGASCI,I+ISTART,ISET,ASCII,J)
	IF(TYPE.EQ.4)J=J+1
	J=J+2
2010	CONTINUE
	IF(TYPE.NE.4)GOTO4000
	CALL IRAD50(NBYTES*1.5,ASCII,DATA)
	GOTO5000
4000	CALL STRMOV(ASCII,1,8,DATA,1)
5000	RETURN
	END