home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / CDRom / PET-CDW2.DMS / in.adf / rexx / Search-For-NULL.ced < prev    next >
Encoding:
Text File  |  1993-07-07  |  622 b   |  40 lines
  1. /*
  2. ** Search-For-NULL.ced
  3. **
  4. ** $VER: Search-For-NULL.ced 1.0.1 (2.6.93)
  5. **
  6. ** This script demonstrates the use of the CLIP TO SEARCH BUFFER
  7. ** command, using NULL as the search string.
  8. **
  9. ** This script requires CygnusEd Professional v3.5 (or later) to run.
  10. **
  11. ** Copyright © 1990-1993 ASDG, Incorporated  All Rights Reserved
  12. */
  13.  
  14.  
  15. OPTIONS RESULTS
  16.  
  17.  
  18. OPEN NEW
  19. IF (RESULT = 0) THEN DO
  20.     CEDTOFRONT
  21.     OKAY1 "Couldn't Open Temporary View!"
  22.     EXIT 10
  23. END
  24.  
  25. ENTER ASCII 0
  26. BEG OF FILE
  27. MARK
  28. "END OF FILE"
  29. CUT
  30. CLIP TO SEARCH BUFFER
  31. QUIT 1
  32.  
  33. REPEAT SEARCH FORWARDS
  34. IF (RESULT = 0) THEN DO
  35.     CEDTOFRONT
  36.     OKAY1 "No NULL Found!"
  37. END
  38.  
  39. EXIT 0
  40.