/*
** GetSaver
**
** $VER: GetSaver 1.1.0 (5.11.93)
**
** This script requires FRED v1.4.0 (or higher) to run.  Also required is
** ADPro v2.5.0 (or higher).
**
** Copyright © 1992-1993 ASDG, Incorporated
** All Rights Reserved
*/

ADDRESS "ADPro"
OPTIONS RESULTS

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

PARSE ARG saver

retcode = 0
SFORMAT saver
IF (RC ~= 0) THEN DO
	ADPRO_TO_FRONT
	OKAY1 "Cannot find the " || saver || " saver." || NL ||,
		"It must be located in your" || NL ||,
		"Savers2 directory."
	SCREEN_TO_FRONT "FRED"
	retcode = 10
END

RETURN retcode