TempleOSTS_130315.ISO
This commit is contained in:
Terry A. Davis authored and minexew committed
1 parent
e57428affb
commit
17b71f1a2d
958 files changed
+26043
-15907
No files matched your search
@@ -0,0 +1,39 @@
|
||||
public I64 PopUpTourPart()
|
||||
{
|
||||
I64 i;
|
||||
CDoc *doc=DocNew;
|
||||
DocPutS(doc,"$$FG,PURPLE$$TempleOS Tours$$FG$$\n\n"
|
||||
"$$CM+LX,4,4$$$$BT,\"Part 1: The basics\",1$$"
|
||||
"$$CM+LX,4,4$$$$BT,\"Part 2: Editing and running programs\",2$$"
|
||||
"$$CM+LX,4,4$$$$BT,\"Part 3: Adding macros to your personal menu\",3$$"
|
||||
"$$CM+LX,4,4$$$$BT,\"Part 4: Choose filename, choose dir\",4$$"
|
||||
"$$CM+LX,4,4$$$$BT,\"Part 5: WordStat\",5$$"
|
||||
"$$CM+LX,4,4$$$$BT,\"Part 6: Search (Grep)\",6$$"
|
||||
"$$CM+LX,4,4$$$$BT,\"Part 7: Editor filter\",7$$"
|
||||
"$$CM+LX,4,4$$$$BT,\"Part 8: Debugging\",8$$"
|
||||
"$$CM+LX,4,4$$$$BT,\"Part 9: Wow!!\",9$$"
|
||||
"$$CM+LX,4,4$$$$BT,\"Part 10: Test Suite\",10$$"
|
||||
"$$CM+LX,4,4$$$$BT,\"Done\",DOCM_CANCEL$$\n");
|
||||
doc->flags|=DOCF_FORM;
|
||||
i=ServantUser("WinMax;DocMenuDo(0x%X,0);",doc);
|
||||
DocDel(doc);
|
||||
return i;
|
||||
}
|
||||
|
||||
U0 TourMenu()
|
||||
{
|
||||
U8 buf[128];
|
||||
I64 i;
|
||||
while (TRUE) {
|
||||
i=PopUpTourPart;
|
||||
if (i>=1) {
|
||||
SPrintF(buf,"::/TempleOS/Misc/Tour/Tour%X.AUT",i);
|
||||
ExeFile(buf);
|
||||
} else
|
||||
break;
|
||||
}
|
||||
}
|
||||
|
||||
"DocClear;WinMax;\n";
|
||||
TourMenu;
|
||||
"Cd(\"HOME\");\n";
|
||||
@@ -0,0 +1,108 @@
|
||||
//This puts the cursor at the bottom
|
||||
Msg(MSG_KEY_DOWN,0,SC_CURSOR_DOWN|SCF_CTRL);
|
||||
"\n";
|
||||
|
||||
PopUpOk(
|
||||
"After clicking $$FG,GREEN$$[OKAY]$$FG$$, you will be at the\n"
|
||||
"command line.\n"
|
||||
"\n"
|
||||
"The syntax is like $$FG,GREEN$$C/C++$$FG$$ except you\n"
|
||||
"don't need $$FG,GREEN$$()$$FG$$ if there are no args.\n"
|
||||
"\n"
|
||||
"Type \"$$FG,GREEN$$Dir;$$FG$$\" and press $$FG,GREEN$$<ENTER>$$FG$$.\n\n"
|
||||
"You must remember the semicolon.\n"
|
||||
);
|
||||
|
||||
AFPmtStr("Dir;\n");
|
||||
Sleep(1000); //allow user time to see dir
|
||||
'\n';
|
||||
|
||||
PopUpOk(
|
||||
"After clicking $$FG,GREEN$$[OKAY]$$FG$$, you will be at the\n"
|
||||
"command line.\n\n"
|
||||
"Press $$FG,GREEN$$<CTRL-M>$$FG$$.\n\n"
|
||||
"This will access your personal menu.\n"
|
||||
"You can customize it. It's like your\n"
|
||||
"START menu.\n");
|
||||
|
||||
AFGetChar(CH_CTRLM);
|
||||
Sleep(1000);
|
||||
PopUpOk(
|
||||
"You can get to your personal menu\n"
|
||||
"by clicking on the word \"$$FG,GREEN$$MENU$$FG$$\" in the\n"
|
||||
"title bar.\n");
|
||||
|
||||
PopUpOk(
|
||||
"$$FG,LTPURPLE$$Keyboard$$FG$$\n"
|
||||
"$$UL,1$$$$FG,LTBLUE$$Blue Underlined Text are Macros$$FG$$$$UL,0$$\n"
|
||||
"\t$$FG,GREEN$$<SPACE BAR>$$FG$$\tExecute Macro\n"
|
||||
"$$UL,1$$$$FG,LTRED$$Red Underlined Text are Links$$FG$$$$UL,0$$\n"
|
||||
"\t$$FG,GREEN$$<SPACE BAR>$$FG$$\tEdit (view)\n"
|
||||
"\t$$FG,GREEN$$<ENTER>$$FG$$\t\tRight-click menu\n\n"
|
||||
"\t$$FG,GREEN$$<ESC>$$FG$$\t\tSave and exit\n"
|
||||
"\t$$FG,GREEN$$<SHIFT-ESC>$$FG$$\tAbort\n"
|
||||
"\n"
|
||||
"$$FG,LTPURPLE$$Mouse$$FG$$\n"
|
||||
"$$UL,1$$$$FG,LTBLUE$$Blue Underlined Text are Macros$$FG$$$$UL,0$$\n"
|
||||
"\t$$FG,GREEN$$Left-Click$$FG$$\tExecute Macro\n"
|
||||
"$$UL,1$$$$FG,LTRED$$Red Underlined Text are Links$$FG$$$$UL,0$$\n"
|
||||
"\t$$FG,GREEN$$Left-Click$$FG$$\tEdit (view)\n"
|
||||
"\t$$FG,GREEN$$Right-Click$$FG$$\tRight-click menu\n\n"
|
||||
"\t$$FG,GREEN$$Double-Left$$FG$$\tSave and exit\n"
|
||||
"\t$$FG,GREEN$$Double-Right$$FG$$\tAbort\n"
|
||||
"\n"
|
||||
);
|
||||
|
||||
PopUpOk(
|
||||
"After clicking $$FG,GREEN$$[OKAY]$$FG$$, you will be back at\n"
|
||||
"the personal menu.\n\n"
|
||||
"Press $$FG,GREEN$$<CURSOR-DOWN>$$FG$$ nine times.\n");
|
||||
|
||||
//This puts the cursor at the top
|
||||
Msg(MSG_KEY_DOWN,0,SC_CURSOR_UP|SCF_CTRL);
|
||||
|
||||
I64 i;
|
||||
for (i=0;i<9;i++)
|
||||
AFGetKey(SC_CURSOR_DOWN);
|
||||
|
||||
PopUpOk(
|
||||
"After clicking $$FG,GREEN$$[OKAY]$$FG$$, the cursor will be\n"
|
||||
"on top of a macro we wish to run.\n"
|
||||
"\n"
|
||||
"After clicking $$FG,GREEN$$[OKAY]$$FG$$, press $$FG,GREEN$$<SPACE BAR>$$FG$$.\n");
|
||||
AFPmtStr(" ");
|
||||
Sleep(1000);
|
||||
|
||||
PopUpOk(
|
||||
"The macro changed directories and did\n"
|
||||
"a $$FG,GREEN$$Dir;$$FG$$ command.\n\n"
|
||||
"The $$FG,RED$$RED$$FG$$ filenames listed are file\n"
|
||||
"links. Left-clicking will edit/view them.\n"
|
||||
"Right-clicking or pressing $$FG,GREEN$$<ENTER>$$FG$$\n"
|
||||
"when the cursor is on top will bring-up a\n"
|
||||
"menu of options.\n\n"
|
||||
"The $$FG,LTBLUE$$BLUE$$FG$$ underline entries \"$$FG,LTBLUE$$.$$FG$$\" and \"$$FG,LTBLUE$$..$$FG$$\"\n"
|
||||
"are macros and will change directories.\n");
|
||||
|
||||
PopUpOk(
|
||||
"As you can see, the command line is not\n"
|
||||
"different from the personal menu.\n"
|
||||
"Both use the same commands and have the same\n"
|
||||
"'widgets' available.\n\n"
|
||||
"Both utilize the same underlying document format.\n"
|
||||
"It is similar to $$FG,GREEN$$html$$FG$$ because it has ASCII\n"
|
||||
"behind it. TempleOS documents can include graphics.\n\n"
|
||||
"\"$$FG,GREEN$$<CTRL-T>$$FG$$\" after clicking $$FG,GREEN$$[OKAY]$$FG$$ to toggle\n"
|
||||
"to plain text mode.\n");
|
||||
AFGetChar(20);
|
||||
Sleep(1000);
|
||||
|
||||
PopUpOk(
|
||||
"The widgets are bracketed with dollar sign\n"
|
||||
"characters. \"LK\" stands \"link\" and \"MA\"\n"
|
||||
"stands for \"macro\".\n\n"
|
||||
"Now, \"$$FG,GREEN$$<CTRL-T>$$FG$$\" to toggle back to\n"
|
||||
"regular mode.\n");
|
||||
AFGetChar(20);
|
||||
Sleep(1000);
|
||||
|
||||
@@ -0,0 +1,123 @@
|
||||
//This puts the cursor at the bottom
|
||||
Msg(MSG_KEY_DOWN,0,SC_CURSOR_DOWN|SCF_CTRL);
|
||||
"\n";
|
||||
|
||||
PopUpOk(
|
||||
"Now, we're going to demonstrate how to work\n"
|
||||
"with programs. We'll change to the $$FG,GREEN$$/TempleOS/Demo/Snd$$FG$$ \n"
|
||||
"directory.\n\n"
|
||||
"Note, that directories are specified with\n"
|
||||
"a forward slash, not a backslash.\n"
|
||||
"Drives can be specified in a $$FG,GREEN$$Cd()$$FG$$ command\n"
|
||||
"and the boot drive is specified with \"$$FG,GREEN$$::$$FG$$\".\n\n"
|
||||
"$$FG,GREEN$$<ENTER>$$FG$$ to complete the command.\n");
|
||||
|
||||
AFDelayedPutS("Cd(\"::/TempleOS/Demo/Snd\");Dir;",25);
|
||||
AFPmtStr("\n");
|
||||
|
||||
PopUpOk(
|
||||
"Now, we're going to edit a file. Normally,\n"
|
||||
"you'll probably left-click on a directory\n"
|
||||
"listing to edit a file, but we're going to\n"
|
||||
"type it on the command line.\n\n"
|
||||
"$$FG,GREEN$$<ENTER>$$FG$$ to complete the command.\n");
|
||||
|
||||
AFDelayedPutS("Ed(\"ASCIIOrgan.CPP.Z\");",25);
|
||||
AFPmtStr("\n");
|
||||
|
||||
Sleep(1000);
|
||||
PopUpOk(
|
||||
"This program gets keys and plays frequencies.\n"
|
||||
"It quits when you press $$FG,GREEN$$<SHIFT-ESC>$$FG$$.\n\n"
|
||||
"There is no \"$$FG,GREEN$$main()$$FG$$\" function in TempleOS\n"
|
||||
"programs. Any program statements outside\n"
|
||||
"functions get executed when you $$FG,GREEN$$#include$$FG$$\n"
|
||||
"them at the command line.\n\n"
|
||||
"The \"$$FG,GREEN$$ASCIIOrgan;$$FG$$\" statement at the bottom\n"
|
||||
"will run the program when we $$FG,GREEN$$#include$$FG$$ it.\n");
|
||||
|
||||
PopUpOk(
|
||||
"The editor and most things exit when you press\n"
|
||||
"$$FG,GREEN$$<ESC>$$FG$$. $$FG,GREEN$$<SHIFT-ESC>$$FG$$ will abort (cancel) most things.\n\n"
|
||||
"The $$FG,GREEN$$<ESC>$$FG$$ key can be simulated with a left\n"
|
||||
"double-click, while the $$FG,GREEN$$<SHIFT-ESC>$$FG$$ key can be\n"
|
||||
"simulated with a right double-click. When\n"
|
||||
"you browse documentation, you'll left-click\n"
|
||||
"on links and right double-click to go back,\n"
|
||||
"unless you want to save changes to documents\n"
|
||||
"using left double-click.\n\n"
|
||||
"$$FG,GREEN$$<SHIFT-ESC>$$FG$$ to abort the editor.\n"
|
||||
);
|
||||
|
||||
AFGetChar(CH_SHIFT_ESC,CH_ESC);
|
||||
|
||||
PopUpOk(
|
||||
"Now, we'll run the ASCIIOrgan.CPP.Z program.\n"
|
||||
"$$FG,GREEN$$<ENTER>$$FG$$ at the command line to\n"
|
||||
"$$FG,GREEN$$#include$$FG$$ it. Then press keys to\n"
|
||||
"cause sounds and $$FG,GREEN$$<SHIFT-ESC>$$FG$$ when\n"
|
||||
"you are done.\n");
|
||||
|
||||
AFDelayedPutS("#include \"ASCIIOrgan\";",25);
|
||||
AFPmtStr("\n");
|
||||
AFUntilChar(CH_SHIFT_ESC,CH_ESC);
|
||||
|
||||
PopUpOk(
|
||||
"The program is still in memory and we\n"
|
||||
"can start it again by typing \"$$FG,GREEN$$ASCIIOrgan;$$FG$$\".\n\n"
|
||||
"$$FG,GREEN$$<ENTER>$$FG$$ at the command line to\n"
|
||||
"run it again.\n");
|
||||
|
||||
AFDelayedPutS("ASCIIOrgan;",25);
|
||||
AFPmtStr("\n");
|
||||
AFUntilChar(CH_SHIFT_ESC,CH_ESC);
|
||||
|
||||
|
||||
PopUpOk(
|
||||
"$$FG,GREEN$$<CTRL-ALT-A>$$FG$$\tExtended ASCII\n"
|
||||
"$$FG,GREEN$$<CTRL-ALT-C>$$FG$$\tBreak(interrupt) program\n"
|
||||
"$$FG,GREEN$$<CTRL-ALT-D>$$FG$$\tEnter debugger\n"
|
||||
"$$FG,GREEN$$<CTRL-ALT-E>$$FG$$\tSpawn new user terminal window\n"
|
||||
"$$FG,GREEN$$<CTRL-ALT-F>$$FG$$\tFlush screen VGA cache\n"
|
||||
"$$FG,GREEN$$<CTRL-ALT-D>$$FG$$\tEnter debugger\n"
|
||||
"$$FG,GREEN$$<CTRL-ALT-M>$$FG$$\tMutes sound\n"
|
||||
"$$FG,GREEN$$<CTRL-ALT-T>$$FG$$\tSwitch tasks\n"
|
||||
"$$FG,GREEN$$<CTRL-ALT-V>$$FG$$\tSound volume +\n"
|
||||
"$$FG,GREEN$$<CTRL-ALT-v>$$FG$$\tSound volume -\n"
|
||||
"$$FG,GREEN$$<CTRL-ALT-X>$$FG$$\tKill task (window)\n"
|
||||
);
|
||||
|
||||
AFDelayedPutS("Ed(\"ASCIIOrgan.CPP.Z\");\n",50);
|
||||
|
||||
PopUpOk(
|
||||
"$$FG,GREEN$$<F5>$$FG$$\t\t'#include' the current file link\n"
|
||||
"or the file you are currently editing.\n"
|
||||
"$$FG,GREEN$$<SHIFT-F5>$$FG$$\t'Adam Include' the current file.\n\n\n"
|
||||
"$$FG,GREEN$$<F5>$$FG$$ in the editor to run the file being edited.\n"
|
||||
);
|
||||
|
||||
AFGetKey(SC_F5);
|
||||
Sleep(50);
|
||||
CTask *task=sys_focus_task;
|
||||
|
||||
PopUpOk(
|
||||
"$$FG,GREEN$$<SHIFT-ESC>$$FG$$ to abort the application.\n"
|
||||
"Then, $$FG,GREEN$$<CTRL-ALT-X>$$FG$$ to kill the task.\n"
|
||||
);
|
||||
WinToTop(task);
|
||||
while (TaskValidate(task))
|
||||
Sleep(10);
|
||||
|
||||
PopUpOk(
|
||||
"$$FG,GREEN$$<SHIFT-ESC>$$FG$$ to abort the editor.\n");
|
||||
|
||||
AFUntilChar(CH_SHIFT_ESC,CH_ESC);
|
||||
|
||||
PopUpOk(
|
||||
"Explore the $$LK,\"DemoIndex\",\"FI:::/TempleOS/Doc/DemoIndex.TXT\"$$.\n"
|
||||
"You'll find it on your menu.\n"
|
||||
"It's arranged by increasing difficulty.\n"
|
||||
"Hit $$FG,GREEN$$<SPACE BAR>$$FG$$ on a demo index listing\n"
|
||||
"and $$FG,GREEN$$<F5>$$FG$$ to run from the editor.\n"
|
||||
);
|
||||
|
||||
@@ -0,0 +1,112 @@
|
||||
//This puts the cursor at the bottom
|
||||
Msg(MSG_KEY_DOWN,0,SC_CURSOR_DOWN|SCF_CTRL);
|
||||
"\nCd(\"::/TempleOS/Demo/Snd\");Dir;\n";
|
||||
|
||||
PopUpOk(
|
||||
"Now, we're going to add the ASCIIOrgan.CPP.Z\n"
|
||||
"program to your personal menu.\n\n"
|
||||
"Press $$FG,GREEN$$<CTRL-M>$$FG$$\n"
|
||||
"to get to your personal menu.\n");
|
||||
AFGetChar(CH_CTRLM);
|
||||
Msg(MSG_KEY_DOWN,0,SC_CURSOR_UP|SCF_CTRL);
|
||||
Sleep(1000);
|
||||
|
||||
PopUpOk(
|
||||
"$$FG,GREEN$$<CTRL-L>$$FG$$ to invoke the\n"
|
||||
"text-widget resource editor.\n"
|
||||
"\n"
|
||||
"($$FG,GREEN$$<CTRL-R>$$FG$$ invokes the\n"
|
||||
"graphic resource editor.)\n"
|
||||
);
|
||||
AFGetChar(CH_CTRLL);
|
||||
|
||||
Sleep(100);
|
||||
PopUpOk(
|
||||
"$$FG,GREEN$$<CURSOR-DOWN>$$FG$$ until you reach\n"
|
||||
"\"Macro\".\n");
|
||||
I64 i;
|
||||
for (i=0;i<6;i++)
|
||||
AFGetKey(SC_CURSOR_DOWN);
|
||||
|
||||
PopUpOk(
|
||||
"$$FG,GREEN$$<SPACE BAR>$$FG$$.\n");
|
||||
AFPmtStr(" ");
|
||||
Sleep(1000);
|
||||
|
||||
|
||||
PopUpOk(
|
||||
"Now, we'll fill-in the visible text\n"
|
||||
"of the macro.\n");
|
||||
AFDelayedPutS("Click Here");
|
||||
|
||||
Msg(MSG_KEY_DOWN,0,SC_CURSOR_DOWN);
|
||||
PopUpOk("Now, we'll fill-in the macro text.\n");
|
||||
AFDelayedPutS("Cd(\"::/TempleOS/Demo/Snd\");;#include \"ASCIIOrgan\";\\n");
|
||||
|
||||
PopUpOk("$$FG,GREEN$$<ESC>$$FG$$ to exit the form.\n");
|
||||
AFGetChar(CH_ESC);
|
||||
Sleep(1000);
|
||||
|
||||
PopUpOk(
|
||||
"Press $$FG,GREEN$$<CTRL-SHIFT-ENTER>$$FG$$ to insert a line feed.\n"
|
||||
"($$FG,GREEN$$<CTRL-ENTER>$$FG$$ does a page break and $$FG,GREEN$$<ENTER>$$FG$$\n"
|
||||
"would execute the macro.)\n");
|
||||
AFGetKey(SC_CARRIAGE_RETURN|SCF_CTRL|SCF_SHIFT);
|
||||
Sleep(1000);
|
||||
|
||||
Msg(MSG_KEY_DOWN,0,SC_CURSOR_UP|SCF_CTRL);
|
||||
PopUpOk(
|
||||
"Press $$FG,GREEN$$<SPACE BAR>$$FG$$ to test it.\n");
|
||||
AFPmtStr(" ");
|
||||
AFUntilChar(CH_SHIFT_ESC,CH_ESC);
|
||||
|
||||
PopUpOk(
|
||||
"Now, we'll do a fancier macro that pops-up\n"
|
||||
"a new window which dies when finished,\n"
|
||||
"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);
|
||||
for (i=0;i<6;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(\"::/TempleOS/Demo/Snd\");;#include \"ASCIIOrgan\";\\n");
|
||||
Msg(MSG_KEY_DOWN,0,SC_CURSOR_LEFT|SCF_CTRL);
|
||||
|
||||
PopUpOk(
|
||||
"$$FG,GREEN$$<CURSOR-DOWN>$$FG$$ until you reach\n"
|
||||
"the \"Pop-Up\" check-box.\n");
|
||||
for (i=0;i<2;i++)
|
||||
AFGetKey(SC_CURSOR_DOWN);
|
||||
PopUpOk(
|
||||
"$$FG,GREEN$$<SPACE BAR>$$FG$$ to\n"
|
||||
"check the box.\n");
|
||||
AFPmtStr(" ");
|
||||
Sleep(500);
|
||||
|
||||
PopUpOk("$$FG,GREEN$$<ESC>$$FG$$ to exit the form.\n");
|
||||
AFGetChar(CH_ESC);
|
||||
Sleep(500);
|
||||
|
||||
PopUpOk("$$FG,GREEN$$<CTRL-SHIFT-ENTER>$$FG$$ to insert a line feed.\n");
|
||||
AFGetKey(SC_CARRIAGE_RETURN|SCF_CTRL|SCF_SHIFT);
|
||||
Sleep(500);
|
||||
|
||||
Msg(MSG_KEY_DOWN,0,SC_CURSOR_UP|SCF_CTRL);
|
||||
PopUpOk(
|
||||
"$$FG,GREEN$$<SPACE BAR>$$FG$$ to test it.\n");
|
||||
AFPmtStr(" ");
|
||||
Sleep(5000);
|
||||
|
||||
PopUpOk(
|
||||
"$$FG,GREEN$$<CTRL-S>$$FG$$ to save your\n"
|
||||
"personal menu file, if you wish.\n"
|
||||
"Your personal menu is special and\n"
|
||||
"does not save on $$FG,GREEN$$<ESC>$$FG$$.\n");
|
||||
if (Fs->parent_task->popup_task) {
|
||||
'' CH_SHIFT_ESC;
|
||||
Sleep(100);
|
||||
}
|
||||
'' CH_SHIFT_ESC; //exit menu
|
||||
|
||||
@@ -0,0 +1,37 @@
|
||||
//This is an example of your documentation.
|
||||
|
||||
|
||||
//This puts the cursor at the bottom
|
||||
Msg(MSG_KEY_DOWN,0,SC_CURSOR_DOWN|SCF_CTRL);
|
||||
"\nEd(\"::/TempleOS/Misc/Tour/Tour4.AUT.Z\");\n";
|
||||
Msg(MSG_KEY_DOWN,0,SC_CURSOR_UP|SCF_CTRL);
|
||||
Msg(MSG_KEY_DOWN,0,SC_CURSOR_DOWN);
|
||||
"//";
|
||||
|
||||
PopUpOk(
|
||||
"Now, we'll add a link to a file.\n"
|
||||
"using the $$FG,GREEN$$<F4>$$FG$$ filename chooser.\n");
|
||||
|
||||
'' CH_CTRLL;
|
||||
Sleep(1000);
|
||||
'' CH_SPACE;
|
||||
Sleep(1000);
|
||||
'' CH_SPACE;
|
||||
Sleep(1000);
|
||||
Msg(MSG_KEY_DOWN,0,SC_CURSOR_DOWN);
|
||||
Sleep(1000);
|
||||
|
||||
PopUpOk(
|
||||
"Press $$FG,GREEN$$<F4>$$FG$$.\n"
|
||||
"Pick any file and press $$FG,GREEN$$<ESC>$$FG$$.");
|
||||
AFGetKey(SC_F4);
|
||||
PopUpOk(
|
||||
"Press $$FG,GREEN$$<ESC>$$FG$$.\n");
|
||||
AFUntilChar(CH_SHIFT_ESC,CH_ESC);
|
||||
|
||||
PopUpOk(
|
||||
"$$FG,GREEN$$<SHIFT-ESC>$$FG$$ to abort.\n");
|
||||
AFUntilChar(CH_SHIFT_ESC,CH_ESC);
|
||||
|
||||
PopUpOk(
|
||||
"$$FG,GREEN$$<SHIFT F4>$$FG$$ to pick directories.\n");
|
||||
@@ -0,0 +1,64 @@
|
||||
PopUp("WSInit(\"::/TempleOS/\" FILENAME_MASK_TXT \";~*Bible.TXT*\");");
|
||||
WordStat(ON);
|
||||
Sleep(3500);
|
||||
|
||||
//This puts the cursor at the bottom
|
||||
Msg(MSG_KEY_DOWN,0,SC_CURSOR_DOWN|SCF_CTRL);
|
||||
"\nCd(\"::/TempleOS/Demo\");\n";
|
||||
|
||||
PopUpOk(
|
||||
"WordStat is an autocomplete feature\n"
|
||||
"which will also jump to source code.\n"
|
||||
"The function keys work with code, while\n"
|
||||
"the num keys work with the dictionary.\n\n"
|
||||
"We will now place some text on the command\n"
|
||||
"line and jump to source code.\n");
|
||||
|
||||
"MakeOS";
|
||||
|
||||
Sleep(1000);
|
||||
|
||||
PopUpOk(
|
||||
"After clicking $$FG,GREEN$$[OKAY]$$FG$$, look at\n"
|
||||
"the $$FG,GREEN$$MakeOSInstallPrtBootLoader$$FG$$ entry\n"
|
||||
"in the WordStat window. Notice it\n"
|
||||
"has a '$$FG,GREEN$$*$$FG$$' by it. This means\n"
|
||||
"a source code link is available.\n");
|
||||
Sleep(3000);
|
||||
|
||||
PopUpOk(
|
||||
"$$FG,GREEN$$<CTRL-SHIFT-F1>$$FG$$ to jump to source code.\n");
|
||||
AFGetKey(SC_F1|SCF_CTRL|SCF_SHIFT);
|
||||
Sleep(500);
|
||||
|
||||
PopUpOk(
|
||||
"$$FG,GREEN$$<SHIFT-ESC>$$FG$$ to abort the source code.\n");
|
||||
AFUntilChar(CH_SHIFT_ESC,CH_ESC);
|
||||
Sleep(100);
|
||||
sys_focus_task=Fs;
|
||||
|
||||
PopUpOk(
|
||||
"Press $$FG,GREEN$$<CTRL-F1>$$FG$$ to autocomplete.\n");
|
||||
AFGetKey(SC_F1|SCF_CTRL);
|
||||
Sleep(500);
|
||||
|
||||
Msg(MSG_KEY_DOWN,'\n',SCF_CTRL|SCF_SHIFT);
|
||||
"\n";
|
||||
|
||||
PopUpOk(
|
||||
"Tip: You can restart the WordStat window if you\n"
|
||||
"have closed it by pressing $$FG,GREEN$$<CTRL-F1>$$FG$$.\n");
|
||||
|
||||
PopUpOk(
|
||||
"You can also use the $$FG,GREEN$$Man()$$FG$$ function\n"
|
||||
"to jump to source code. (I use WordStat.)\n"
|
||||
"The $$FG,GREEN$$Man()$$FG$$ is good for short symbols\n"
|
||||
"or when inside the debugger.\n");
|
||||
AFDelayedPutS("Man(\"MakeOSInstallPrtBootLoader\");");
|
||||
Sleep(1000);
|
||||
"\n";
|
||||
|
||||
Sleep(2000);
|
||||
PopUpOk(
|
||||
"$$FG,GREEN$$<SHIFT-ESC>$$FG$$ to abort the source code.\n");
|
||||
AFUntilChar(CH_SHIFT_ESC,CH_ESC);
|
||||
@@ -0,0 +1,76 @@
|
||||
PopUpOk(
|
||||
"$$LK,\"F\",\"MN:F\"$$() is a handy function.\n"
|
||||
"It is a wrapper around $$LK,\"Grep\",\"MN:Grep\"$$().\n"
|
||||
"It searches the $$FG,GREEN$$/TempleOS$$FG$$ tree for a sym.\n"
|
||||
);
|
||||
|
||||
PopUpOk("Press $$FG,GREEN$$<ENTER>$$FG$$.");
|
||||
|
||||
//This puts the cursor at the bottom
|
||||
Msg(MSG_KEY_DOWN,0,SC_CURSOR_DOWN|SCF_CTRL);
|
||||
"\n";
|
||||
|
||||
"F(\"Dir\");";
|
||||
AFPmtStr("\n");
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
PopUpOk(
|
||||
"Try it with the $$FG,GREEN$$+l$$FG$$ flag.\n"
|
||||
"This limits to whole labels, not partials.\n");
|
||||
|
||||
PopUpOk("Press $$FG,GREEN$$<ENTER>$$FG$$.");
|
||||
|
||||
//This puts the cursor at the bottom
|
||||
Msg(MSG_KEY_DOWN,0,SC_CURSOR_DOWN|SCF_CTRL);
|
||||
"\n";
|
||||
|
||||
"F(\"Dir\",\"+l\");";
|
||||
AFPmtStr("\n");
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
PopUpOk(
|
||||
"Try it with the $$FG,GREEN$$+l-i$$FG$$ flag.\n"
|
||||
"This does not ignore case and\n"
|
||||
"limits to whole labels, not partials.\n");
|
||||
|
||||
PopUpOk("Press $$FG,GREEN$$<ENTER>$$FG$$.");
|
||||
|
||||
//This puts the cursor at the bottom
|
||||
Msg(MSG_KEY_DOWN,0,SC_CURSOR_DOWN|SCF_CTRL);
|
||||
"\n";
|
||||
|
||||
"F(\"Dir\",\"+l-i\");";
|
||||
AFPmtStr("\n");
|
||||
|
||||
|
||||
|
||||
|
||||
PopUpOk(
|
||||
"The wrapper function is in your\n"
|
||||
"$$FG,RED$$HOME/Adam3eWrappers.CPP.Z$$FG$$ file.\n"
|
||||
"There is a function $$LK,\"R\",\"MN:R\"$$() for\n"
|
||||
"find and replace. Feel free to customize.\n");
|
||||
|
||||
PopUpOk("Press $$FG,GREEN$$<ENTER>$$FG$$.");
|
||||
|
||||
//This puts the cursor at the bottom
|
||||
Msg(MSG_KEY_DOWN,0,SC_CURSOR_DOWN|SCF_CTRL);
|
||||
"\n";
|
||||
|
||||
"Ed(\"HOME/Adam3eWrappers.CPP.Z\");";
|
||||
AFPmtStr("\n");
|
||||
|
||||
Sleep(2000);
|
||||
PopUpOk(
|
||||
"$$FG,GREEN$$<SHIFT-ESC>$$FG$$ to abort the source code.\n");
|
||||
AFUntilChar(CH_SHIFT_ESC,CH_ESC);
|
||||
|
||||
PopUpOk(
|
||||
"$$FG,GREEN$$+lf$$FG$$ is whole label just front.\n"
|
||||
"$$FG,GREEN$$+lb$$FG$$ is whole label just back.\n");
|
||||
@@ -0,0 +1,39 @@
|
||||
"Ed(\"::/TempleOS/Misc/Tour/Tour7.AUT.Z\");\n";
|
||||
Sleep(1000);
|
||||
|
||||
PopUpOk(
|
||||
"$$FG,GREEN$$<CTRL-F>$$FG$$ to find.\n"
|
||||
);
|
||||
|
||||
AFGetChar(CH_CTRLF);
|
||||
|
||||
"<SHIFT-ESC>";
|
||||
|
||||
PopUpOk("Cursor down 8 times.\n");
|
||||
I64 i;
|
||||
for (i=0;i<8;i++)
|
||||
AFGetKey(SC_CURSOR_DOWN);
|
||||
|
||||
PopUpOk(
|
||||
"Press '$$FG,GREEN$$1$$FG$$' to show\n"
|
||||
"all lines within 1 of a match.\n");
|
||||
AFPmtStr("1");
|
||||
Sleep(1000);
|
||||
|
||||
PopUpOk("Press $$FG,GREEN$$<ESC>$$FG$$.\n");
|
||||
AFGetChar(CH_ESC);
|
||||
Sleep(500);
|
||||
|
||||
PopUpOk(
|
||||
"Look around and press $$FG,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;
|
||||
|
||||
@@ -0,0 +1,54 @@
|
||||
PopUpOk("Press $$FG,GREEN$$<ENTER>$$FG$$.");
|
||||
"Ed(\"HI:Debugging\");";
|
||||
AFPmtStr("\n");
|
||||
PopUpOk(
|
||||
"$$FG,GREEN$$<SHIFT-ESC>$$FG$$ to abort.\n");
|
||||
AFUntilChar(CH_SHIFT_ESC,CH_ESC);
|
||||
|
||||
PopUpOk(
|
||||
"We will now use $LK,"Uf","MN:Uf"$() to\n"
|
||||
"unassemble a function.\n"
|
||||
"It takes the function name\n"
|
||||
"as a string arg.\n\n"
|
||||
"Press $$FG,GREEN$$<ENTER>$$FG$$.");
|
||||
"WinMax;WinBorder;\nUf(\"CAlloc\");";
|
||||
AFPmtStr("\n");
|
||||
|
||||
PopUpOk("Press $$FG,GREEN$$<CURSOR-UP>$$FG$$ eight times..");
|
||||
I64 i;
|
||||
for (i=0;i<8;i++)
|
||||
AFGetKey(SC_CURSOR_UP);
|
||||
|
||||
PopUpOk(
|
||||
"Press $$FG,GREEN$$<SPACE BAR>$$FG$$.\n");
|
||||
AFPmtStr(" ");
|
||||
|
||||
PopUpOk(
|
||||
"$$FG,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(
|
||||
"$$FG,GREEN$$<SHIFT-ESC>$$FG$$ when finished.\n");
|
||||
AFUntilChar(CH_SHIFT_ESC,CH_ESC);
|
||||
|
||||
PopUpOk(
|
||||
"We can unassemble a\n"
|
||||
"numeric address with $LK,"U","MN:U"$().\n\n"
|
||||
"Press $$FG,GREEN$$<ENTER>$$FG$$.");
|
||||
"U(&CAlloc);";
|
||||
AFPmtStr("\n");
|
||||
|
||||
"AFView;\n";
|
||||
PopUpOk(
|
||||
"$$FG,GREEN$$<SHIFT-ESC>$$FG$$ when finished.\n");
|
||||
AFUntilChar(CH_SHIFT_ESC,CH_ESC);
|
||||
|
||||
PopUpOk("The opcodes are slightly nonstandard.");
|
||||
"Ed(\"::/TempleOS/Compiler/OpCodes.TXT.Z\");\n";
|
||||
PopUpOk(
|
||||
"$$FG,GREEN$$<SHIFT-ESC>$$FG$$ to abort.\n");
|
||||
AFUntilChar(CH_SHIFT_ESC,CH_ESC);
|
||||
|
||||
@@ -0,0 +1,28 @@
|
||||
PopUpOk(
|
||||
"All text widgets work everywhere.\n"
|
||||
"The $$FG,GREEN$$Type()$$FG$$ command is like\n"
|
||||
"the DOS command of the same name\n"
|
||||
"or the UNIX, $$FG,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 $$FG,GREEN$$<ENTER>$$FG$$.");
|
||||
|
||||
//This puts the cursor at the bottom
|
||||
Msg(MSG_KEY_DOWN,0,SC_CURSOR_DOWN|SCF_CTRL);
|
||||
"\n";
|
||||
|
||||
"Type(\"HOME/PersonalMenu.TXT\");";
|
||||
AFPmtStr("\n");
|
||||
|
||||
"Dir;\nAFView;\n";
|
||||
PopUpOk(
|
||||
"$$FG,GREEN$$<SHIFT-ESC>$$FG$$ when finished.\n");
|
||||
AFUntilChar(CH_SHIFT_ESC,CH_ESC);
|
||||
|
||||
PopUpOk(
|
||||
"$$FG,GREEN$$Type()$$FG$$ can also be used on\n"
|
||||
"$$FG,GREEN$$.BMP$$FG$$ or $$FG,GREEN$$.GRA$$FG$$ files!");
|
||||
|
||||
|
||||
@@ -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 $$FG,GREEN$$<ENTER>$$FG$$.");
|
||||
|
||||
"#include \"::/TempleOS/Misc/OSTestSuite\";";
|
||||
AFPmtStr("\n");
|
||||
Reference in new issue
Block a user