Initial (manual) import

TempleOSCD/Misc/Tour/Tour7.IN

@@ -0,0 +1,69 @@
+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\");";
+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.
+Msg(MSG_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.
+Msg(MSG_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.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\");";
+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);