Initial (manual) import

TempleOSCD/Demo/InFile/InDir.IN

@@ -0,0 +1,14 @@
+/* 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;