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

TempleOSCDV4.12.ISO

Browse Source
This commit is contained in:
Terry A. Davis authored and minexew committed 2018-09-08 21:47:56 +02:00
1 parent 93ca216483
commit b84bbff6db
381 files changed
+18356 -18798
Download Patch File Download Diff File Expand all files Collapse all files

No files matched your search

Misc/DoDistro.HC
+5 -5
View File
@@ -14,7 +14,7 @@ U0 MakeMyISO(U8 *_out_iso_filename)
Del(out_iso_filename);
MkDir("/Distro");
Auto(STD_DISTRO_DVD_CFG);
In(STD_DISTRO_DVD_CFG);
BootDVDIns;
Copy("/*","/Distro");
@@ -31,10 +31,10 @@ U0 MakeMyISO(U8 *_out_iso_filename)
CopyTree("/Misc", "/Distro/Misc");
//To save space, optionally delete dictionary.
//Del("/Distro/Adam/AutoComplete/ACDefs.DAT");
//Del("/Distro/Adam/AutoComplete/ACDefs.DATA");
CopyTree("/Linux","/Distro/Linux"); //You can leave this out.
MkDir("/Distro/Temp");
MkDir("/Distro/Temp/ScreenShots");
MkDir("/Distro/Tmp");
MkDir("/Distro/Tmp/ScrnShots");
ISO9660ISO(out_iso_filename,"/Distro/*",,"/Distro" BOOT_DIR_KERNEL_BIN_C);
//If you want $LK,"RedSea",A="FI:::/Doc/RedSea.DD"$ filesystem, use this instead but make it ISO.C.
@@ -47,6 +47,6 @@ U0 MakeMyISO(U8 *_out_iso_filename)
Free(out_iso_filename);
}
MakeMyISO("/Temp/MyDistro.ISO");
MakeMyISO("/Tmp/MyDistro.ISO");
// Study my account examples $LK,"Cfg Strs",A="FL:::/Demo/AcctExample/TOSCfg.HC,1"$, $LK,"Update Funs",A="FL:::/Demo/AcctExample/TOSDistro.HC,1"$.
Misc/OSInstall.HC
+7 -7
View File
@@ -2,8 +2,8 @@ U0 InstallDrv(U8 drv_let)
{
U8 *st;
ExePrint("CopyTree(\"::/\",\"%C:/\");",drv_let);
ExePrint("MkDir(\"%C:/Temp\");",drv_let);
ExePrint("MkDir(\"%C:/Temp/ScreenShots\");",drv_let);
ExePrint("MkDir(\"%C:/Tmp\");",drv_let);
ExePrint("MkDir(\"%C:/Tmp/ScrnShots\");",drv_let);
ExePrint("MkDir(\"%C:/Home\");",drv_let);
st=MStrPrint("%C:/Home/DoDistro.HC.Z",drv_let);
@@ -73,7 +73,7 @@ U0 RegularInstallWiz()
{
I64 unit,drv_let;
U8 *st,*base0,*base1;
CATARep *head=NULL,*tempha;
CATARep *head=NULL,*tmpha;
I64 ch,num_hints;
CTask *task;
@@ -101,11 +101,11 @@ U0 RegularInstallWiz()
Free(base0);
}
if (1<=Str2I64(base0)<=num_hints) {
tempha=ATARepFind(&head,Str2I64(base0));
tmpha=ATARepFind(&head,Str2I64(base0));
Free(base0);
base0=MStrPrint("0x%X",tempha->base0);
base1=MStrPrint("0x%X",tempha->base1);
st =MStrPrint("0x%X",tempha->unit);
base0=MStrPrint("0x%X",tmpha->base0);
base1=MStrPrint("0x%X",tmpha->base1);
st =MStrPrint("0x%X",tmpha->unit);
unit=Str2I64(st);
Free(st);
} else {
Misc/OSTestSuite.HC
+503 -532
View File
File diff suppressed because it is too large. Load diff
Misc/Tour/Tour.AUT → Misc/Tour/Tour.IN
+4 -4
View File
@@ -20,7 +20,7 @@ U0 TourPutTask()
DocCursor(FALSE,doc);
"$$WW+H,1$$";
while (TRUE) {
WinMgrSync;
Refresh;
if (ScanMsg(&ch,,1<<MSG_KEY_DOWN) && (ch==CH_ESC||ch==CH_SHIFT_ESC)) {
Kill(tour_task->parent_task,FALSE);
break;
@@ -61,7 +61,7 @@ U0 TourPut(U8 *st,Bool wait_okay=FALSE)
DocFormBwd(doc);
old_focus_task=sys_focus_task;
tour_okay_pressed=FALSE;
do WinMgrSync;
do Refresh;
while (!tour_okay_pressed);
WinFocus(old_focus_task);
DocClear(doc);
@@ -111,7 +111,7 @@ U0 TourMenu()
if (i>0) {
if (!LBts(&tour_put->display_flags,DISPLAYf_SHOW))
WinZBufUpdate;
StrPrint(buf,"Tour%X.AUT",i);
StrPrint(buf,"Tour%X.IN",i);
ExeFile(buf);
} else
break;
@@ -120,7 +120,7 @@ U0 TourMenu()
}
"DocClear;WinMax;\n";
WinMgrSync(2);
Refresh(2);
TourMenu;
Msg(MSG_KEY_DOWN,0,SC_CURSOR_DOWN|SCF_CTRL);
"Cd;Dir;\n";
Misc/Tour/Tour1.AUT → Misc/Tour/Tour1.IN
+2 -2
View File
@@ -8,11 +8,11 @@ TourPut("Press $$GREEN$$<F1>$$FG$$ for the main help index.\n"
"the editor and at the command line.\n"
"\n"
"You can find the $LK+PU,"Demo Index",A="FI:::/Doc/DemoIndex.DD"$ on the help index.\n");
AFGetKey(SC_F1);
InGetKey(SC_F1);
TourPut(
"Press $$GREEN$$<SHIFT-ESC>$$FG$$ to abort and exit.\n");
AFGetChar(CH_SHIFT_ESC);
InGetChar(CH_SHIFT_ESC);
U0 RevealPopUpHelp(I64 scf)
{
Misc/Tour/Tour2.AUT → Misc/Tour/Tour2.IN
+6 -6
View File
@@ -10,14 +10,14 @@ TourPut(
"\n"
"Type \"$$GREEN$$Dir;$$FG$$\" and press $$GREEN$$<ENTER>$$FG$$.\n\n"
"You must remember the semicolon.\n");
AFGetStr("Dir;\n");
InGetStr("Dir;\n");
TourPut(
"Press $$GREEN$$<CTRL-m>$$FG$$.\n\n"
"This will access your PersonalMenu. You can customize it. "
"It's like your START menu and desktop.\n");
AFGetChar(CH_CTRLM);
InGetChar(CH_CTRLM);
TourPut(
"You can also get to your PersonalMenu by clicking on the word "
"\"$$GREEN$$MENU$$FG$$\" in the title bar.\n",TRUE);
@@ -29,7 +29,7 @@ Msg(MSG_KEY_DOWN,0,SC_CURSOR_UP|SCF_CTRL);
I64 i;
for (i=0;i<9;i++)
AFGetKey(SC_CURSOR_DOWN);
InGetKey(SC_CURSOR_DOWN);
TourPut(
"Keyboard commands are:\n\n"
@@ -42,7 +42,7 @@ TourPut(
"The cursor is now on top of a macro we wish to run.\n"
"\n"
"Press $$GREEN$$<SPACE>$$FG$$.\n");
AFGetStr(" ");
InGetStr(" ");
TourPut(
"The macro changed directories and did a $$GREEN$$Dir;$$FG$$ command. "
@@ -56,13 +56,13 @@ TourPut(
TourPut(
"Press $$GREEN$$<CTRL-t>$$FG$$ to toggle to plain text mode.\n\n"
"These are \"DolDoc\" commands.");
AFGetChar(CH_CTRLT);
InGetChar(CH_CTRLT);
TourPut(
"The DolDoc widgets are bracketed with dollar sign characters.\n\n"
"\"LK\" stands \"link\".\n"
"\"MA\" stands for \"macro\".\n\n"
"Now, $$GREEN$$<CTRL-t>$$FG$$ to toggle back to regular mode.\n");
AFGetChar(CH_CTRLT);
InGetChar(CH_CTRLT);
Msg(MSG_KEY_DOWN,0,SC_CURSOR_DOWN|SCF_CTRL);
Misc/Tour/Tour3.AUT → Misc/Tour/Tour3.IN
+14 -14
View File
@@ -12,8 +12,8 @@ TourPut(
"and the boot drive is specified with \"$$GREEN$$::$$FG$$\".\n\n"
"$$GREEN$$<ENTER>$$FG$$ to complete the command.\n");
AFPrint(25,"Cd(\"::/Demo/Games\");Dir;");
AFGetStr("\n");
InPrint(25,"Cd(\"::/Demo/Games\");Dir;");
InGetStr("\n");
TourPut(
"Now, we're going to edit a file. Normally, "
@@ -22,8 +22,8 @@ TourPut(
"type it on the command line.\n\n"
"$$GREEN$$<ENTER>$$FG$$ to complete the command.\n");
AFPrint(25,"Ed(\"CastleFrankenstein.HC.Z\");");
AFGetStr("\n");
InPrint(25,"Ed(\"CastleFrankenstein.HC.Z\");");
InGetStr("\n");
Msg(MSG_KEY_DOWN_UP,0,SC_CURSOR_UP|SCF_CTRL);
Sleep(1000);
@@ -40,29 +40,29 @@ TourPut(
TourPut("Press $$GREEN$$<SHIFT-ESC>$$FG$$ to abort the editor.\n");
AFGetChar(CH_ESC,CH_SHIFT_ESC);
InGetChar(CH_ESC,CH_SHIFT_ESC);
TourPut(
"Now, run the CastleFrankenstein.HC.Z program. Press $$GREEN$$<ENTER>$$FG$$.\n");
AFPrint(25,"#include \"CastleFrankenstein\";");
AFGetStr("\n");
InPrint(25,"#include \"CastleFrankenstein\";");
InGetStr("\n");
TourPut(
"Move around with cursor keys and press $$GREEN$$<SHIFT-ESC>$$FG$$ when you "
"are done.\n");
AFUntilChar(CH_ESC,CH_SHIFT_ESC);
InUntilChar(CH_ESC,CH_SHIFT_ESC);
TourPut(
"The program is still in memory and we can start it again by typing "
"\"$$GREEN$$CastleFrankenstein;$$FG$$\".\n\n"
"Press $$GREEN$$<ENTER>$$FG$$ at the command line to run it again.\n");
AFPrint(25,"CastleFrankenstein;");
AFGetStr("\n");
InPrint(25,"CastleFrankenstein;");
InGetStr("\n");
TourPut(
"Move around with cursor keys and press $$GREEN$$<SHIFT-ESC>$$FG$$ when you "
"are done.\n");
AFUntilChar(CH_ESC,CH_SHIFT_ESC);
InUntilChar(CH_ESC,CH_SHIFT_ESC);
TourPut(
"$$GREEN$$<CTRL-ALT-a>$$FG$$\tExtended ASCII.\n"
@@ -72,11 +72,11 @@ TourPut(
"$$GREEN$$<CTRL-ALT-t>$$FG$$\tTerminal window.\n"
"$$GREEN$$<CTRL-ALT-x>$$FG$$\tKill task (window).\n",TRUE);
AFPrint(50,"Ed(\"CastleFrankenstein.HC.Z\");\n");
InPrint(50,"Ed(\"CastleFrankenstein.HC.Z\");\n");
TourPut("Press $$GREEN$$<F5>$$FG$$ in the editor to run the file being edited.\n");
AFGetKey(SC_F5);
InGetKey(SC_F5);
Sleep(1000);
CTask *task=sys_focus_task;
@@ -88,7 +88,7 @@ DeathWait(&task);
TourPut("Press $$GREEN$$<SHIFT-ESC>$$FG$$ to abort the editor.\n");
AFUntilChar(CH_ESC,CH_SHIFT_ESC);
InUntilChar(CH_ESC,CH_SHIFT_ESC);
TourPut(
"Explore the $$RED$$$TX+L+PU+UL,"DemoIndex",A="FI:::/Doc/DemoIndex.DD"$$$FG$$. "
Misc/Tour/Tour4.AUT → Misc/Tour/Tour4.IN
+18 -18
View File
@@ -6,13 +6,13 @@ TourPut(
"Now, we're going to add the CastleFrankenstein.HC.Z program "
"to your PersonalMenu.\n\n"
"Press $$GREEN$$<CTRL-m>$$FG$$ to get to your PersonalMenu.\n");
AFGetChar(CH_CTRLM);
InGetChar(CH_CTRLM);
Msg(MSG_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");
AFGetChar(CH_CTRLL);
InGetChar(CH_CTRLL);
Sleep(500);
WinToTop;//Kludge
@@ -20,35 +20,35 @@ WinToTop;//Kludge
TourPut("$$GREEN$$<CURSOR-DOWN>$$FG$$ until you reach \"Macro\".\n");
I64 i;
for (i=0;i<6;i++)
AFGetKey(SC_CURSOR_DOWN);
InGetKey(SC_CURSOR_DOWN);
TourPut("Press $$GREEN$$<SPACE>$$FG$$.\n");
AFGetStr(" ");
InGetStr(" ");
TourPut(
"Now, we'll fill-in the visible tag of the macro. Then, "
"we'll fill-in the macro text.\n",TRUE);
AFPrint(,"Click Here");
InPrint(,"Click Here");
Msg(MSG_KEY_DOWN,0,SC_CURSOR_DOWN);
AFPrint(,"Cd(\"::/Demo/Games\");;#include \"CastleFrankenstein\";\\n");
InPrint(,"Cd(\"::/Demo/Games\");;#include \"CastleFrankenstein\";\\n");
TourPut("Press $$GREEN$$<ESC>$$FG$$ to exit the form.\n");
AFGetChar(CH_ESC);
InGetChar(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");
AFGetKey(SC_ENTER|SCF_CTRL|SCF_SHIFT);
InGetKey(SC_ENTER|SCF_CTRL|SCF_SHIFT);
Msg(MSG_KEY_DOWN,0,SC_CURSOR_UP|SCF_CTRL);
TourPut("Press $$GREEN$$<SPACE>$$FG$$ to test it.\n");
AFGetStr(" ");
InGetStr(" ");
TourPut(
"Move around with cursor keys and press $$GREEN$$<SHIFT-ESC>$$FG$$ when you "
"are done.\n");
AFUntilChar(CH_ESC,CH_SHIFT_ESC);
InUntilChar(CH_ESC,CH_SHIFT_ESC);
TourPut(
"Now, we'll do a fancier macro that pops-up a new window which dies when "
@@ -58,29 +58,29 @@ Msg(MSG_KEY_DOWN,0,SC_CURSOR_UP|SCF_CTRL);
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");
InPrint(," Click here for Pop-up version");
Msg(MSG_KEY_DOWN,0,SC_CURSOR_DOWN);
AFPrint(,"Cd(\"::/Demo/Games\");;#include \"CastleFrankenstein\";\\n");
InPrint(,"Cd(\"::/Demo/Games\");;#include \"CastleFrankenstein\";\\n");
Msg(MSG_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++)
AFGetKey(SC_CURSOR_DOWN);
InGetKey(SC_CURSOR_DOWN);
TourPut(
"Press $$GREEN$$<SPACE>$$FG$$ to check the box.\n");
AFGetStr(" ");
InGetStr(" ");
TourPut("Press $$GREEN$$<ESC>$$FG$$ to exit the form.\n");
AFGetChar(CH_ESC);
InGetChar(CH_ESC);
TourPut("Press $$GREEN$$<CTRL-SHIFT-ENTER>$$FG$$ to insert a line feed.\n");
AFGetKey(SC_ENTER|SCF_CTRL|SCF_SHIFT);
InGetKey(SC_ENTER|SCF_CTRL|SCF_SHIFT);
Msg(MSG_KEY_DOWN,0,SC_CURSOR_UP|SCF_CTRL);
TourPut(
"Press $$GREEN$$<SPACE>$$FG$$ to test it.\n");
AFGetStr(" ");
InGetStr(" ");
Sleep(500);
WinToTop;//Kludge
@@ -88,7 +88,7 @@ WinToTop;//Kludge
TourPut(
"Move around with cursor keys and press $$GREEN$$<SHIFT-ESC>$$FG$$ when you "
"are done.\n");
AFUntilChar(CH_ESC,CH_SHIFT_ESC);
InUntilChar(CH_ESC,CH_SHIFT_ESC);
TourPut(
"$$GREEN$$<CTRL-S>$$FG$$ to save your PersonalMenu file, if you wish. "
Misc/Tour/Tour5.AUT → Misc/Tour/Tour5.IN
+4 -4
View File
@@ -2,7 +2,7 @@
//Puts the cursor at the bottom.
Msg(MSG_KEY_DOWN,0,SC_CURSOR_DOWN|SCF_CTRL);
"\nEd(\"::/Misc/Tour/Tour5.AUT.Z\");\n";
"\nEd(\"::/Misc/Tour/Tour5.IN.Z\");\n";
Msg(MSG_KEY_DOWN,0,SC_CURSOR_UP|SCF_CTRL);
Msg(MSG_KEY_DOWN,0,SC_CURSOR_DOWN);
"//";
@@ -23,12 +23,12 @@ Sleep(1500);
TourPut(
"Press $$GREEN$$<F4>$$FG$$ for the file chooser. Then, "
"pick a file and press $$GREEN$$<ESC>$$FG$$.");
AFGetKey(SC_F4);
InGetKey(SC_F4);
Sleep(5000);
TourPut("Press $$GREEN$$<ESC>$$FG$$ to exit the form.\n");
AFGetChar(CH_ESC);
InGetChar(CH_ESC);
TourPut("Press $$GREEN$$<SHIFT-ESC>$$FG$$ to abort.\n");
AFGetChar(CH_SHIFT_ESC);
InGetChar(CH_SHIFT_ESC);
TourPut("Use $$GREEN$$<SHIFT F4>$$FG$$ to pick directories.\n",TRUE);
Misc/Tour/Tour6.AUT → Misc/Tour/Tour6.IN
+5 -5
View File
@@ -20,15 +20,15 @@ TourPut(
"window. Notice it is underlined. This means a source code link is "
"available.\n\n"
"Press $$GREEN$$<CTRL-SHIFT-F1>$$FG$$ to jump to source code.\n");
AFGetKey(SC_F1|SCF_CTRL|SCF_SHIFT);
InGetKey(SC_F1|SCF_CTRL|SCF_SHIFT);
Sleep(500);
WinToTop;//Kludge
TourPut("Press $$GREEN$$<SHIFT-ESC>$$FG$$ to abort the source code.\n");
AFUntilChar(CH_ESC,CH_SHIFT_ESC);
InUntilChar(CH_ESC,CH_SHIFT_ESC);
TourPut("Press $$GREEN$$<CTRL-F1>$$FG$$ to autocomplete.\n");
AFGetKey(SC_F1|SCF_CTRL);
InGetKey(SC_F1|SCF_CTRL);
Sleep(500);
Msg(MSG_KEY_DOWN,'\n',SCF_CTRL|SCF_SHIFT);
@@ -42,9 +42,9 @@ TourPut(
"You can also use the $$GREEN$$Man()$$FG$$ function to jump to source code. "
"(I use AutoComplete.) The $$GREEN$$Man()$$FG$$ is good for short symbol "
"names or when inside the debugger.\n",TRUE);
AFPrint(,"Man(\"U\");");
InPrint(,"Man(\"U\");");
Sleep(1500);
"\n";
TourPut("Press $$GREEN$$<SHIFT-ESC>$$FG$$ to abort the source code.\n");
AFUntilChar(CH_ESC,CH_SHIFT_ESC);
InUntilChar(CH_ESC,CH_SHIFT_ESC);
Misc/Tour/Tour7.AUT → Misc/Tour/Tour7.IN
+5 -5
View File
@@ -10,7 +10,7 @@ Msg(MSG_KEY_DOWN,0,SC_CURSOR_DOWN|SCF_CTRL);
"\n";
"F(\"RED\");";
AFGetStr("\n");
InGetStr("\n");
Sleep(2000);
TourPut("Notice the number of matches.\n",TRUE);
@@ -26,7 +26,7 @@ Msg(MSG_KEY_DOWN,0,SC_CURSOR_DOWN|SCF_CTRL);
"\n";
"F(\"RED\",\"+l\");";
AFGetStr("\n");
InGetStr("\n");
Sleep(2000);
TourPut("Notice the number of matches.\n",TRUE);
@@ -42,7 +42,7 @@ Msg(MSG_KEY_DOWN,0,SC_CURSOR_DOWN|SCF_CTRL);
"\n";
"F(\"RED\",\"+l-i\");";
AFGetStr("\n");
InGetStr("\n");
Sleep(2000);
TourPut("Notice the number of matches.\n",TRUE);
@@ -59,10 +59,10 @@ Msg(MSG_KEY_DOWN,0,SC_CURSOR_DOWN|SCF_CTRL);
"\n";
"Ed(\"~/HomeWrappers.HC.Z\");";
AFGetStr("\n");
InGetStr("\n");
TourPut("Press $$GREEN$$<SHIFT-ESC>$$FG$$ to abort the source code.\n");
AFUntilChar(CH_ESC,CH_SHIFT_ESC);
InUntilChar(CH_ESC,CH_SHIFT_ESC);
TourPut(
"$$GREEN$$+lb$$FG$$ is whole label just before.\n"
Misc/Tour/Tour8.AUT → Misc/Tour/Tour8.IN
+4 -4
View File
@@ -3,23 +3,23 @@ TourPut(
"Let's list files in the $$GREEN$$/Kernel$$FG$$ and sub directories.\n\n"
"TempleOS masks have one base directory and multiple filename masks.\n\n"
"Press $$GREEN$$<ENTER>$$FG$$.\n");
AFGetStr("\n");
InGetStr("\n");
"FF(\"/Kernel/*\",\"-r\");";
TourPut(
"The recurse $$GREEN$$+r$$FG$$ flag is usually set. Let's turn it off.\n\n"
"Press $$GREEN$$<ENTER>$$FG$$.\n");
AFGetStr("\n");
InGetStr("\n");
"FF(\"/Kernel/St*;*.HH*\");";
TourPut(
"Let's have two mask of $$GREEN$$St*$$FG$$ plus $$GREEN$$*.HH*$$FG$$\n\n"
"Press $$GREEN$$<ENTER>$$FG$$.\n");
AFGetStr("\n");
InGetStr("\n");
"FF(\"/Kernel/St*;*.HH*;!*Print*\");";
TourPut(
"Let's unsel $$GREEN$$*Print*$$FG$$.\n\n"
"Press $$GREEN$$<ENTER>$$FG$$.\n");
AFGetStr("\n");
InGetStr("\n");
TourPut("There is no way to include multiple base directories.\n",TRUE);
Misc/Tour/Tour9.AUT → Misc/Tour/Tour9.IN
+6 -6
View File
@@ -1,22 +1,22 @@
"Ed(\"::/Misc/Bible.TXT.Z\");\n";
TourPut("Press $$GREEN$$<CTRL-F>$$FG$$ to find.\n");
AFGetChar(CH_CTRLF);
InGetChar(CH_CTRLF);
AFPrint(150,"new song");
InPrint(150,"new song");
TourPut("Cursor down 8 times.\n");
I64 i;
for (i=0;i<8;i++)
AFGetKey(SC_CURSOR_DOWN);
InGetKey(SC_CURSOR_DOWN);
TourPut("Press '$$GREEN$$2$$FG$$' to show all lines within 2 of a match.\n");
AFGetStr("2");
InGetStr("2");
TourPut("Press $$GREEN$$<ESC>$$FG$$ to exit the form.\n");
AFGetChar(CH_ESC);
InGetChar(CH_ESC);
TourPut("Look around and press $$GREEN$$<ESC>$$FG$$ to turn off filter.\n");
AFUntilChar(CH_ESC,CH_SHIFT_ESC);
InUntilChar(CH_ESC,CH_SHIFT_ESC);
TourPut("You can combine filters to effectively do AND searches.\n",TRUE);
Misc/Tour/TourA.AUT → Misc/Tour/TourA.IN
+8 -8
View File
@@ -1,27 +1,27 @@
TourPut("Press $$GREEN$$<ENTER>$$FG$$.");
"Ed(\"HI:Debugging\");";
AFGetStr("\n");
InGetStr("\n");
TourPut("Press $$GREEN$$<SHIFT-ESC>$$FG$$ to abort.\n");
AFUntilChar(CH_ESC,CH_SHIFT_ESC);
InUntilChar(CH_ESC,CH_SHIFT_ESC);
TourPut(
"We will now use $$RED$$$$TX+L+PU+UL,\"Uf\",A=\"MN:Uf\"$$$$FG$$() to "
"unassemble a function. It takes the function name as a string arg.\n\n"
"Press $$GREEN$$<ENTER>$$FG$$.\n");
"WinBorder;WinMax;\nUf(\"CAlloc\");";
AFGetStr("\n");
InGetStr("\n");
TourPut("Press $$GREEN$$<CURSOR-UP>$$FG$$ eight times..");
I64 i;
for (i=0;i<8;i++)
AFGetKey(SC_CURSOR_UP);
InGetKey(SC_CURSOR_UP);
TourPut(
"Press $$GREEN$$<SPACE>$$FG$$.\n");
AFGetStr(" ");
InGetStr(" ");
TourPut("Press $$GREEN$$<SHIFT-ESC>$$FG$$ when finished.\n");
AFUntilChar(CH_ESC,CH_SHIFT_ESC);
InUntilChar(CH_ESC,CH_SHIFT_ESC);
//Puts the cursor at the bottom.
Msg(MSG_KEY_DOWN,0,SC_CURSOR_DOWN|SCF_CTRL);
@@ -31,7 +31,7 @@ TourPut(
"$$RED$$$$TX+L+PU+UL,\"U\",A=\"MN:U\"$$$$FG$$().\n\n"
"Press $$GREEN$$<ENTER>$$FG$$.\n");
"U(&CAlloc);";
AFGetStr("\n");
InGetStr("\n");
TourPut("The opcodes are slightly nonstandard.\n",TRUE);
"Ed(\"::/Compiler/OpCodes.DD.Z\");\n";
@@ -41,4 +41,4 @@ Msg(MSG_KEY_DOWN,CH_CTRLF,0x42100000421);
Msg(MSG_KEY_DOWN,CH_ESC,0x100000001);
TourPut("Press $$GREEN$$<SHIFT-ESC>$$FG$$ to abort.\n");
AFUntilChar(CH_ESC,CH_SHIFT_ESC);
InUntilChar(CH_ESC,CH_SHIFT_ESC);
Misc/Tour/TourB.AUT → Misc/Tour/TourB.IN
+3 -3
View File
@@ -10,12 +10,12 @@ Msg(MSG_KEY_DOWN,0,SC_CURSOR_DOWN|SCF_CTRL);
"\n";
"Type(\"~/PersonalMenu.DD\");";
AFGetStr("\n");
InGetStr("\n");
Sleep(1500);
AFPrint(250,"Dir;\n");
InPrint(250,"Dir;\n");
Sleep(1500);
TourPut(
"$$GREEN$$Type()$$FG$$ can also be used on $$GREEN$$.BMP$$FG$$ or $$GREEN$$.GRA$$FG$$ "
"$$GREEN$$Type()$$FG$$ can also be used on $$GREEN$$.BMP$$FG$$ or $$GREEN$$.GR$$FG$$ "
"files!",TRUE);
Misc/Tour/TourC.AUT → Misc/Tour/TourC.IN
+1 -1
View File
@@ -4,7 +4,7 @@ TourPut(
"Press $$GREEN$$<ENTER>$$FG$$.\n");
"#include \"::/Misc/OSTestSuite\";";
AFGetStr("\n");
InGetStr("\n");
if (LBtr(&tour_put->display_flags,DISPLAYf_SHOW))
WinZBufUpdate;