/* To run this, do a directory, right click on
this file's name and sel "AutoFile".
Or, type $LK,"AutoFile",A="MN:AutoFile"$(filename);
See $LK,"AutoFile",A="FF:::/Doc/Glossary.TXT,AutoFile"$ 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;