$ !
$	ASK	:= READ/END_OF_FILE=END SYS$COMMAND
$	DELETE	:= DELETE
$	FORTRAN	:= FORTRAN
$	IF	:= IF
$	LINK	:= LINK
$	PURGE	:= PURGE
$	RENAME	:= RENAME
$ !
$	F_OPTIONS = ""
$	ANSWER := 'P1'
$	IF ANSWER .EQS. "" THEN -
		ASK/PROMPT="Do you want Debug lines compiled? [Y/N]: " ANSWER
$	IF ANSWER THEN F_OPTIONS = F_OPTIONS + "/D_LINES"
$ !
$	SAVED_VERIFY = F$VERIFY(1)
$	PURGE FIG.FTN
$	PURGE FIGEVL.FTN
$	PURGE FIGPAS.FTN
$	PURGE FIGPSR.FTN
$	PURGE FIGPFL.FTN
$	PURGE FIGVMS.FTN
$	PURGE IPARSE.FTN
$	RENAME FIG.FTN *.*;1
$	RENAME FIGEVL.FTN *.*;1
$	RENAME FIGPAS.FTN *.*;1
$	RENAME FIGPSR.FTN *.*;1
$	RENAME FIGPFL.FTN *.*;1
$	RENAME FIGVMS.FTN *.*;1
$	RENAME IPARSE.FTN *.*;1
$	FORTRAN'F_OPTIONS' FIG.FTN
$	FORTRAN'F_OPTIONS' FIGEVL.FTN
$	FORTRAN'F_OPTIONS' FIGPAS.FTN
$	FORTRAN'F_OPTIONS' FIGPSR.FTN
$	FORTRAN'F_OPTIONS' FIGPFL.FTN
$	FORTRAN'F_OPTIONS' FIGVMS.FTN
$	FORTRAN'F_OPTIONS' IPARSE.FTN
$	LINK FIG,FIGVMS,FIGEVL,IPARSE,FIGPSR,FIGPAS,FIGPFL
$	DELETE FIG.OBJ;*
$	DELETE FIGEVL.OBJ;*
$	DELETE FIGPAS.OBJ;*
$	DELETE FIGPSR.OBJ;*
$	DELETE FIGPFL.OBJ;*
$	DELETE FIGVMS.OBJ;*
$	DELETE IPARSE.OBJ;*
$	PURGE FIG.EXE
$	RENAME FIG.EXE *.*;1
$	SAVED_VERIFY = F$VERIFY(SAVED_VERIFY)
$ END: