26 lines
768 B
Plaintext
26 lines
768 B
Plaintext
/* 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);
|
|
} |