home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 310.lha / DevKit_v1.2 / Rexx / BlockSearch.ced < prev    next >
Encoding:
Text File  |  1980-12-03  |  833 b   |  37 lines
  1. /************************************************************************
  2.  *
  3.  * BlockSearch.ced                    Copyright (c) 1989, Peter Cherna
  4.  *
  5.  * ARexx program for CygnusEd Professional that performs a search for text
  6.  * contained in the marked area.
  7.  * 
  8.  * Version 1.10:  May 7, 1989        Release 1.2:  August 29, 1989
  9.  *
  10.  ************************************************************************/
  11.  
  12. options results
  13.  
  14. address 'rexx_ced'
  15.  
  16. copy block
  17.  
  18. /*    Check if we got a block (was there a block marked?) */
  19. if result = 'RESULT' then
  20. DO
  21.     /*    result = contents of Block buffer */
  22.     status 60
  23.  
  24.     searchstring = result
  25.  
  26.     search for searchstring
  27.  
  28.     /*    Did the search fail? */
  29.     if result ~= 'RESULT' then
  30.         /*    Display problem (would be "string not found.") */
  31.         okay1 result
  32. END
  33. else
  34.     /*    Display problem (would be "No block marked") */
  35.     okay1 result
  36. exit
  37.