home *** CD-ROM | disk | FTP | other *** search
/ Graphics 16,000 / graphics-16000.iso / amiga / opalvisn / adprrxxw.lzh / F5.ADPro < prev    next >
Text File  |  1993-02-13  |  759b  |  24 lines
  1. /* ADPro ARexx script to save pic into temp without having to reset the
  2.  * save format everytime.
  3.  *** Brian Wind, February 12, 1993 ***
  4.  * Install in your REXX: directory along with the other ADPro rexx function
  5.  * key scripts.  Currently set for F4 key however, you can change the name
  6.  * to F1.ADPro through F9.ADPro depending on what you need. */
  7.  
  8. OPTIONS RESULTS
  9. ADDRESS "ADPro"   /* Gotta use ADPro */
  10.  
  11. /* ADPRO_TO_FRONT */  /* Just in case you run this from cli or elsewhere */
  12.  
  13. SFORMAT                        /* Get current save format */
  14. currentsformat=ADPRO_RESULT    /* store it */
  15.  
  16. SFORMAT "TEMP"            /* set to Temp save format */
  17.  
  18. /* Save 24 bit pic to Temp */
  19.  
  20. SAVE "XXX"
  21.  
  22. SFORMAT currentsformat /* reset save format to last used */
  23.  
  24. Exit