home *** CD-ROM | disk | FTP | other *** search
- /*
- ** 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
-