home *** CD-ROM | disk | FTP | other *** search
/ The CDPD Public Domain Collection for CDTV 4 / CDPD_IV.bin / utilities / editors / ced-programs / quote.ced < prev    next >
Text File  |  1994-06-23  |  812b  |  49 lines
  1. /*
  2.  * > Quote.ced
  3.  * >
  4.  * > Turn the current block into an article quote.
  5.  * >
  6.  * > Author: Stefan Winterstein (winter@cs.uni-sb.de)
  7.  * > Status: Public Domain
  8.  *
  9.  */
  10.  
  11. COMMENT = '> '
  12. LF  = '0A'X
  13.  
  14. options results            /* Allow CygnusEd to pass status variables */
  15.  
  16. address 'rexx_ced'        /* Tell ARexx to talk to CygnusEd */
  17.  
  18. status 47                /* get current line number */
  19. start = result
  20.  
  21. status 69                /* get start of block */
  22.     end = result
  23.  
  24. if end = -1 then do        /* No block marked */
  25.     end = start+1
  26. end
  27. else do
  28.     'mark block'        /* turn bock marking off */
  29. end
  30.  
  31.  
  32. if start > end then do    /* swap start with end */
  33.     t = start
  34.     start = end
  35.     end = t
  36. end
  37.  
  38. 'jump to line' start+1    /* goto start of block */
  39.  
  40. do line = start while line < end
  41.     'text' COMMENT
  42.     'beg of line'
  43.     'down'
  44. end
  45.  
  46. 'jump to line' start+1    /* reset cursor */
  47.  
  48. exit
  49.