home *** CD-ROM | disk | FTP | other *** search
/ DTP Toolbox / DTPToolbox.iso / goodies / adpro_files / commands / last_saved_image < prev    next >
Encoding:
Text File  |  1996-04-22  |  413 b   |  19 lines
  1. /* $VER: Last_Saved_Image 1.03 (20.04.96)© Felix C. Coronado
  2. */
  3. ADDRESS "ADPro"
  4. OPTIONS RESULTS
  5. NL='0A'x
  6. LAST_SAVED_IMAGE
  7. IF rc=0 THEN DO
  8.  zz=LASTPOS('/',ADPro_Result)
  9.  IF zz=0 THEN zz=LASTPOS(':',ADPro_Result)
  10.  FileName=RIGHT(ADPro_Result,LENGTH(ADPro_Result)-zz)
  11.  ADPRO_TO_FRONT
  12.  OKAY1 'The last image saved was'||NL||,
  13.        '"'||FileName||'"'
  14. END
  15. ELSE DO
  16.  ADPRO_TO_FRONT
  17.  OKAY1 'No image has been saved'
  18. END
  19.