home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / GFX / ADPro251-3.DMS / ADPro251-3.adf / FREDScripts.lha / FREDFunctions / GetLoader < prev    next >
Encoding:
Text File  |  1994-01-31  |  537 b   |  32 lines
  1. /*
  2. ** GetLoader
  3. **
  4. ** $VER: GetLoader 1.1.0 (5.11.93)
  5. **
  6. ** This script requires FRED v1.4.0 (or higher).  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.  
  18. PARSE ARG loader
  19.  
  20. retcode = 0
  21. LFORMAT loader
  22. IF (RC ~= 0) THEN DO
  23.     ADPRO_TO_FRONT
  24.     OKAY1 "Cannot find the " || loader || " loader." || NL ||,
  25.         "It must be located in your" || NL ||,
  26.         "Loaders2 directory."
  27.     SCREEN_TO_FRONT "FRED"
  28.     retcode = 10
  29. END
  30.  
  31. RETURN retcode
  32.