Path: news.weeg.uiowa.edu!news.uiowa.edu!hobbes.physics.uiowa.edu!zaphod.mps.ohio-state.edu!howland.reston.ans.net!agate!ucbvax!CYBERSTORE.CA!jblaby
From: jblaby@CYBERSTORE.CA
Newsgroups: comp.sys.apple2
Subject: Proterm 3 Macro
Message-ID: <9303121912.aa00439@cyber1.cyberstore.ca>
Date: 13 Mar 93 03:12:05 GMT
Sender: daemon@ucbvax.BERKELEY.EDU
Distribution: world
Organization: The Internet
Lines: 47


 
Well..I tried my hand at writing a macro for Proterm 3. This macro will take
selected text from your scrollback, put it into the editor, select the text,
change it to paragraph format, put it into reply format, copy it to your
buffer, clear the editor, quit the editor then paste the buffer to the modem.
 
This sure makes quoting text a breeze for those boards that do not have a
built-in quoter. One caveat though. The editor HAS to be empty the first time
you use this feature or everything in there gets quoted. To use this macro,
just add it to your Global Macro file .Once you have it in there and have
re-activated your Global Macro file, just go into scrollback, select the text
you want to quote and press option-r. Real simple.
 
The macro could be expanded on by testing for text already in the editor...but
that is for later :)
 
here is the macro:
 
-------------cut here-------------------------------------
 
* use this from already selected text in scrollback only!
  press option r and selected text will be converted into
  paragraph mode, quote marks added and then pasted to modem.
  Editor should be empty when this is done.
*
@@R
 do "ed:ad" * copy selected text from scrollback to editor *
  do "fi:qu" * quit scrollback *
 do "mi:ed" * enter editor *
  do "ed:sel" * select all text *
  do "ed:par" * convert to paragraph form *
  do "ed:rep" * put into > reply format *
  do "ed:cop" * copy text to buffer *
  do "ed:cl"  * clear text from editor *
  do "fi:qu"  * quit the editor *
 do "on:pas" * paste text from buffer to modem*
 ex
 
---------------cut here------------------------------------
I hope you can make some use of this.
Enjoy..
       John
-- 
   E-Mail:jblaby@cyberstore.ca    |    Call The Apple Experience
    -* The Apple GS Lives *-      |          (604)596-7398