home *** CD-ROM | disk | FTP | other *** search
/ Amiga Tools 3 / Amiga Tools 3.iso / rexx / accol2block.raz < prev    next >
Encoding:
Text File  |  1994-11-14  |  335 b   |  15 lines
  1. /** $VER: Accol2Block.raz 1.0 (14.11.94)
  2.  **
  3.  ** Met un bloc autour des accolades
  4.  **/
  5.  
  6. OPTIONS RESULTS
  7.  
  8. Search RESET FROMCURS BACK "{"; IF (RC >= 5) THEN EXIT
  9. GetPos; PARSE VAR RESULT startline . .
  10. Match "{" "}"; IF (RC >= 5) THEN EXIT
  11. GetPos; PARSE VAR RESULT endline . .
  12.  
  13. Block startline START BLINE MOVECURS
  14. Block endline MOVECURS
  15.