home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / GFX / ADPro251-3.DMS / ADPro251-3.adf / ADProScripts.lha / Last_Loaded.adpro < prev    next >
Encoding:
Text File  |  1994-01-31  |  524 b   |  32 lines
  1. /*
  2. ** Last_Loaded.adpro
  3. **
  4. ** $VER: Last_Loaded.adpro 1.1.0 (26.10.93)
  5. **
  6. ** This program finds out the name of the last image you loaded.
  7. ** It presents the name in an OKAY1.
  8. **
  9. ** This script requires ADPro v2.5.0 (or higher).
  10. **
  11. ** Copyright © 1991-1993 ASDG, Incorporated
  12. ** All Rights Reserved
  13. */
  14.  
  15.  
  16. ADDRESS "ADPro"
  17. OPTIONS RESULTS
  18.  
  19. NL = '0A'X
  20. SQ = '27'X
  21. DQ = '22'X
  22. TRUE  = 1
  23. FALSE = 0
  24.  
  25. LAST_LOADED_IMAGE
  26. IF (RC = 0) THEN DO
  27.     ADPRO_TO_FRONT
  28.     OKAY1 "Last loaded image was:" || NL || RIGHT( ADPRO_RESULT, 32 )
  29. END
  30.  
  31. EXIT 0
  32.