c
	PROGRAM TIE
C	F77 TIE,NL: = TIE.FTN/EX/-CK
C	SY:TIE/PR:0/CP,NL: = SY:TIE
C	F77LIB/LB:F77VEC
C	F77LIB/LB
C	/
C	LIBR = F7SRES:RO
C	ACTFIL = 1
C	UNITS = 1
C	TASK=...TIE
C	MAXBUF = 133
C	//
C	MCR REM LIN
C	MCR INS TIE/TASK=...LIN
c
C
	IMPLICIT	NONE


	BYTE		MCRCMD( 80 )!		Command from terminal
	BYTE		CMD( 56 )!		Command to be spawned

	INTEGER*2	ICMD( 28 )!		Command to be spawned

	INTEGER*2	START!			Start of command in MCRCMD
	INTEGER*2	STUFF!			For moving to ICMD/CMD
	INTEGER*2	IDS!			Directive status

	INTEGER*4	XMCR!			MCR as radix50

	EQUIVALENCE ( ICMD( 1 ), CMD( 1 ) )

	PARAMETER	( XMCR = -1283698230 )!6RMCR...

	DATA 	ICMD/
	1 '@S', 'Y0', ':[', 'TO', 'OL', 'S]', 'TI',
	1 'E ', '  ', '  ', '  ', '  ', '  ', '  ',
	1 '  ', '  ', '  ', '  ', '  ', '  ', '  ',
	1 '  ', '  ', '  ', '  ', '  ', '  ', '  '/


	CALL GETMCR( MCRCMD, IDS )!		Get the command line used to
C						start this program

	IF( IDS .LT. 1 .OR.! 			Somthing wrong?
	1   IDS .GT. 80 ) GO TO 3!		just pass @[TOOLS]TIE

	DO 2 START = 1, 21!			Find the first blank ( "040 )

	  IF( MCRCMD( START ).EQ."040 ) THEN!	Found it

	    DO 1 STUFF = 17, 56!		Stuff it into CMD 

	      CMD( STUFF ) = MCRCMD( START + ( STUFF - 16 ) )

1	    CONTINUE

	    GO TO 3!				Then pass to mcr

	END IF


2	CONTINUE


3	CALL SPAWNN( XMCR,,,,,,, ICMD, 56, 0, , IDS )

	CALL EXIT
	END