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

TourPut(    "Now, we're going to add the CastleFrankenstein.ZC program "
            "to your PersonalMenu.\n\n"
            "Press $GREEN$<CTRL-m>$FG$ to get to your PersonalMenu.\n");
InCharGet(CH_CTRLM);
Message(MESSAGE_KEY_DOWN, 0, SC_CURSOR_UP | SCF_CTRL);

TourPut(    "Press $GREEN$<CTRL-l>$FG$ to invoke the insert text widgets wizard.\n\n"
            "(Pressing $GREEN$<CTRL-r>$FG$ invokes the graphic sprite resource editor.)\n");
InCharGet(CH_CTRLL);

Sleep(500);
WinToTop;//Kludge

TourPut("$GREEN$<CURSOR-DOWN>$FG$ until you reach \"Macro\".\n");
I64 i;
for (i = 0; i < 6; i++)
    InKeyGet(SC_CURSOR_DOWN);

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

TourPut(    "Now, we'll fill-in the visible tag of the macro.  Then, "
            "we'll fill-in the macro text.\n", TRUE);
InPrint(, "Click Here");

Message(MESSAGE_KEY_DOWN, 0, SC_CURSOR_DOWN);
InPrint(,"Cd(\"::/Demo/Games\");; #include \"CastleFrankenstein\";\\n");

TourPut("Press $GREEN$<ESC>$FG$ to exit the form.\n");
InCharGet(CH_ESC);

TourPut(    "Press $GREEN$<CTRL-SHIFT-ENTER>$FG$ to insert a line feed.  "
            "($GREEN$<CTRL-ENTER>$FG$ does a page break.  "
            "$GREEN$<ENTER>$FG$ would execute the macro.)\n");
InKeyGet(SC_ENTER | SCF_CTRL | SCF_SHIFT);

Message(MESSAGE_KEY_DOWN, 0, SC_CURSOR_UP | SCF_CTRL);
TourPut("Press $GREEN$<SPACE>$FG$ to test it.\n");
InGetStr(" ");
TourPut(    "Move around with cursor keys and press $GREEN$<SHIFT-ESC>$FG$ when you "
            "are done.\n");
InUntilChar(CH_ESC, CH_SHIFT_ESC);

TourPut(    "Now, we'll do a fancier macro that pops-up a new window which dies when "
            "finished, returning mem to the system.\n",TRUE);
Message(MESSAGE_KEY_DOWN, CH_CTRLM, 0x43200000432);
Message(MESSAGE_KEY_DOWN, 0, SC_CURSOR_UP | SCF_CTRL);
Message(MESSAGE_KEY_DOWN, CH_CTRLL, 0x42600000426);
for (i = 0; i < 6; i++)
    Message(MESSAGE_KEY_DOWN, 0, SC_CURSOR_DOWN);
InPrint(," Click here for Pop-up version");
Message(MESSAGE_KEY_DOWN, 0, SC_CURSOR_DOWN);
InPrint(,"Cd(\"::/Demo/Games\");; #include \"CastleFrankenstein\";\\n");
Message(MESSAGE_KEY_DOWN, 0, SC_CURSOR_LEFT | SCF_CTRL);

TourPut("Press $GREEN$<CURSOR-DOWN>$FG$ until you reach the \"Pop-Up\" check-box.\n");
for (i = 0; i < 2; i++)
    InKeyGet(SC_CURSOR_DOWN);
TourPut("Press $GREEN$<SPACE>$FG$ to check the box.\n");
InGetStr(" ");

TourPut("Press $GREEN$<ESC>$FG$ to exit the form.\n");
InCharGet(CH_ESC);

TourPut("Press $GREEN$<CTRL-SHIFT-ENTER>$FG$ to insert a line feed.\n");
InKeyGet(SC_ENTER | SCF_CTRL | SCF_SHIFT);

Message(MESSAGE_KEY_DOWN, 0, SC_CURSOR_UP | SCF_CTRL);
TourPut("Press $GREEN$<SPACE>$FG$ to test it.\n");
InGetStr(" ");

Sleep(500);
WinToTop;//Kludge

TourPut(    "Move around with cursor keys and press $GREEN$<SHIFT-ESC>$FG$ when you "
            "are done.\n");
InUntilChar(CH_ESC, CH_SHIFT_ESC);

TourPut(    "$GREEN$<CTRL-S>$FG$ to save your PersonalMenu file, if you wish.  "
            "Your PersonalMenu is special and does not save on $GREEN$<ESC>$FG$.\n", TRUE);

'' CH_SHIFT_ESC;                //exit menu