C..   SY.FTN   BOHDEN K. CMAYLO  JAN 82
C..
C..  ROUTINE PLACES DDUU: IN FRONT OF A STRING
C..
	SUBROUTINE SY(INSY,INPUT,IADD)
C..
C..	THIS ROUTINE PLACES INSY (E.G. SY:) IN FRONT OF INPUT
C..
C..	BOHDEN K. CMAYLO, JAN 1982
C..
C..	INSY=DDUU: (MAX=5 CHARS)
C..	INPUT=DDUU:123456789.123;1234560 (MAX=26 CHARS)
C..	IADD=ADDITIONAL CHARACTERS ADDED
C..
	BYTE INSY(5),INPUT(26),INCOL,IBLANK
	DATA INCOL,IBLANK/':',' '/
C..
C..	SEE IF COLON EXISTS IN INPUT UP TO : OR BLANK OR ZERO
C..
	DO 1 I=1,5
	IF(INPUT(I).EQ.0.OR.INPUT(I).EQ.IBLANK) GO TO 2
	IF(INPUT(I).EQ.INCOL) RETURN
1	CONTINUE
C..
C..	NO COLON IN FIRST 5 CHARACTERS (DDUU:)
C..
C..	GET END OF STRING
C..
C.. DDUU:123456789.123;1234560
2	DO 3 I=1,26
	IF(INPUT(I).NE.0.AND.INPUT(I).NE.IBLANK) GO TO 3
C..
C..	FOUND END OF INPUT, GET LENGTH OF DEVICE
C..
	DO 4 J=1,5
	IF(INSY(J).NE.INCOL) GO TO 4
C..
C..	LENGTH = J
C..
	CALL BYTEDO(INPUT(I+J),INPUT(J+1),INPUT(I))
	CALL BYTEDO(INPUT(J),INPUT(1),INSY(J))
	IADD=IADD+J
	RETURN
4	CONTINUE
	TYPE 44,(INSY(J),J=1,5)
44	FORMAT('0*** ERROR *** ROUTINE SY *** INSY=',5A1)
	RETURN
3	CONTINUE
	TYPE 33,(INPUT(I),I=1,26)
33	FORMAT('0*** ERROR *** ROUTINE SY *** INPUT=',26A1)
	RETURN
	END