LTCD_060719.ISO

This commit is contained in:
Terry A. Davis authored and minexew committed 2018-09-08 21:45:17 +02:00
commit f86e69648b
156 files changed
+49537

No files matched your search

+15
View File
@@ -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);
+9
View File
@@ -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");
+26
View File
@@ -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.
+12
View File
@@ -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;