%REM=' fn2 - Required by footnotes
             written by Carsten Thoenges, November 2001
'%-
%REM='Is there still a (FN:.*$#)?'%-
%REM='If yes: Split and rebuild comment'%-
%REM='        Increase counter and save it in position 1.'%-
%REM='        Cut FN text and paste it to the right place'%-
%REM='        Call this QT again.'%-
%-
%IF:'%-
%SETPATTREGEXP="(?ism)\(FN:.*?#\)"%-
%REGEXPMATCH="%COMMENT"'<>''%-
:'%-
%COMMENT=_%-
%SETPATTREGEXP="(?ism)^(\d+)\;\-\;(.*?)(\(FN:(.*?)#\))(.*?)(^-- $.*|\z)"%-
%REGEXPBLINDMATCH="%COMMENT"%-
%CALC="%SETPATTREGEXP=~^(\d+)~%REGEXPMATCH=~%COMMENT~+1";-;%-
%subpatt="2"%-
[%CALC="%SETPATTREGEXP=~^(\d+)~%REGEXPMATCH=~%COMMENT~+1"]%-
%subpatt="5"%-
[%CALC="%SETPATTREGEXP=~^(\d+)~%REGEXPMATCH=~%COMMENT~+1"] %SUBPATT="4"
%SUBPATT="6"_%-
%-
%QINCLUDE="fn2"'%-