c,	PROGRAM TIEC	F77 TIE,NL: = TIE.FTN/EX/-CKC	SY:TIE/PR:0/CP,NL: = SY:TIE	C	F77LIB/LB:F77VECC	F77LIB/LBTC	/ C	LIBR = F7SRES:ROC	ACTFIL = 1C	UNITS = 1(
C	TASK=...TIE)C	MAXBUF = 133C	//
C	MCR REM LIN C	MCR INS TIE/TASK=...LIN coCD	IMPLICIT	NONE+	BYTE		MCRCMD( 80 )!		Command from terminal (	BYTE		CMD( 56 )!		Command to be spawned-	INTEGER*2	ICMD( 28 )!		Command to be spawned3.	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 toC						start this programc(	IF( IDS .LT. 1 .OR.! 			Somthing wrong?2	1   IDS .GT. 80 ) GO TO 3!		just pass @[TOOLS]TIE4	DO 2 START = 1, 21!			Find the first blank ( "040 )/	  IF( MCRCMD( START ).EQ."040 ) THEN!	Found it6-	    DO 1 STUFF = 17, 56!		Stuff it into CMD '6	      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 )D
	CALL EXIT	END