PROGRAM LINK
C	W. DWYNE DEC-82
C
C	******          COMPILE AND TASK BUILD INSTRUCTIONS
C
C	FOR LINK,NL:=LB:LINK
C	SY:LINK/CP/PR:0.,NL:=LB:LINK,[1,1]FOROTS/LB
C	/
C	LIBR = [1,1]FORRES:RO
C	ACTFIL = 1
C	UNITS = 1
C	TASK = ...LIN
C	MAXBUF = 133
C	//
C
C
C
	EXTERNAL AST
	DIMENSION IESB(8),ICMD(13),JESB(8)
	BYTE MCRCMD(80),CMD(26)
	INTEGER START
	EQUIVALENCE (ICMD(1),CMD(1))
C
	DATA XMCR/6RMCR.../
	DATA ICMD/'@L','B0',':[','1,','3]','LI','NK'
	1 ,'  ','  ','  ','  ','  ','  '/
C
C GET THE COMMAND LINE USED TO START THIS PROGRAM
C
	CALL GETMCR(MCRCMD,IDS)
C	IF(IDS .LT. 1 .OR. IDS .GT. 80) GOTO 500 ! SOMTHING WRONG?
C                                                  JUST PASS @[1,3]LINK
C FIND THE FIRST BLANK ("040)
C
	DO 10 I = 1,21
	START = I
	IF(MCRCMD(START).EQ."040) GOTO 20
10	CONTINUE
	GOTO 500			! NO NAME JUST START @[1,3]LINK
C
C STUFF IT INTO CMD THEN PASS TO MCR
C
20	CONTINUE
	DO 30 IJ = 16,26
	ISTUFF = (IJ)
	CMD(ISTUFF) = MCRCMD(START + (ISTUFF - 15))
30	CONTINUE
C
C
500	CALL SPAWN(XMCR,,,1,AST,IESB,IASB,ICMD,26,0,,IDS)
C
999	CALL EXIT
	END
C
	SUBROUTINE AST
	RETURN
	END