home *** CD-ROM | disk | FTP | other *** search
/ Frostbyte's 1980s DOS Shareware Collection / floppyshareware.zip / floppyshareware / GLEN / TSQED12.ZIP / QUOTE.QMA < prev    next >
Text File  |  1990-11-11  |  711b  |  31 lines
  1. *
  2. * Put > quotes to mail (etc) messages
  3. * By Timo Salmi, Sun 11-Nov-1990
  4. * To compile apply QMAC QUOTE.MAC QUOTE.QMA /A- /B
  5. *
  6.  
  7. * Append a > at the beginning of a single line
  8. @5      MacroBegin BegLine "> " BegLine CursorDown
  9.  
  10. * Quote the entire message from cursor down
  11. @4      MacroBegin
  12.           loop:
  13.             JFalse endloop:
  14.             BegLine
  15.             "> "
  16.             BegLine
  17.             CursorDown
  18.             Jump loop:
  19.           endloop:
  20.  
  21. * Quote the entire message from cursor up
  22. @6      MacroBegin
  23.           loop:
  24.             JFalse endloop:
  25.             BegLine
  26.             "> "
  27.             BegLine
  28.             CursorUp
  29.             Jump loop:
  30.           endloop:
  31.