/*
** Emboss.fred.pre
**
** $VER: Emboss.fred.pre 1.0.0 (23.10.93)
**
** If the Emboss.fred script appears in the InvokeADPro list,
** this program will ask the user which way to emboss.
**
** Clips Exported:
**	FREDEmbossDirection	-	1 to emboss in;
**					0 to emboss out.
**
** NOTE: Clip names are case sensitive.
**
** This script requires FRED v1.4.0 (or higher) to run.  Also required is
** ADPro v2.5.0 (or higher).
**
** Copyright © 1993 ASDG, Incorporated
** All Rights Reserved
*/


ADDRESS "ADPro"
OPTIONS RESULTS

PARSE ARG NumberOfCells NumberOfFrames

NL = '0A'X
SQ = '27'X
DQ = '22'X
TRUE  = 1
FALSE = 0


/*
** Ask the user which way to emboss.
*/

ADPRO_TO_FRONT

OKAYN '"Emboss.fred"' '"Direction to emboss"' '"In|Out|Cancel"'
IF (RC = 0) THEN DO
	SCREEN_TO_FRONT "FRED"
	EXIT 10
END
ELSE
	Direction = 2 - RC


/*
** Update the clips.
*/

SETCLIP( "FREDEmbossDirection", Direction )

EXIT 0