home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Misc / FINCAL2.DMS / in.adf / FCrexx.lha / Save_Graphs_to_IFF.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1995-03-04  |  571 b   |  31 lines
  1. /* FinalCalc script to scan though the graphs list and 
  2.    saves graphs to IFF files in the RAM: disk. */
  3.  
  4. options results
  5. shutdown = 0
  6. count = 0
  7.  
  8. do until shutdown
  9.     if count = 0 then graph first
  10.     else         graph next
  11.  
  12.     graphname = result;
  13.  
  14.     if graphname='' then
  15.         shutdown = 1
  16.     else do
  17.         count = count+1
  18.         filename = "ram:graph"count".iff"
  19.         graph '"'graphname'"' save '"'filename'"'
  20.     end
  21. end
  22.  
  23. if count > 0 then do
  24.     text = "Saved" count "graphs."
  25.     request '"'text'"'
  26.     end
  27. else
  28.     request '"No graphs found."'
  29.  
  30. exit
  31.