LTCD_060719.ISO
This commit is contained in:
commit
f86e69648b
156 files changed
+49537
No files matched your search
@@ -0,0 +1,15 @@
|
||||
/* To run this, do a directory, right click on
|
||||
this file's name and select "AutoFile".
|
||||
Or, type $LK,"AutoFile","MN:AutoFile"$(filename);
|
||||
See $LK,"AutoFile","FF:::/LT/DOC/OSGlossary.GLZ,AutoFile"$ in the glossary for more info.
|
||||
*/
|
||||
|
||||
|
||||
//This is to demo autofiles.
|
||||
I4 i;
|
||||
for (i=0;i<3;i++)
|
||||
PutS("Dir;\r");
|
||||
PutS("$$FG RED$$//Press a letter to complete the mask$$FG$$\r");
|
||||
PutS("Dir(\"*.");
|
||||
I1 ch=GetKey; //Prompt for first digit of mask
|
||||
PrintF("%c*\");\r",ch);
|
||||
@@ -0,0 +1,9 @@
|
||||
/* To run this, do a directory, right click on
|
||||
this file's name and select "AutoFile".
|
||||
Or, type $LK,"AutoFile","MN:AutoFile"$(filename);
|
||||
See $LK,"AutoFile","FF:::/LT/DOC/OSGlossary.GLZ,AutoFile"$ in the glossary for more info.
|
||||
*/
|
||||
PutS("$$FG RED$$Prof(&GrUpdateScreen,0x2000);$$FG$$\r");
|
||||
PutS("$$FG RED$$//Collecting Data, Press A Key$$FG$$");
|
||||
GetKey;
|
||||
PutS("\r$$FG RED$$ProfRep;$$FG$$\r");
|
||||
@@ -0,0 +1,26 @@
|
||||
/* To run this, do a directory, right click on
|
||||
this file's name and select "AutoFile".
|
||||
Or, type $LK,"AutoFile","MN:AutoFile"$(filename);
|
||||
See $LK,"AutoFile","FF:::/LT/DOC/OSGlossary.GLZ,AutoFile"$ in the glossary for more info.
|
||||
|
||||
This autofile will renumber the defines in
|
||||
Demo3.TXZ. Test it by numbering a few wrong
|
||||
and running this demo.
|
||||
|
||||
*/
|
||||
|
||||
U1 i;
|
||||
|
||||
PutS("Edit(\"Demo3.TXZ\");\r");
|
||||
//Go to start of file
|
||||
Msg(MSG_KEY_DOWN,0,SC_CURSOR_UP|SCF_CTRL);
|
||||
for (i=0;i<=0xD6;i++) {
|
||||
PrintF("%c0x%c",6,CH_ESC); //ctrl F
|
||||
Msg(MSG_KEY_DOWN,0,SC_CURSOR_RIGHT);
|
||||
Msg(MSG_KEY_DOWN,0,SC_CURSOR_RIGHT);
|
||||
PrintF("%02X",i);
|
||||
Msg(MSG_KEY_DOWN,0,SC_CURSOR_RIGHT);
|
||||
Msg(MSG_KEY_DOWN,0,SC_CURSOR_RIGHT);
|
||||
PrintF("%c%c",CH_BACKSPACE,CH_BACKSPACE);
|
||||
Sleep(5);
|
||||
}
|
||||
Binary file not shown.
@@ -0,0 +1,12 @@
|
||||
/* This is not an AutoFile. It uses $LK,"AutoString","MN:AutoString"$
|
||||
to run text as though from an AutoFile.
|
||||
|
||||
This example shows how you can drive pop-up
|
||||
windows.
|
||||
*/
|
||||
|
||||
Auto(" ");
|
||||
coutln "PopUp #1:",PopUpNoYes;
|
||||
|
||||
AutoString("Msg(MSG_KEY_DOWN,0,SC_CURSOR_RIGHT);PutChar(CH_SPACE);");
|
||||
coutln "PopUp #2:",PopUpNoYes;
|
||||
Reference in new issue
Block a user