//This puts the cursor at the bottom
Msg(MSG_KEY_DOWN,0,SC_CURSOR_DOWN|SCF_CTRL);
PutS("\r");

PopUpOk(
"Now, we're going to demonstrate how to work\r\n"
"with programs.  We'll change to the \LT\Demo\r\n"
"directory.  The change directory command\r\n"
"will be typed for you and you just need\r\n"
"to press $$FG,GREEN$$ENTER$$FG$$.\r\n\r\n"
"Note, that directories are specified with\r\n"
"a forward slash, not a backslash.\r\n"
"Drives can be specified in a $$FG,GREEN$$Cd()$$FG$$ command\r\n"
"and the boot drive is specified with \"$$FG,GREEN$$::$$FG$$\".");

PutS("Cd(\"::/LT/Demo\");Dir;");
AFPmtStr("\r");


PopUpOk(
"Now, we're going to edit a file.  Normally,\r\n"
"you'll probably left-click on a directory\r\n"
"listing to edit a file, but we're going to\r\n"
"type it on the command line.\r\n\r\n"
"Press $$FG,GREEN$$ENTER$$FG$$ to complete the command.\r\n");

PutS("Edit(\"ASCIIOrgan.CPZ\");");
AFPmtStr("\r");

Sleep(1000);
PopUpOk(
"This program gets keys and plays frequencies.\r\n"
"It quits when you press $$FG,GREEN$$ESC$$FG$$.\r\n\r\n"
"There is no \"$$FG,GREEN$$main()$$FG$$\" function in LoseThos\r\n"
"programs.  Any program statements outside\r\n"
"functions get executed when you $$FG,GREEN$$#include$$FG$$\r\n"
"them at the command line.\r\n\r\n"
"The \"$$FG,GREEN$$ASCIIOrgan;$$FG$$\" statement at the bottom\r\n"
"will run the program when we $$FG,GREEN$$#include$$FG$$ it.\r\n");

PopUpOk(
"The editor and most things exit when you press\r\n"
"$$FG,GREEN$$ESC$$FG$$.  $$FG,GREEN$$CTRL-Q$$FG$$ will abort (cancel) most things.\r\n\r\n"
"The $$FG,GREEN$$ESC$$FG$$ key can be simulated with a left\r\n"
"double-click, while the $$FG,GREEN$$CTRL-Q$$FG$$ key can be\r\n"
"simulated with a right double-click.  When\r\n"
"you browse documentation, you'll left-click\r\n"
"on links and right double-click to go back,\r\n"
"unless you want to save changes to documents\r\n"
"using left double-click.\r\n\r\n"
"Press $$FG,GREEN$$CTRL-Q$$FG$$ to quit out of the editor.\r\n"
);

AFGetChar(CH_CTRLQ);

PopUpOk(
"Now, we'll run the ASCIIOrgan.CPZ program.\r\n"
"Press $$FG,GREEN$$ENTER$$FG$$ at the command line to\r\n"
"$$FG,GREEN$$#include$$FG$$ it.  Then press keys to\r\n"
"cause sounds and press $$FG,GREEN$$ESC$$FG$$ when\r\n"
"you are done.\r\n");

PutS("#include \"ASCIIOrgan.CPZ\";");
AFPmtStr("\r");
AFUntilChar(CH_ESC);

PopUpOk(
"The program is still in memory and we\r\n"
"can start it again by typing \"$$FG,GREEN$$ASCIIOrgan;$$FG$$\".\r\n\r\n"
"Press $$FG,GREEN$$ENTER$$FG$$ at the command line to\r\n"
"run it again.\r\n");

PutS("ASCIIOrgan;");
AFPmtStr("\r");
AFUntilChar(27);