{;}CENTER.WPMú  copyrightú1992úbyúStevenúR.úConrad

        ThisúmacroúmayúnotúbeúdistributedúifúthereúisúANYúFEEúrequired.
        Otherwise,úthisúmacroúmayúbeúfreelyúusedúandúdistributed.

        ThisúmacroúcentersúANYúTEXTú(includingúattributes)úbetweenútextú
        atútheúleftúmarginúandútextúwhichúhasúbeenúplacedúFLUSHúRIGHTú
        (usingúWordPerfect'súFLUSHúRIGHTúcommandú--úAlt-F6úinúWPú5.1)ú
        atútheúrightúmargin.

        ThereúshouldúNOTúbeútext,úorúspaces,úorúTABS,úorútabúsettingsú
        betweenútheútextúonútheúleftúandútheúFLUSHúRIGHTúcode,úorútheú
        centeringúwillúnotúbeúcorrectlyúpositioned.

        PlaceútheúFLUSHúRIGHTúcodeúimmediatelyúfollowingútheútextúwhichú
        youúwantúonútheúleft.úThen,úafterútheúFLUSHúRIGHTúcode,útypeú
        theútextúyouúwantúatútheúrightúmargin.~

        The codes for the macro appear below, to make it easy to see what
        codes have been used in writing the macro. Edit them if you wish!

{ON CANCEL}{GO}veryend~~
{DISPLAY OFF}
{CHAR}dot~{^]}{^T}Dotúleadersúonúbothúsidesú{^U}(y/n){^T}?úTypeú
{^U}y{^T}úorú{^U}n{^T}:ú{^U}n{Left}{^\}~
{Home}{Home}{Home}{Left}
{Format}lt{Exit}{Exit}{Left}{Del}
{IF}{STATE}&1024~Y
{END IF}
{Home}{Home}{Home}{Right}{Cancel}r
{Home}{Home}{Left}{Search}{Flush Right}{Search}
{ASSIGN}right~{SYSTEM}Pos~~
{Left}
{ASSIGN}left~{SYSTEM}Pos~~
{ASSIGN}center~({VARIABLE}right~+{VARIABLE}left~)/2~
{Home}{Home}{Home}{Left}
{Format}ltta
{Home}{Home}{Left}{Del to EOL}
{VARIABLE}center~w{Enter}c
{IF}"{VARIABLE}dot~"="y"|"{VARIABLE}dot~"="Y"~.
{END IF}
{Exit}{Exit}
{Home}{Home}{Home}{Left}{Right}
{Format}lttr{Exit}{Exit}{Left}{Left}{Del}
{IF}{STATE}&1024~Y
{END IF}
{Search}{Search}{Left}{Tab}
{DISPLAY ON}
{STATUS PROMPT}{^]}{^T}Typeútextútoúcenter,úthenúpress
        {^U}ENTER{^T}útoúfinish{^U}{^\}~{PAUSE}
{STATUS PROMPT}~
{IF}"{VARIABLE}dot~"="y"|"{VARIABLE}dot~"="Y"~
{End}{Flush Right}
{END IF}
{LABEL}end~
{End}
{LABEL}veryend~
{STATUS PROMPT}~
{ASSIGN}right~~
{ASSIGN}left~~
{ASSIGN}center~~
{ASSIGN}dot~~
{RETURN}