home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 13 / AACD13.ISO / AACD / Graphics / TimeMachine / timemachine / rexx / reset.ifx < prev    next >
Text File  |  1999-08-15  |  393b  |  28 lines
  1. /* */
  2.  
  3. options results
  4.  
  5. junk=show("clips")
  6. /*
  7. junk = result
  8. */
  9. do while (junk ~= "")
  10.  
  11.   parse var junk tm_name junk
  12.   if(LEFT(tm_name,3) == "TM_") THEN DO
  13.     setclip(tm_name)
  14.     /*say "reseting "tm_name*/
  15.   END
  16. end
  17.  
  18. killall
  19.  
  20. RequestNumber '"Total Frames"' 1
  21. parse var result frames
  22.  
  23. call setclip('TM_TotalFrames',frames)
  24. getprefs loadpath
  25. lpath=result
  26. call setclip('TM_Loadpath',lpath)
  27. exit
  28.