C.. DSPAWN.FTN   BOHDEN K. CMAYLO    MAY 81
C..
C..   ROUTINE TO SPAWN AND WAIT FOR DCL COMMAND
C..
	SUBROUTINE DSPAWN(INPUT)
C..
C..	THIS ROUTINE DOES A RID BLANK AT 5-, SPAWN AND WAIT FOR DONE
C..
C..	INPUT = ARRAY FOR DCL (FINISHES WITH !)(ANOTHER ! IS PRINT)
C..	(THIRD ! IS ONLY PRINT)
C..
	BYTE INPUT(80)
	DATA RTNAME /6R...DCL/
C..
C..	LOCATE !
C..
	DO 1 IENC=1,80
	IF(INPUT(IENC).EQ.'!') GO TO 2
1	CONTINUE
	TYPE 45,INPUT
	TYPE 4
4	FORMAT(' ***DSPAWN*** ABOVE STATEMENT NOT SPAWNED ***')
	RETURN
2	IENC=IENC-1
C..
C..	GET RID OF BLANKS IN STATEMENT
C..
	CALL RIDBLK(INPUT(5),IENC-4)
C..
C..	CHECK IF ^ TO BE TURNED INTO BLANK
C..
	DO 5 I=1,IENC
	IF(INPUT(I).EQ.'^') INPUT(I)=' '
5	CONTINUE
C..
C..	SEE IF PRINT WANTED
C..
	IF(INPUT(IENC+2).EQ.'!')TYPE 45,(INPUT(I),I=1,IENC)
C.. SEE IF PRINT ONLY
	IF(INPUT(IENC+3).EQ.'!')RETURN
C..
C..	SPAWN IT
C..
	CALL SPAWN(RTNAME,,,1,,,,INPUT,IENC,0,'TI')
C..
C..	WAIT FOR COMPLETION
C..
C**CALL WAITFR(1)
45	FORMAT(1X,80A1)
	RETURN
	END