/* To run this, do a directory, right click on
this file's name and sel "InFile".
Or, type InFile(filename);
See 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 = CharGet(, FALSE); //Prompt for first digit of mask
"%c*\");\n", ch;