%REM=' bq - Paste as Boxquote
            written by Carsten Thoenges, December 2002
'%-
%If:+%-
%-%SetPattRegExp=&\A(ct,6567,,,TOH)&%-
%-%RegExpMatch=&%Comment&+<>+ct,6567,,,TOH+%-
:+%-
%-,----- [ %CURSOR ]%-
%-%COMMENT='%CLIPBOARD'%-
%-%IF:"%SETPATTREGEXP='(?is).*\n\z'%REGEXPMATCH='%COMMENT'"=""%-
:"%-
%-%-%COMMENT='%COMMENT
'"%-
%-%Comment=&ct,6567,,,TOH%COMMENT&%QInclude=&bq&%-
%-`-----+%-
:+%-                  
%-%IF:"%-
%-%SETPATTREGEXP='(?is)\A.*?\n(.*)'%-
%-%REGEXPMATCH='%COMMENT'"<>""%-
:"%-
%-%SETPATTREGEXP='(?is)\Act,6567,,,TOH(.*?)\n'%-
| %REGEXPMATCH='%COMMENT'%-
%-
%-%COMMENT='ct,6567,,,TOH%-
%-%SETPATTREGEXP=_(?is)\Act,6567,,,TOH.*?\n(.*)_%-
%-%REGEXPMATCH=_%COMMENT_'%-
%-%QINCLUDE='bq'"%-
:"| %SETPATTREGEXP=&\Act,6567,,,TOH(.*)&%-
%-%-%REGEXPMATCH=&%COMMENT&%-
%-%-%COMMENT=''"%-
+%-