Rijn/TempleOS-Rijn
1
1 Fork 0
Code Issues Pull Requests 1 Actions Packages Projects Releases Wiki Activity

LTCD_070816.ISO

Browse Source
This commit is contained in:
Terry A. Davis authored and minexew committed 2018-09-08 21:45:20 +02:00
1 parent d14bbc24f9
commit 0e9364ff4c
506 files changed
+157705 -41812
Download Patch File Download Diff File Expand all files Collapse all files

No files matched your search

LT/Accts/Tour/DoIt.CPZ
+1
View File
@@ -0,0 +1 @@
AutoFile("Tour");
LT/Accts/Tour/Tour.AUZ
+37
View File
@@ -0,0 +1,37 @@
public I8 PopUpTourPart()
{
I8 i;
Ltf *l=LtfNew;
LtfPutSExt(l,"$$FG PURPLE$$LoseThos Tours$$FG$$\r\n\r\n");
LtfPutSExt(l,"$$CM +LX, 4,4$$$$BT, \"Part 1: The basics\",1$$");
LtfPutSExt(l,"$$CM +LX, 4,4$$$$BT, \"Part 2: Editing and running programs\",2$$");
LtfPutSExt(l,"$$CM +LX, 4,4$$$$BT, \"Part 3: Adding macros to your start menu\",3$$");
LtfPutSExt(l,"$$CM +LX, 4,4$$$$BT, \"Part 4: WordStat\",4$$");
LtfPutSExt(l,"$$CM +LX, 4,4$$$$BT, \"Part 5: Wow!!\",5$$");
LtfPutSExt(l,"$$CM +LX, 4,4$$$$BT, \"Done\",-1$$");
i=PopUpMenu(l);
LtfDel(l);
return i;
}
I8 i;
do {
switch (i=PopUpTourPart)
{
case 1:
ExecuteFile("::/LT/Accts/Tour/Tour1.AUZ");
break;
case 2:
ExecuteFile("::/LT/Accts/Tour/Tour2.AUZ");
break;
case 3:
ExecuteFile("::/LT/Accts/Tour/Tour3.AUZ");
break;
case 4:
ExecuteFile("::/LT/Accts/Tour/Tour4.AUZ");
break;
case 5:
ExecuteFile("::/LT/Accts/Tour/Tour5.AUZ");
break;
}
} while (i>=1);
LT/Accts/Tour/Tour1.AUZ
+105
View File
@@ -0,0 +1,105 @@
//This puts the cursor at the bottom
Msg(MSG_KEY_DOWN,0,SC_CURSOR_DOWN|SCF_CTRL);
PutS("\r");
PopUpOk(
"After clicking 'OKAY', you will be at the\r\n"
"command line.\r\n"
"\r\n"
"The syntax is like $$FG,GREEN$$C/C++$$FG$$ except you\r\n"
"don't need $$FG,GREEN$$()$$FG$$ if there are no parameters.\r\n"
"\r\n"
"Type \"$$FG,GREEN$$Dir;$$FG$$\" and press $$FG,GREEN$$ENTER$$FG$$.\r\n\r\n"
"You must remember the semicolon.\r\n"
);
AFPmtStr("Dir;\r");
Sleep(1000); //allow user time to see dir
PutChar(CH_CR);
PopUpOk(
"After clicking 'OKAY', you will be at the\r\n"
"command line.\r\n\r\n"
"Press the $$FG,GREEN$$WINDOW$$FG$$s key.\r\n\r\n"
"This will access your macro/menu/help area.\r\n"
"You can customize it. It's like your\r\n"
"START menu.\r\n");
AFGetKey(SC_GUI);
Sleep(1000);
PopUpOk(
"You can get to the menu/macro/help area\r\n"
"by clicking on the word \"MENU\" in the\r\n"
"title bar.\r\n");
PopUpOk(
"$$UL,1$$$$FG,LTBLUE$$Blue Underlined Text are Macros$$FG$$$$UL,0$$\r\n"
"\t$$FG,GREEN$$SPACE BAR$$FG$$\t=Left Mouse\t-->Execute Macro\r\n"
"\r\n\r\n"
"$$UL,1$$$$FG,LTRED$$Red Underlined Text are Links$$FG$$$$UL,0$$\r\n"
"\t$$FG,GREEN$$SPACE BAR$$FG$$\t=Left Mouse\t-->Edit/View Link Doc\r\n"
"\t$$FG,GREEN$$ENTER$$FG$$\t\t=Right Mouse\t-->Link Menu\r\n"
"\r\n\r\n"
"Exiting Documents/Forms\r\n"
"\t$$FG,GREEN$$ESC$$FG$$\t=Left Double Mouse\t-->Save and Exit\r\n"
"\t$$FG,GREEN$$CTRL-Q$$FG$$\t=Right Double Mouse\t-->Abort/Cancel/Quit or Back\r\n"
);
PopUpOk(
"$$FG,GREEN$$CTRL-ALT-ESC$$FG$$\tSpawn new user shell window\r\n"
"$$FG,GREEN$$CTRL-ALT-X$$FG$$\tKill window\r\n"
"$$FG,GREEN$$CTRL-ALT-C$$FG$$\tBreak(interrupt) program\r\n"
);
PopUpOk(
"After clicking 'OKAY', you will be back at\r\n"
"the menu/macro/help area.\r\n\r\n"
"Press $$FG,GREEN$$CURSOR-DOWN$$FG$$ nine times.\r\n");
//This puts the cursor at the top
Msg(MSG_KEY_DOWN,0,SC_CURSOR_UP|SCF_CTRL);
I8 i;
for (i=0;i<9;i++)
AFGetKey(SC_CURSOR_DOWN);
PopUpOk(
"After clicking 'OKAY', the cursor will be\r\n"
"on top of a macro we wish to run.\r\n"
"\r\n"
"After clicking OKAY, press $$FG,GREEN$$SPACE$$FG$$.\r\n");
AFPmtStr(" ");
Sleep(1000);
PopUpOk(
"The macro changed directories and did\r\n"
"a $$FG,GREEN$$Dir;$$FG$$ command.\r\n\r\n"
"The $$FG,RED$$RED$$FG$$ filenames listed are file\r\n"
"links. Left-clicking will edit/view them.\r\n"
"Right-clicking or pressing $$FG,GREEN$$ENTER$$FG$$\r\n"
"when the cursor is on top will bring-up a\r\n"
"menu of options.\r\n\r\n"
"The $$FG LTBLUE$$BLUE$$FG$$ underline entries \"$$FG LTBLUE$$.$$FG$$\" and \"$$FG LTBLUE$$..$$FG$$\"\r\n"
"are macros and will change directories.\r\n");
PopUpOk(
"As you can see, the command line is not\r\n"
"different from the help/menu/macro area.\r\n"
"Both use the same commands and have the same\r\n"
"'Widgets' available.\r\n\r\n"
"Both utilize the same underlying document format.\r\n"
"It is similar to $$FG,GREEN$$html$$FG$$ because it has ASCII\r\n"
"behind it. LoseThos documents can include graphics.\r\n\r\n"
"Press \"$$FG,GREEN$$CTRL-T$$FG$$\" after clicking 'OKAY' to toggle\r\n"
"to plain text mode.\r\n");
AFGetChar(20);
Sleep(1000);
PopUpOk(
"The widgets are bracketed with dollar sign\r\n"
"characters. \"LK\" stands \"link\" and \"MA\"\r\n"
"stands for \"macro\".\r\n\r\n"
"Now, press \"$$FG,GREEN$$CTRL-T$$FG$$\" to toggle back to\r\n"
"regular mode.\r");
AFGetChar(20);
Sleep(1000);
LT/Accts/Tour/Tour2.AUZ
+76
View File
@@ -0,0 +1,76 @@
//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);
LT/Accts/Tour/Tour3.AUZ
+110
View File
@@ -0,0 +1,110 @@
//This puts the cursor at the bottom
Msg(MSG_KEY_DOWN,0,SC_CURSOR_DOWN|SCF_CTRL);
PutS("\rCd(\"::/LT/Demo\");Dir;\r");
PopUpOk(
"Now, we're going to add the ASCIIOrgan.CPZ\r\n"
"program to your start menu.\r\n\r\n"
"Press the $$FG,GREEN$$WINDOW$$FG$$s key\r\n"
"to get to your menu/macro/help area.\r\n");
AFGetKey(SC_GUI);
Msg(MSG_KEY_DOWN,0,SC_CURSOR_UP|SCF_CTRL);
Sleep(1000);
PopUpOk(
"Press $$FG,GREEN$$CTRL-L$$FG$$ to invoke the\r\n"
"text-widget resource editor.\r\n"
"\r\n"
"($$FG,GREEN$$CTRL-R$$FG$$ invokes the\r\n"
"graphic resource editor.)\r\n"
);
AFGetChar(12);
Sleep(100);
PopUpOk(
"Press $$FG,GREEN$$CURSOR-DOWN$$FG$$ until you reach\r\n"
"\"Macro\".\r\n");
I8 i;
for (i=0;i<8;i++)
AFGetKey(SC_CURSOR_DOWN);
PopUpOk(
"Press $$FG,GREEN$$SPACE$$FG$$.\r\n");
AFPmtStr(" ");
Sleep(1000);
PopUpOk(
"Now, we'll fill-in the visible text\r\n"
"of the macro.\r\n");
AFDelayedPutS("Click Here");
Msg(MSG_KEY_DOWN,0,SC_CURSOR_DOWN);
PopUpOk("Now, we'll fill-in the macro text.\r\n");
AFDelayedPutS("Cd(\\\"::/LT/Demo\\\");;#include \\\"ASCIIOrgan.CPZ\\\";\\r");
PopUpOk("Press $$FG,GREEN$$ESC$$FG$$ to exit the form.\r\n");
AFGetChar(CH_ESC);
Sleep(1000);
PopUpOk(
"Press $$FG,GREEN$$CTRL-SHIFT-ENTER$$FG$$ to insert a line feed.\r\n"
"($$FG,GREEN$$CTRL-ENTER$$FG$$ does a page break and $$FG,GREEN$$ENTER$$FG$$\r\n"
"would execute the macro.)\r\n");
AFGetKey(SC_CR|SCF_CTRL|SCF_SHIFT);
Sleep(1000);
Msg(MSG_KEY_DOWN,0,SC_CURSOR_UP|SCF_CTRL);
PopUpOk(
"Press $$FG,GREEN$$SPACE$$FG$$ to test it.\r\n");
AFPmtStr(" ");
AFUntilChar(CH_ESC);
PopUpOk(
"Now, we'll do a fancier macro that pops-up\r\n"
"a new window which dies when finished,\r\n"
"returning memory to the system.\r\n");
Msg(MSG_KEY_DOWN,0,SC_GUI);
Msg(MSG_KEY_DOWN,0,SC_CURSOR_UP|SCF_CTRL);
Msg(MSG_KEY_DOWN,12,0); //CTRL-L
for (i=0;i<8;i++)
Msg(MSG_KEY_DOWN,0,SC_CURSOR_DOWN);
AFDelayedPutS(" Click here for Pop-up version");
Msg(MSG_KEY_DOWN,0,SC_CURSOR_DOWN);
AFDelayedPutS("Cd(\\\"::/LT/Demo\\\");;#include \\\"ASCIIOrgan.CPZ\\\";\\r");
Msg(MSG_KEY_DOWN,0,SC_CURSOR_LEFT|SCF_CTRL);
PopUpOk(
"Press $$FG,GREEN$$CURSOR-DOWN$$FG$$ until you reach\r\n"
"the \"Pop-Up\" check-box.\r\n");
for (i=0;i<2;i++)
AFGetKey(SC_CURSOR_DOWN);
PopUpOk(
"Press $$FG,GREEN$$SPACE$$FG$$ to\r\n"
"check the box.\r\n");
AFPmtStr(" ");
Sleep(500);
PopUpOk("Press $$FG,GREEN$$ESC$$FG$$ to exit the form.\r\n");
AFGetChar(CH_ESC);
Sleep(500);
PopUpOk("Press $$FG,GREEN$$CTRL-SHIFT-ENTER$$FG$$ to insert a line feed.\r\n");
AFGetKey(SC_CR|SCF_CTRL|SCF_SHIFT");
Sleep(500);
Msg(MSG_KEY_DOWN,0,SC_CURSOR_UP|SCF_CTRL);
PopUpOk(
"Press $$FG,GREEN$$SPACE$$FG$$ to test it.\r\n");
AFPmtStr(" ");
Sleep(5000);
PopUpOk(
"Press $$FG,GREEN$$CTRL-S$$FG$$ to save your\r\n"
"macro/menu/help area file, if you wish.\r\n");
if (Fs->parent_tss->popup_tss) {
PutChar(CH_CTRLQ);
Sleep(100);
}
PutChar(CH_CTRLQ); //exit menu
LT/Accts/Tour/Tour4.AUZ
+58
View File
@@ -0,0 +1,58 @@
PopUp("WsInit(\"::/LT\");");
WordStat;
//This puts the cursor at the bottom
Msg(MSG_KEY_DOWN,0,SC_CURSOR_DOWN|SCF_CTRL);
PutS("\rCd(\"::/LT/Demo\");\r");
PopUpOk(
"WordStat is an autocomplete feature\r\n"
"which will also jump to source code.\r\n"
"The function keys work with code, while\r\n"
"the number keys work with the dictionary.\r\n\r\n"
"We will now place some text on the command\r\n"
"line and jump to source code.\r\n");
PutS("InstallB");
Sleep(1000);
PopUpOk(
"After clicking $$FG,GREEN$$OKAY$$FG$$, look at\r\n"
"the $$FG,GREEN$$InstallBoot$$FG$$ entry in the WordStat\r\n"
"window. Notice it has a '$$FG,GREEN$$*$$FG$$' by it.\r\n"
"This means a source code link is available.\r\n");
Sleep(2000);
PopUpOk(
"Press $$FG,GREEN$$CTRL-SHIFT-F1$$FG$$ to jump to source code.\r\n");
AFGetKey(SC_F1|SCF_CTRL|SCF_SHIFT);
Sleep(500);
PopUpOk(
"Press $$FG,GREEN$$CTRL-Q$$FG$$ to quit the source code.\r\n");
AFUntilChar(CH_CTRLQ);
Sleep(100);
sys_cur_focus_task=Fs;
PopUpOk(
"Press $$FG,GREEN$$CTRL-F1$$FG$$ to autocomplete.\r\n");
AFGetKey(SC_F1|SCF_CTRL);
Sleep(500);
Msg(MSG_KEY_DOWN,CH_CR,SCF_CTRL|SCF_SHIFT);
PutS("\r");
PopUpOk(
"Tip: You can restart the WordStat window if you\r\n"
"have closed it by pressing $$FG,GREEN$$CTRL-F1$$FG$$.\r\n");
PopUpOk(
"You can also use the $$FG,GREEN$$Man()$$FG$$ function\r\n"
"to jump to source code.\r\n");
AFDelayedPutS("Man(\"InstallBoot\");");
Sleep(1000);
PutS("\r");
Sleep(2000);
PopUpOk(
"Press $$FG,GREEN$$CTRL-Q$$FG$$ to quit the source code.\r\n");
AFUntilChar(CH_CTRLQ);
LT/Accts/Tour/Tour5.AUZ
+19
View File
@@ -0,0 +1,19 @@
PopUpOk(
"All text widgets work everywhere.\r\n"
"The $$FG,GREEN$$Type()$$FG$$ command is like\r\n"
"the DOS command of the same name\r\n"
"or the UNIX, $$FG,GREEN$$cat$$FG$$ command.\r\n"
"We will now send your menu document\r\n"
"to the command line. They use the same\r\n"
"document format and it is active!!.\r\n");
PopUpOk("Press $$FG,GREEN$$ENTER$$FG$$.");
//This puts the cursor at the bottom
Msg(MSG_KEY_DOWN,0,SC_CURSOR_DOWN|SCF_CTRL);
PutS("\r");
PutS("Type(\"HOME/User.MUZ\");");
AFPmtStr("\r");
LT/Accts/Tour/User.CPZ
BIN
View File
Binary file not shown.