.;	Command file to compile and link a Fortran program which
.;	uses Core Graphics on a PRO
.;
.;	B. Z. Lederman Bankers Trust Co.
.;
.;	Input can be @GRAPHIC XXXX
.;
.;	where XXXX is the name of the fortran program
.;		(the extension .FTN is not included)
.;
.;	or @GRAPHIC
.;
.;	in which case the user will be prompted for a file name.
.;
	.ENABLE SUBSTITUTION
	.PARSE COMMAN " " A FILE
	.IF FILE NE "" .GOTO GOT
	.ASKS FILE Fortran source file
.GOT:
	FOR/LIST/TR:ALL/OBJ:GRAPHIC 'FILE'
.;
.;	Don't link if the Fortran compiler detected errors
.;
	.IF <SUCCES> NE <EXSTAT>&7 .GOTO EXIT
.;
	LINK @GRAPHBLD
.;			Clean up account and rename files.
	DELETE 'FILE'.TSK;*
	RENAME GRAPHIC.TSK 'FILE'.TSK
.EXIT:
	PURGE GRAPHIC.*, 'FILE'.*
	DELETE GRAPHIC.OBJ;*
