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

TempleOSCD_140715.ISO

Browse Source
This commit is contained in:
Terry A. Davis authored and minexew committed 2018-09-08 21:46:09 +02:00
1 parent 7ef616a20e
commit 64f679eeb9
1095 files changed
+24814 -221011
Download Patch File Download Diff File Expand all files Collapse all files

No files matched your search

Misc/Tour/Tour.AUT
+8 -7
View File
@@ -5,14 +5,15 @@ public I64 PopUpTourPart()
DocPrint(doc,"$$PURPLE$$TempleOS Tours$$FG$$\n\n"
"$$CM+LX,4,4$$$$BT,\"Part 1: The basics\",LE=1$$"
"$$CM+LX,4,4$$$$BT,\"Part 2: Editing and running programs\",LE=2$$"
"$$CM+LX,4,4$$$$BT,\"Part 3: Adding macros to personal menu\",LE=3$$"
"$$CM+LX,4,4$$$$BT,\"Part 3: Adding macros to PersonalMenu\",LE=3$$"
"$$CM+LX,4,4$$$$BT,\"Part 4: Choose filename, choose dir\",LE=4$$"
"$$CM+LX,4,4$$$$BT,\"Part 5: WordStat\",LE=5$$"
"$$CM+LX,4,4$$$$BT,\"Part 6: Search (Grep)\",LE=6$$"
"$$CM+LX,4,4$$$$BT,\"Part 7: Editor filter\",LE=7$$"
"$$CM+LX,4,4$$$$BT,\"Part 8: Debugging\",LE=8$$"
"$$CM+LX,4,4$$$$BT,\"Part 9: Wow!!\",LE=9$$"
"$$CM+LX,4,4$$$$BT,\"Part 10: Test Suite\",LE=10$$"
"$$CM+LX,4,4$$$$BT,\"Part 7: TempleOS File masks\",LE=7$$"
"$$CM+LX,4,4$$$$BT,\"Part 8: Editor filter\",LE=8$$"
"$$CM+LX,4,4$$$$BT,\"Part 9: Debugging\",LE=9$$"
"$$CM+LX,4,4$$$$BT,\"Part 10: Wow!!\",LE=10$$"
"$$CM+LX,4,4$$$$BT,\"Part 11: Test Suite\",LE=11$$"
"$$CM+LX,4,4$$$$BT,\"Done\",LE=DOCM_CANCEL$$\n");
doc->flags|=DOCF_FORM;
i=SrvUser("WinMax;DocMenuDo(0x%X,0);",doc);
@@ -26,8 +27,8 @@ U0 TourMenu()
I64 i;
while (TRUE) {
i=PopUpTourPart;
if (i>=1) {
SPrint(buf,"::/Misc/Tour/Tour%X.AUT",i);
if (i>0) {
StrPrint(buf,"::/Misc/Tour/Tour%X.AUT",i);
ExeFile(buf);
} else
break;
Misc/Tour/Tour1.AUT
+19 -18
View File
@@ -1,4 +1,4 @@
//This puts the cursor at the bottom
//Puts the cursor at the bottom.
Msg(MSG_KEY_DOWN,0,SC_CURSOR_DOWN|SCF_CTRL);
"\n";
@@ -13,31 +13,31 @@ PopUpOk(
"You must remember the semicolon.\n"
);
AFPmtStr("Dir;\n");
Sleep(1000); //allow user time to see dir
AFGetStr("Dir;\n");
Sleep(1000); //Allow user time to see dir
'\n';
PopUpOk(
"After clicking $$GREEN$$[OKAY]$$FG$$, you will be at the\n"
"command line.\n\n"
"Press $$GREEN$$<CTRL-M>$$FG$$.\n\n"
"This will access your personal menu.\n"
"Press $$GREEN$$<CTRL-m>$$FG$$.\n\n"
"This will access your PersonalMenu.\n"
"You can customize it. It's like your\n"
"START menu and desktop.\n");
AFGetChar(CH_CTRLM);
Sleep(1000);
PopUpOk(
"You can get to your personal menu\n"
"You can get to your PersonalMenu\n"
"by clicking on the word \"$$GREEN$$MENU$$FG$$\" in the\n"
"title bar.\n");
PopUpOk(
"After clicking $$GREEN$$[OKAY]$$FG$$, you will be back at\n"
"the personal menu.\n\n"
"the PersonalMenu.\n\n"
"Press $$GREEN$$<CURSOR-DOWN>$$FG$$ nine times.\n");
//This puts the cursor at the top
//Puts the cursor at the top
Msg(MSG_KEY_DOWN,0,SC_CURSOR_UP|SCF_CTRL);
I64 i;
@@ -46,7 +46,7 @@ for (i=0;i<9;i++)
PopUpOk(
"Keyboard commands are:\n\n"
"$$GREEN$$<SPACE BAR>$$FG$$\tLeft-action\n"
"$$GREEN$$<SPACE>$$FG$$\t\tLeft-action\n"
"$$GREEN$$<ENTER>$$FG$$\t\tRight-action\n"
"$$GREEN$$<ESC>$$FG$$\t\tSave and exit\n"
"$$GREEN$$<SHIFT-ESC>$$FG$$\tAbort\n"
@@ -56,8 +56,8 @@ PopUpOk(
"After clicking $$GREEN$$[OKAY]$$FG$$, the cursor will be\n"
"on top of a macro we wish to run.\n"
"\n"
"After clicking $$GREEN$$[OKAY]$$FG$$, press $$GREEN$$<SPACE BAR>$$FG$$.\n");
AFPmtStr(" ");
"After clicking $$GREEN$$[OKAY]$$FG$$, press $$GREEN$$<SPACE>$$FG$$.\n");
AFGetStr(" ");
Sleep(1000);
PopUpOk(
@@ -72,18 +72,19 @@ PopUpOk(
"are macros and will change directories.\n");
PopUpOk(
"\"$$GREEN$$<CTRL-T>$$FG$$\" after clicking $$GREEN$$[OKAY]$$FG$$ to toggle\n"
"to plain text mode.\n");
"Press $$GREEN$$<CTRL-t>$$FG$$ after clicking $$GREEN$$[OKAY]$$FG$$\n"
"to toggle plain text mode.\n\n"
"These are \"DolDoc\" commands.");
AFGetChar(CH_CTRLT);
Sleep(1000);
PopUpOk(
"The widgets are bracketed with dollar sign\n"
"characters. \"LK\" stands \"link\" and \"MA\"\n"
"stands for \"macro\".\n\n"
"Now, \"$$GREEN$$<CTRL-T>$$FG$$\" to toggle back to\n"
"The DolDoc widgets are bracketed with\n"
"dollar sign characters.\n\n"
"\"LK\" stands \"link\".\n"
"\"MA\" stands for \"macro\".\n\n"
"Now, $$GREEN$$<CTRL-t>$$FG$$ to toggle back to\n"
"regular mode.\n");
AFGetChar(CH_CTRLT);
Msg(MSG_KEY_DOWN,0,SC_CURSOR_DOWN|SCF_CTRL);
Sleep(1000);
Misc/Tour/Tour2.AUT
+17 -19
View File
@@ -1,4 +1,4 @@
//This puts the cursor at the bottom
//Puts the cursor at the bottom.
Msg(MSG_KEY_DOWN,0,SC_CURSOR_DOWN|SCF_CTRL);
"\n";
@@ -13,7 +13,7 @@ PopUpOk(
"$$GREEN$$<ENTER>$$FG$$ to complete the command.\n");
AFPrint(25,"Cd(\"::/Demo/Games\");Dir;");
AFPmtStr("\n");
AFGetStr("\n");
PopUpOk(
"Now, we're going to edit a file. Normally,\n"
@@ -23,7 +23,7 @@ PopUpOk(
"$$GREEN$$<ENTER>$$FG$$ to complete the command.\n");
AFPrint(25,"Ed(\"CastleFrankenstein.CPP.Z\");");
AFPmtStr("\n");
AFGetStr("\n");
Msg(MSG_KEY_DOWN_UP,0,SC_CURSOR_UP|SCF_CTRL);
Sleep(1000);
@@ -39,12 +39,11 @@ PopUpOk(
"bottom will run the program when we\n"
"$$GREEN$$#include$$FG$$ it.\n");
PopUpOk(
"$$GREEN$$<SHIFT-ESC>$$FG$$ to abort the editor.\n"
);
AFGetChar(CH_SHIFT_ESC,CH_ESC);
AFGetChar(CH_ESC,CH_SHIFT_ESC);
PopUpOk(
"Now, we'll run the CastleFrankenstein.CPP.Z\n"
@@ -53,8 +52,8 @@ PopUpOk(
"when you are done.\n");
AFPrint(25,"#include \"CastleFrankenstein\";");
AFPmtStr("\n");
AFUntilChar(CH_SHIFT_ESC,CH_ESC);
AFGetStr("\n");
AFUntilChar(CH_ESC,CH_SHIFT_ESC);
PopUpOk(
"The program is still in memory and we\n"
@@ -64,17 +63,16 @@ PopUpOk(
"run it again.\n");
AFPrint(25,"CastleFrankenstein;");
AFPmtStr("\n");
AFUntilChar(CH_SHIFT_ESC,CH_ESC);
AFGetStr("\n");
AFUntilChar(CH_ESC,CH_SHIFT_ESC);
PopUpOk(
"$$GREEN$$<CTRL-ALT-A>$$FG$$\tExtended ASCII\n"
"$$GREEN$$<CTRL-ALT-C>$$FG$$\tBreak(interrupt) program\n"
"$$GREEN$$<CTRL-ALT-E>$$FG$$\tSpawn new user terminal window\n"
"$$GREEN$$<CTRL-ALT-M>$$FG$$\tMutes sound\n"
"$$GREEN$$<CTRL-ALT-T>$$FG$$\tSwitch tasks\n"
"$$GREEN$$<CTRL-ALT-X>$$FG$$\tKill task (window)\n"
"$$GREEN$$<CTRL-ALT-a>$$FG$$\tExtended ASCII\n"
"$$GREEN$$<CTRL-ALT-c>$$FG$$\tBreak(interrupt) program\n"
"$$GREEN$$<CTRL-ALT-e>$$FG$$\tSpawn new user terminal window\n"
"$$GREEN$$<CTRL-ALT-m>$$FG$$\tMutes sound\n"
"$$GREEN$$<CTRL-ALT-t>$$FG$$\tSwitch tasks\n"
"$$GREEN$$<CTRL-ALT-x>$$FG$$\tKill task (window)\n"
);
AFPrint(50,"Ed(\"CastleFrankenstein.CPP.Z\");\n");
@@ -89,7 +87,7 @@ CTask *task=sys_focus_task;
PopUpOk(
"$$GREEN$$<SHIFT-ESC>$$FG$$ to abort the application.\n"
"Then, $$GREEN$$<CTRL-ALT-X>$$FG$$ to kill the task.\n"
"Then, $$GREEN$$<CTRL-ALT-x>$$FG$$ to kill the task.\n"
);
WinToTop(task);
while (TaskValidate(task))
@@ -98,12 +96,12 @@ while (TaskValidate(task))
PopUpOk(
"$$GREEN$$<SHIFT-ESC>$$FG$$ to abort the editor.\n");
AFUntilChar(CH_SHIFT_ESC,CH_ESC);
AFUntilChar(CH_ESC,CH_SHIFT_ESC);
PopUpOk(
"Explore the $$LK+PU,\"DemoIndex\",\"FI:::/Doc/DemoIndex.TXT\"$$. You'll find it\n"
"on your menu. It's arranged by difficulty.\n"
"Hit $$GREEN$$<SPACE BAR>$$FG$$ on a demo index listing\n"
"Hit $$GREEN$$<SPACE>$$FG$$ on a demo index listing\n"
"and $$GREEN$$<F5>$$FG$$ to run from the editor.\n"
);
Misc/Tour/Tour3.AUT
+18 -20
View File
@@ -1,22 +1,22 @@
//This puts the cursor at the bottom
//Puts the cursor at the bottom.
Msg(MSG_KEY_DOWN,0,SC_CURSOR_DOWN|SCF_CTRL);
"\nCd(\"::/Demo/Games\");Dir;\n";
PopUpOk(
"Now, we're going to add the\n"
"CastleFrankenstein.CPP.Z program\n"
"to your personal menu.\n\n"
"Press $$GREEN$$<CTRL-M>$$FG$$\n"
"to get to your personal menu.\n");
"to your PersonalMenu.\n\n"
"Press $$GREEN$$<CTRL-m>$$FG$$\n"
"to get to your PersonalMenu.\n");
AFGetChar(CH_CTRLM);
Msg(MSG_KEY_DOWN,0,SC_CURSOR_UP|SCF_CTRL);
Sleep(1000);
PopUpOk(
"$$GREEN$$<CTRL-L>$$FG$$ to invoke the\n"
"$$GREEN$$<CTRL-l>$$FG$$ to invoke the\n"
"text-widget resource editor.\n"
"\n"
"($$GREEN$$<CTRL-R>$$FG$$ invokes the\n"
"($$GREEN$$<CTRL-r>$$FG$$ invokes the\n"
"graphic resource editor.)\n"
);
AFGetChar(CH_CTRLL);
@@ -30,11 +30,10 @@ for (i=0;i<6;i++)
AFGetKey(SC_CURSOR_DOWN);
PopUpOk(
"$$GREEN$$<SPACE BAR>$$FG$$.\n");
AFPmtStr(" ");
"$$GREEN$$<SPACE>$$FG$$.\n");
AFGetStr(" ");
Sleep(1000);
PopUpOk(
"Now, we'll fill-in the visible text\n"
"of the macro.\n");
@@ -57,9 +56,9 @@ Sleep(1000);
Msg(MSG_KEY_DOWN,0,SC_CURSOR_UP|SCF_CTRL);
PopUpOk(
"Press $$GREEN$$<SPACE BAR>$$FG$$ to test it.\n");
AFPmtStr(" ");
AFUntilChar(CH_SHIFT_ESC,CH_ESC);
"Press $$GREEN$$<SPACE>$$FG$$ to test it.\n");
AFGetStr(" ");
AFUntilChar(CH_ESC,CH_SHIFT_ESC);
PopUpOk(
"Now, we'll do a fancier macro that pops-up\n"
@@ -67,7 +66,7 @@ PopUpOk(
"returning mem to the system.\n");
Msg(MSG_KEY_DOWN,CH_CTRLM,0x43200000432);
Msg(MSG_KEY_DOWN,0,SC_CURSOR_UP|SCF_CTRL);
Msg(MSG_KEY_DOWN,CH_CTRLL,0);
Msg(MSG_KEY_DOWN,CH_CTRLL,0x42600000426);
for (i=0;i<6;i++)
Msg(MSG_KEY_DOWN,0,SC_CURSOR_DOWN);
AFPrint(," Click here for Pop-up version");
@@ -81,9 +80,8 @@ PopUpOk(
for (i=0;i<2;i++)
AFGetKey(SC_CURSOR_DOWN);
PopUpOk(
"$$GREEN$$<SPACE BAR>$$FG$$ to\n"
"check the box.\n");
AFPmtStr(" ");
"$$GREEN$$<SPACE>$$FG$$ to check the box.\n");
AFGetStr(" ");
Sleep(500);
PopUpOk("$$GREEN$$<ESC>$$FG$$ to exit the form.\n");
@@ -96,14 +94,14 @@ Sleep(500);
Msg(MSG_KEY_DOWN,0,SC_CURSOR_UP|SCF_CTRL);
PopUpOk(
"$$GREEN$$<SPACE BAR>$$FG$$ to test it.\n");
AFPmtStr(" ");
"$$GREEN$$<SPACE>$$FG$$ to test it.\n");
AFGetStr(" ");
Sleep(3000);
PopUpOk(
"$$GREEN$$<CTRL-S>$$FG$$ to save your\n"
"personal menu file, if you wish.\n"
"Your personal menu is special and\n"
"PersonalMenu file, if you wish.\n"
"Your PersonalMenu is special and\n"
"does not save on $$GREEN$$<ESC>$$FG$$.\n");
if (Fs->parent_task->popup_task) {
'' CH_SHIFT_ESC;
Misc/Tour/Tour4.AUT
+12 -16
View File
@@ -1,7 +1,6 @@
//This is an example of your documentation.
//This is an example of how you do documentation.
//This puts the cursor at the bottom
//Puts the cursor at the bottom.
Msg(MSG_KEY_DOWN,0,SC_CURSOR_DOWN|SCF_CTRL);
"\nEd(\"::/Misc/Tour/Tour4.AUT.Z\");\n";
Msg(MSG_KEY_DOWN,0,SC_CURSOR_UP|SCF_CTRL);
@@ -13,25 +12,22 @@ PopUpOk(
"using the $$GREEN$$<F4>$$FG$$ filename chooser.\n");
'' CH_CTRLL;
Sleep(1000);
Sleep(1500);
'' CH_SPACE;
Sleep(1000);
Sleep(1500);
'' CH_SPACE;
Sleep(1000);
Msg(MSG_KEY_DOWN,0,SC_CURSOR_DOWN);
Sleep(1000);
Sleep(2000);
PopUpOk(
"Press $$GREEN$$<F4>$$FG$$.\n"
"Pick any file and press $$GREEN$$<ESC>$$FG$$.");
"Press $$GREEN$$<F4>$$FG$$. Pick any\n"
"file and press $$GREEN$$<ESC>$$FG$$.");
AFGetKey(SC_F4);
PopUpOk(
"Press $$GREEN$$<ESC>$$FG$$.\n");
AFUntilChar(CH_SHIFT_ESC,CH_ESC);
PopUpOk("Press $$GREEN$$<ESC>$$FG$$.\n");
AFGetChar(CH_ESC);
PopUpOk(
"$$GREEN$$<SHIFT-ESC>$$FG$$ to abort.\n");
AFUntilChar(CH_SHIFT_ESC,CH_ESC);
PopUpOk("$$GREEN$$<SHIFT-ESC>$$FG$$ to abort.\n");
AFGetChar(CH_SHIFT_ESC);
PopUpOk(
"$$GREEN$$<SHIFT F4>$$FG$$ to pick directories.\n");
PopUpOk("$$GREEN$$<SHIFT F4>$$FG$$ to pick directories.\n");
Misc/Tour/Tour5.AUT
+3 -3
View File
@@ -2,7 +2,7 @@ PopUp("WSInit(\"::/*;~*Bible.TXT*\");");
WordStat(ON);
Sleep(3500);
//This puts the cursor at the bottom
//Puts the cursor at the bottom.
Msg(MSG_KEY_DOWN,0,SC_CURSOR_DOWN|SCF_CTRL);
"\nCd(\"::/Demo\");\n";
@@ -33,7 +33,7 @@ Sleep(500);
PopUpOk(
"$$GREEN$$<SHIFT-ESC>$$FG$$ to abort the source code.\n");
AFUntilChar(CH_SHIFT_ESC,CH_ESC);
AFUntilChar(CH_ESC,CH_SHIFT_ESC);
Sleep(100);
sys_focus_task=Fs;
@@ -61,4 +61,4 @@ Sleep(1000);
Sleep(2000);
PopUpOk(
"$$GREEN$$<SHIFT-ESC>$$FG$$ to abort the source code.\n");
AFUntilChar(CH_SHIFT_ESC,CH_ESC);
AFUntilChar(CH_ESC,CH_SHIFT_ESC);
Misc/Tour/Tour6.AUT
+16 -18
View File
@@ -6,16 +6,15 @@ PopUpOk(
PopUpOk("Press $$GREEN$$<ENTER>$$FG$$.");
//This puts the cursor at the bottom
//Puts the cursor at the bottom.
Msg(MSG_KEY_DOWN,0,SC_CURSOR_DOWN|SCF_CTRL);
"\n";
"F(\"RED\");";
AFPmtStr("\n");
AFGetStr("\n");
Sleep(3000);
PopUpOk("Notice the number of matches.\n");
PopUpOk(
"Try it with the $$GREEN$$+l$$FG$$ flag.\n"
@@ -23,16 +22,15 @@ PopUpOk(
PopUpOk("Press $$GREEN$$<ENTER>$$FG$$.");
//This puts the cursor at the bottom
//Puts the cursor at the bottom.
Msg(MSG_KEY_DOWN,0,SC_CURSOR_DOWN|SCF_CTRL);
"\n";
"F(\"RED\",\"+l\");";
AFPmtStr("\n");
AFGetStr("\n");
Sleep(3000);
PopUpOk("Notice the number of matches.\n");
PopUpOk(
"Try it with the $$GREEN$$+l-i$$FG$$ flag.\n"
@@ -41,15 +39,15 @@ PopUpOk(
PopUpOk("Press $$GREEN$$<ENTER>$$FG$$.");
//This puts the cursor at the bottom
//Puts the cursor at the bottom.
Msg(MSG_KEY_DOWN,0,SC_CURSOR_DOWN|SCF_CTRL);
"\n";
"F(\"RED\",\"+l-i\");";
AFPmtStr("\n");
AFGetStr("\n");
Sleep(3000);
PopUpOk("Notice the number of matches.\n");
PopUpOk(
"The wrapper function is in your\n"
@@ -59,17 +57,17 @@ PopUpOk(
PopUpOk("Press $$GREEN$$<ENTER>$$FG$$.");
//This puts the cursor at the bottom
//Puts the cursor at the bottom.
Msg(MSG_KEY_DOWN,0,SC_CURSOR_DOWN|SCF_CTRL);
"\n";
"Ed(\"HOME/Adam3dWrappers.CPP.Z\");";
AFPmtStr("\n");
AFGetStr("\n");
Sleep(2000);
PopUpOk(
"$$GREEN$$<SHIFT-ESC>$$FG$$ to abort the source code.\n");
AFUntilChar(CH_SHIFT_ESC,CH_ESC);
AFUntilChar(CH_ESC,CH_SHIFT_ESC);
PopUpOk(
"$$GREEN$$+lb$$FG$$ is whole label just before.\n"
Misc/Tour/Tour7.AUT
+25 -36
View File
@@ -1,39 +1,28 @@
"Ed(\"::/Misc/Bible.TXT.Z\");\n";
Sleep(1000);
"FF(\"/Kernel/*\");";
PopUpOk("Let's list files in the\n"
"$$GREEN$$/Kernel$$FG$$ and sub directories.\n\n"
"TempleOS masks have one\n"
"base directory and multiple\n"
"filename masks.\n"
"Press $$GREEN$$<ENTER>$$FG$$.");
AFGetStr("\n");
PopUpOk(
"$$GREEN$$<CTRL-F>$$FG$$ to find.\n"
);
"FF(\"/Kernel/*\",\"-r\");";
PopUpOk("The recurse $$GREEN$$+r$$FG$$ flag\n"
"is usually set. Let's\n"
"turn it off.\n\n"
"Press $$GREEN$$<ENTER>$$FG$$.");
AFGetStr("\n");
AFGetChar(CH_CTRLF);
AFPrint(150,"new song");
PopUpOk("Cursor down 8 times.\n");
I64 i;
for (i=0;i<8;i++)
AFGetKey(SC_CURSOR_DOWN);
PopUpOk(
"Press '$$GREEN$$2$$FG$$' to show\n"
"all lines within 2 of a match.\n");
AFPmtStr("2");
Sleep(1000);
PopUpOk("Press $$GREEN$$<ESC>$$FG$$.\n");
AFGetChar(CH_ESC);
Sleep(500);
PopUpOk(
"Look around and press $$GREEN$$<ESC>$$FG$$\n"
"to turn off filter.\n");
AFUntilChar(CH_SHIFT_ESC,CH_ESC);
Sleep(1000);
PopUpOk(
"You can combine filters to\n"
"effectively do AND searches.\n");
Sleep(1000);
'' CH_SHIFT_ESC;
"FF(\"/Kernel/M*;*.HPP*\");";
PopUpOk("Let's have two mask of\n"
"$$GREEN$$M*$$FG$$ plus $$GREEN$$*.HPP*$$FG$$\n\n"
"Press $$GREEN$$<ENTER>$$FG$$.");
AFGetStr("\n");
"FF(\"/Kernel/M*;*.HPP*;~Mem*\");";
PopUpOk("Let's unselect $$GREEN$$Mem*$$FG$$.\n\n"
"Press $$GREEN$$<ENTER>$$FG$$.");
AFGetStr("\n");
PopUpOk("There is no way to include\n"
"multiple base directories.\n");
Misc/Tour/Tour8.AUT
+26 -41
View File
@@ -1,54 +1,39 @@
PopUpOk("Press $$GREEN$$<ENTER>$$FG$$.");
"Ed(\"HI:Debugging\");";
AFPmtStr("\n");
PopUpOk(
"$$GREEN$$<SHIFT-ESC>$$FG$$ to abort.\n");
AFUntilChar(CH_SHIFT_ESC,CH_ESC);
"Ed(\"::/Misc/Bible.TXT.Z\");\n";
Sleep(1000);
PopUpOk(
"We will now use $LK,"Uf",A="MN:Uf"$() to\n"
"unassemble a function.\n"
"It takes the function name\n"
"as a string arg.\n\n"
"Press $$GREEN$$<ENTER>$$FG$$.");
"WinMax;WinBorder;\nUf(\"CAlloc\");";
AFPmtStr("\n");
"$$GREEN$$<CTRL-F>$$FG$$ to find.\n"
);
PopUpOk("Press $$GREEN$$<CURSOR-UP>$$FG$$ eight times..");
AFGetChar(CH_CTRLF);
AFPrint(150,"new song");
PopUpOk("Cursor down 8 times.\n");
I64 i;
for (i=0;i<8;i++)
AFGetKey(SC_CURSOR_UP);
AFGetKey(SC_CURSOR_DOWN);
PopUpOk(
"Press $$GREEN$$<SPACE BAR>$$FG$$.\n");
AFPmtStr(" ");
"Press '$$GREEN$$2$$FG$$' to show\n"
"all lines within 2 of a match.\n");
AFGetStr("2");
Sleep(1000);
PopUpOk("Press $$GREEN$$<ESC>$$FG$$.\n");
AFGetChar(CH_ESC);
Sleep(500);
PopUpOk(
"$$GREEN$$<SHIFT-ESC>$$FG$$ when finished.\n");
AFUntilChar(CH_SHIFT_ESC,CH_ESC);
//This puts the cursor at the bottom
Msg(MSG_KEY_DOWN,0,SC_CURSOR_DOWN|SCF_CTRL);
"AFView;\n";
PopUpOk(
"$$GREEN$$<SHIFT-ESC>$$FG$$ when finished.\n");
AFUntilChar(CH_SHIFT_ESC,CH_ESC);
"Look around and press $$GREEN$$<ESC>$$FG$$\n"
"to turn off filter.\n");
AFUntilChar(CH_ESC,CH_SHIFT_ESC);
Sleep(1000);
PopUpOk(
"We can unassemble a\n"
"numeric address with $LK,"U",A="MN:U"$().\n\n"
"Press $$GREEN$$<ENTER>$$FG$$.");
"U(&CAlloc);";
AFPmtStr("\n");
"You can combine filters to\n"
"effectively do AND searches.\n");
Sleep(1000);
"AFView;\n";
PopUpOk(
"$$GREEN$$<SHIFT-ESC>$$FG$$ when finished.\n");
AFUntilChar(CH_SHIFT_ESC,CH_ESC);
PopUpOk("The opcodes are slightly nonstandard.");
"Ed(\"::/Compiler/OpCodes.TXT.Z\");\n";
PopUpOk(
"$$GREEN$$<SHIFT-ESC>$$FG$$ to abort.\n");
AFUntilChar(CH_SHIFT_ESC,CH_ESC);
'' CH_SHIFT_ESC;
Misc/Tour/Tour9.AUT
+40 -19
View File
@@ -1,30 +1,51 @@
PopUpOk(
"All text widgets work everywhere.\n"
"The $$GREEN$$Type()$$FG$$ command is like\n"
"the DOS command of the same name\n"
"or the UNIX, $$GREEN$$cat$$FG$$ command.\n"
"We will now send your menu document\n"
"to the command line. They use the same\n"
"document format and it is active!!.\n");
PopUpOk("Press $$GREEN$$<ENTER>$$FG$$.");
"Ed(\"HI:Debugging\");";
AFGetStr("\n");
PopUpOk(
"$$GREEN$$<SHIFT-ESC>$$FG$$ to abort.\n");
AFUntilChar(CH_ESC,CH_SHIFT_ESC);
//This puts the cursor at the bottom
Msg(MSG_KEY_DOWN,0,SC_CURSOR_DOWN|SCF_CTRL);
"\n";
PopUpOk(
"We will now use $LK,"Uf",A="MN:Uf"$() to\n"
"unassemble a function.\n"
"It takes the function name\n"
"as a string arg.\n\n"
"Press $$GREEN$$<ENTER>$$FG$$.");
"WinMax;WinBorder;\nUf(\"CAlloc\");";
AFGetStr("\n");
"Type(\"HOME/PersonalMenu.TXT\");";
AFPmtStr("\n");
PopUpOk("Press $$GREEN$$<CURSOR-UP>$$FG$$ eight times..");
I64 i;
for (i=0;i<8;i++)
AFGetKey(SC_CURSOR_UP);
Sleep(1500);
AFPrint(250,"Dir;\nAFView;\n");
PopUpOk(
"Press $$GREEN$$<SPACE>$$FG$$.\n");
AFGetStr(" ");
PopUpOk(
"$$GREEN$$<SHIFT-ESC>$$FG$$ when finished.\n");
AFUntilChar(CH_SHIFT_ESC,CH_ESC);
AFUntilChar(CH_ESC,CH_SHIFT_ESC);
//Puts the cursor at the bottom.
Msg(MSG_KEY_DOWN,0,SC_CURSOR_DOWN|SCF_CTRL);
PopUpOk(
"$$GREEN$$Type()$$FG$$ can also be used on\n"
"$$GREEN$$.BMP$$FG$$ or $$GREEN$$.GRA$$FG$$ files!");
"We can unassemble a\n"
"numeric address with $LK,"U",A="MN:U"$().\n\n"
"Press $$GREEN$$<ENTER>$$FG$$.");
"U(&CAlloc);";
AFGetStr("\n");
Sleep(1000);
PopUpOk("The opcodes are slightly nonstandard.");
"Ed(\"::/Compiler/OpCodes.TXT.Z\");\n";
Msg(MSG_KEY_DOWN,CH_CTRLF,0x42100000421);
"MOV";
Msg(MSG_KEY_DOWN,CH_ESC,0x100000001);
PopUpOk(
"$$GREEN$$<SHIFT-ESC>$$FG$$ to abort.\n");
AFUntilChar(CH_ESC,CH_SHIFT_ESC);
Misc/Tour/TourA.AUT
+21 -6
View File
@@ -1,10 +1,25 @@
PopUpOk(
"We will now run a test-suite\n"
"that automatically executes\n"
"most TempleOS demos. It takes\n"
"a few minutes, so kick-back.\n");
"All text widgets work everywhere.\n"
"The $$GREEN$$Type()$$FG$$ command is like\n"
"the DOS command of the same name\n"
"or the UNIX, $$GREEN$$cat$$FG$$ command.\n"
"We will now send your menu document\n"
"to the command line. They use the same\n"
"document format and it is active!!.\n");
PopUpOk("Press $$GREEN$$<ENTER>$$FG$$.");
"#include \"::/Misc/OSTestSuite\";";
AFPmtStr("\n");
//Puts the cursor at the bottom.
Msg(MSG_KEY_DOWN,0,SC_CURSOR_DOWN|SCF_CTRL);
"\n";
"Type(\"HOME/PersonalMenu.TXT\");";
AFGetStr("\n");
Sleep(1500);
AFPrint(250,"Dir;\n");
Sleep(1500);
PopUpOk(
"$$GREEN$$Type()$$FG$$ can also be used on\n"
"$$GREEN$$.BMP$$FG$$ or $$GREEN$$.GRA$$FG$$ files!");
Misc/Tour/TourB.AUT
+10
View File
@@ -0,0 +1,10 @@
PopUpOk(
"We will now run a test-suite\n"
"that automatically executes\n"
"most TempleOS demos. It takes\n"
"a few minutes, so kick-back.\n");
PopUpOk("Press $$GREEN$$<ENTER>$$FG$$.");
"#include \"::/Misc/OSTestSuite\";";
AFGetStr("\n");