home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 13 / AACD13.ISO / AACD / Graphics / TimeMachine / timemachine / rexx / save_project.ifx < prev    next >
Text File  |  1999-08-16  |  679b  |  40 lines
  1. /* 
  2.  *  Time Machine
  3.  *  Save_project.ifx
  4.  *  by Ron Jensen/Steve Chapple
  5.  * 
  6.  *  Function: Saves the settings so we can re-load them later
  7.  */ 
  8.  
  9. options results
  10.  
  11. /* IFX: gives us it's assign */
  12. GetStatus AssignDir
  13. IF rc = 0 THEN assign = result
  14. ELSE assign = "IMAGEFX:"
  15.  
  16. RequestFile '"Save Settings"' '"'assign'TimeMachine/Scripts"' '""' '"#?"' /* set input */
  17. if rc ~=0 then
  18.     exit
  19.  
  20. Originalfile=Result
  21.  
  22. call open save_file, (OriginalFile), 'W'
  23.  
  24. junk=show("clips")
  25.  
  26. do while (junk ~= "")
  27.  
  28.   parse var junk tm_name junk
  29.  
  30.   if(LEFT(tm_name,3) == "TM_") THEN DO
  31.     say tm_name getclip(tm_name)
  32.     CALL WRITELN save_file, tm_name getclip(tm_name)
  33.   END
  34.  
  35. end
  36.  
  37. call close save_file
  38.  
  39. exit
  40.