Organization: K.U.Leuven - Academic Computing Center
Date: Wednesday, 23 Dec 1992 14:46:20 +01
From: Joseph A. Selling <FAAAA11@cc1.kuleuven.ac.be>
Newsgroups: bit.listserv.wpcorp-l
Subject: footnote macro

Unexpectedly, I got on line at least one more time before the end of the
year, so I decided to contribute my own version of 3 macros for getting
notes into a separate document for editing and then returning them. The
macros follow. I note that in the process of uploading the text the tildes
translated to a centered dot and my attempt to use two "british pound signs"
translated as dashes. Who knows what they will be if you download the text|


NTS1.WPM


      {;}This macro copies all footnotes from doc1 into doc2
      Start the macro at the top of the original document in doc1~
{DISPLAY OFF}{ASSIGN}1~0~{ON NOT FOUND}{GO}end~~
            {LABEL}begin~
{Footnote}12{Enter}{Right}
      {;}Use {{Footnote}22 if processing endnotes.
      The {{Right} command passes the note number~
{ASSIGN}1~{VAR 1}+1~{PROMPT}Processing note {VAR 1}~
      {;}Increases value of variable and prompts a progress report~
{Block}{Home}{Home}{Down}
{Move}12{Exit}{Switch}{Enter}
{Home}{Home}{Down}$${Enter}{Enter}{Switch}{GO}begin~
      {;}the  and $$ will be used to retrieve notes later.
      you may substitute any other seldom used character(s)~
            {LABEL}end~
{Switch}{Home}{Home}{Up}{Switch}{Home}{Home}{Up}
{CHAR}0~{VAR 1} notes have been copied and moved to doc 2.
         Press any key~
----------------------------------------------------------------------
NTS2.WPM

      {;}This macro puts numbers on the separated notes~
{DISPLAY OFF}{ASSIGN}1~0~{ON NOT FOUND}{GO}end~~
            {LABEL}begin~
{Search}{Search}
{ASSIGN}1~{VAR 1}+1~{VAR 1}.
      {;}Increase value of {{var 1} and put the note number,
      period and space after the  for later reference~
{PROMPT}{VAR 1}~
      {;}This is superfluous, but amusing|~
{GO}begin~
            {LABEL}end~
{Home}{Home}{Home}{Up}
{CHAR}0~{VAR 1} notes found and numbered.
                              Press Any Key~
----------------------------------------------------------------------
NTS3.WPM

      {;}This macro replaces edited notes into the original document.
      Original document in doc1, notes in doc2 (beginning with 
      and ending with $$ - or some other arbitrary character used).
      Check that the number of original and edited notes are the same.
      Start the macro in doc2 at the top of the file~
{DISPLAY OFF}{ASSIGN}1~0~{ON NOT FOUND}{GO}end~~
      {LABEL}begin~
{Search}{Search}{Backspace}{Backspace}
{Block}. {Del}y
      {;}Eliminates  and the now superfluous number.
      You are now at the beginning of the note~
{ASSIGN}1~{VAR 1}+1~{PROMPT}Now Processing note {VAR 1}~
      {;}Increase value of {{VAR 1} and prompt the progress~
{Block}{Search}$${Search}{Left}{Left}{Move}11
      {;}Block the text of the note, omitting the $$ "end mark"~
{Switch}{Footnote}12{Enter}{Exit}{Backspace}y
      {;}Eliminate the original note. Use {{Footnote}22 for endnotes~
{Footnote}11{Enter}{Exit}
      {;}Place the edited text into the note~
{Switch}{GO}begin~
      {LABEL}end~{Home}{Home}{Up}
{CHAR}0~{VAR 1} notes have been processed.
                        Press any key~
Comments: Gated by NETNEWS@AUVM.AMERICAN.EDU