WordPerfect 2000 (9) Macros
For Inserting Browse Link
(in case you're interested: these are old and have been replaced)

Application (WordPerfect; "WordPerfect"; Default!; "EN")
// BrowseTool Marks All But End File After Removing Any Existing Browse Links
Display (On!)
SelectMode (State: Off!)
NotFound (Off!) // keep from croaking if not found
PosDocTop ()
ASSIGN (vFileName; ?Name) // Grab FileName (e.g., "eml9666.htm")
ASSIGN (vFileNumber; SUBSTR (vFileName; 4; 4)) // Extract FileNumber (e.g., 9666)
IF ((vFileNumber + 1) = (1 + vFileNumber)) // "addition is commutative" -- Tom Lehrer
ELSE // numeric or character string?
QUIT // croaks unless characters 4 through 7 are all numerals
ENDIF
SearchString ("BrowseToolMark") // Delete Existing Browse Link (IF)
SearchNext (SearchMode: Regular!)
SelectOff ()
SearchString ("<LI>") // Delete Existing Browse Link (IF)
SearchPrevious (SearchMode: Regular!)
SearchString ("</LI>") // Delete Existing Browse Link (IF)
MatchExtendSelection ()
SearchNext (SearchMode: Regular!)
DeleteCharNext ()

PosDocTop () // Find Link Section (Always After First <UL> Code)
SearchString (StrgToLookFor: "<UL>")
MatchPositionAfter ()
SearchNext (SearchMode: Regular!)
MatchSelection () // reset Match
HardReturn () // Type Link
HardReturn ()
Type ("<LI>Browse:&nbsp;")
Type ("<B><A HREF=""emlabout.htm"">About</A></B>")
Type ("<A NAME=""BrowseToolMark""></A>") // Type Marker Comment For Delete Routine (Above)
Type (";&nbsp;") // Type "Previous" Link One FileNumber Higher (e.g., "eml9667.htm")
Type ("<B><A HREF=""eml" + (vFileNumber + 1) + ".htm"">Previous</A></B>")
Type (";&nbsp;") // Type "Next" Link One FileNumber Lower (e.g., "eml9665.htm")
Type ("<B><A HREF=""eml" + (vFileNumber - 1) + ".htm"">Next</A></B>")
Type ("</LI>")
HardReturn ()

Graphic Rule

Graphic Rule

WordPerfect 2000 (9) Macros
For Creating Tile Viewer
(in case you're interested: this was finished in February, 2004)

Graphic Rule

Material by Cliff Walker (including unsigned editorial commentary) is copyright ©1995-2008 by Cliff Walker. Each submission is copyrighted by its writer, who retains control of the work except that by submitting it to Positive Atheism, permission has been granted to use the material or an edited version: (1) on the Positive Atheism web site; (2) in Positive Atheism Magazine; (3) in subsequent works controlled by Cliff Walker or Positive Atheism Magazine (including published or posted compilations). Excerpts not exceeding 500 words are allowed provided the proper copyright notice is affixed. Other use requires permission; Positive Atheism will work to protect the rights of all who submit their writings to us.

Graphic Rule