home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 13 / AACD13.ISO / AACD / Graphics / TimeMachine / timemachine / rexx / quit_reset.ifx < prev    next >
Text File  |  1999-08-10  |  233b  |  21 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 "resetting "tm_name*/
  15.   END
  16.  
  17. end
  18.  
  19. killall
  20.  
  21. exit