home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / GFX / Converter / AD2.55-C.DMS / in.adf / FREDScripts.lha / FREDFunctions / GetSaver < prev    next >
Encoding:
Text File  |  1994-01-31  |  579 b   |  36 lines
  1. /*
  2. ** GetSaver
  3. **
  4. ** $VER: GetSaver 1.1.0 (5.11.93)
  5. **
  6. ** This script requires FRED v1.4.0 (or higher) to run.  Also required is
  7. ** ADPro v2.5.0 (or higher).
  8. **
  9. ** Copyright © 1992-1993 ASDG, Incorporated
  10. ** All Rights Reserved
  11. */
  12.  
  13. ADDRESS "ADPro"
  14. OPTIONS RESULTS
  15.  
  16. NL = '0A'X
  17. SQ = '27'X
  18. DQ = '22'X
  19. TRUE  = 1
  20. FALSE = 0
  21.  
  22. PARSE ARG saver
  23.  
  24. retcode = 0
  25. SFORMAT saver
  26. IF (RC ~= 0) THEN DO
  27.     ADPRO_TO_FRONT
  28.     OKAY1 "Cannot find the " || saver || " saver." || NL ||,
  29.         "It must be located in your" || NL ||,
  30.         "Savers2 directory."
  31.     SCREEN_TO_FRONT "FRED"
  32.     retcode = 10
  33. END
  34.  
  35. RETURN retcode
  36.