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.
Msg(MSG_KEY_DOWN,0,SC_CURSOR_DOWN|SCF_CTRL);
"\n";

"F(\"RED\");";
AFGetStr("\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.
Msg(MSG_KEY_DOWN,0,SC_CURSOR_DOWN|SCF_CTRL);
"\n";

"F(\"RED\",\"+l\");";
AFGetStr("\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.
Msg(MSG_KEY_DOWN,0,SC_CURSOR_DOWN|SCF_CTRL);
"\n";

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

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

TourPut(
"The wrapper function is in your $$RED$$~/HomeWrappers.HC.Z$$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.
Msg(MSG_KEY_DOWN,0,SC_CURSOR_DOWN|SCF_CTRL);
"\n";

"Ed(\"~/HomeWrappers.HC.Z\");";
AFGetStr("\n");

TourPut("Press $$GREEN$$<SHIFT-ESC>$$FG$$ to abort the source code.\n");
AFUntilChar(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);