home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / C / SASC6571.LZX / rexx / indent.se < prev    next >
Encoding:
Text File  |  1996-12-24  |  414 b   |  28 lines
  1. /* rexx to indent a marked block */
  2. /* Get line of end of block */
  3. 'BM "E"'
  4. options results
  5. 'GL'
  6. end = result
  7. options
  8. /* goto start of block */
  9. 'BM "B"'
  10. 'BL'
  11. do forever
  12. /* Get line */
  13. options results
  14. 'GT'
  15. options
  16. line = result
  17. /* get first char */
  18. num = SUBSTR(line, 1, 1)
  19. if num ~= "/" & num ~= "#" then 
  20.    '"   "'
  21. 'BL NL'
  22. /* check to see if done */
  23. options results
  24. 'GL'
  25. options
  26. if result > end then exit(0)
  27. end
  28.