14 lines
394 B
Plaintext
14 lines
394 B
Plaintext
|
/* To run this, do a directory, right click on
|
||
|
|
this file's name and sel "InFile".
|
||
|
|
Or, type $LK,"InFile",A="MN:InFile"$(filename);
|
||
|
|
See $LK,"InFile",A="FF:::/Doc/Glossary.DD,InFile"$ in the glossary for more info.
|
||
|
|
*/
|
||
|
|
|
||
|
|
I64 i;
|
||
|
|
for (i=0;i<3;i++)
|
||
|
|
"Dir;\n";
|
||
|
|
|
||
|
|
"$$RED$$//Press a letter to complete the mask$$FG$$\n";
|
||
|
|
"Dir(\"*.";
|
||
|
|
I64 ch=GetChar(,FALSE); //Prompt for first digit of mask
|
||
|
|
"%c*\");\n",ch;
|