TourPut(    "$RED$$TX+L+PU+UL,\"F\",A=\"MN:F\"$$FG$() is a handy function.  "
            "It is a wrapper around $RED$$TX+L+PU+UL,\"Find\",A=\"MN:Find\"$$FG$().  "
            "It searches for a sym.\n", TRUE);

TourPut("Press $GREEN$<ENTER>$FG$.\n");

//Puts the cursor at the bottom.
Message(MESSAGE_KEY_DOWN, 0, SC_CURSOR_DOWN | SCF_CTRL);
"\n";

"F(\"RED\");";
InGetStr("\n");
Sleep(2000);

TourPut("Notice the number of matches.\n", TRUE);

TourPut(    "Try it with the $GREEN$+l$FG$ flag.  This limits to whole labels, not "
            "partials.\n", TRUE);

TourPut("Press $GREEN$<ENTER>$FG$.\n");

//Puts the cursor at the bottom.
Message(MESSAGE_KEY_DOWN, 0, SC_CURSOR_DOWN | SCF_CTRL);
"\n";

"F(\"RED\",\"+l\");";
InGetStr("\n");
Sleep(2000);

TourPut("Notice the number of matches.\n", TRUE);

TourPut(    "Try it with the $GREEN$+l-i$FG$ flag.  This does not ignore case and "
            "limits to whole labels, not partials.\n", TRUE);

TourPut("Press $GREEN$<ENTER>$FG$.\n");

//Puts the cursor at the bottom.
Message(MESSAGE_KEY_DOWN, 0, SC_CURSOR_DOWN | SCF_CTRL);
"\n";

"F(\"RED\",\"+l-i\");";
InGetStr("\n");
Sleep(2000);

TourPut("Notice the number of matches.\n",TRUE);

TourPut(    "The wrapper function is in your $RED$~/HomeWrappers.ZC$FG$ file.  "
            "There is a function $RED$$TX+L+PU+UL,\"R\",A=\"MN:R\"$$FG$() for "
            "find and replace.  Feel free to customize.\n", TRUE);

TourPut("Press $GREEN$<ENTER>$FG$.\n");

//Puts the cursor at the bottom.
Message(MESSAGE_KEY_DOWN, 0, SC_CURSOR_DOWN | SCF_CTRL);
"\n";

"Ed(\"~/HomeWrappers.ZC\");";
InGetStr("\n");

TourPut("Press $GREEN$<SHIFT-ESC>$FG$ to abort the source code.\n");
InUntilChar(CH_ESC, CH_SHIFT_ESC);

TourPut(    "$GREEN$+lb$FG$ is whole label just before.\n"
            "$GREEN$+la$FG$ is whole label just after.\n", TRUE);