home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 5 / FreshFish_July-August1994.bin / bbs / util / rushdemo2-37.5370.lha / RushDemo2 / Rexx / AskAll.rush < prev    next >
Encoding:
Text File  |  1994-02-08  |  430 b   |  26 lines
  1. /*
  2. ** $VER: AskAll.rush 37.1 (10.12.93)
  3. **
  4. ** Ask for a Pattern, set pattern gadget, execute ALL, change pattern back
  5. **
  6. ** Written by Douglas Keller
  7. */
  8.  
  9. if( address() == "REXX" ) then address "RUSH.1"
  10.  
  11. options results
  12.  
  13. 'getpattern'
  14. old_pattern = result
  15.  
  16. 'stringrequester "Enter pattern to use for selecting:"' old_pattern
  17. if RC == 0 then do
  18.     new_pattern = result
  19.  
  20.     'setpattern' new_pattern
  21.  
  22.     'all'
  23.  
  24.     'setpattern' old_pattern
  25. end
  26.