void TestFile (void) {
   BuffSize= 0x550;
   FNameTkn= '$';
   NoExtTkn= '*';

   if (Name ("*:"))
      puts ("Volume");

   else if (IsDir ())
      puts ("Dir");

   else if (String (0, "ZOO ") && FindNC (4,15,"archive"))
      puts ("Zoo");

   else if (String (2, "-lh") && String (6, "-")) {
      if (Name ("*_Volume.lha"))
         puts ("VolumeLha");
      else
         puts ("Lha");
   }

   else if (String (0, "DMS!"))
      puts ("DMS");

   else if (String (0, "Warp"))
      puts ("Warp");

   else if (String (0, "ZOOM"))
      puts ("Zoom");

   else if (String (0, "\x50\x4B\x03\x04"))
      puts ("Zip");

   else if (String (0, "\x1A\x08"))
      puts ("Arc");

   else if (String(0, "\x60\xEA") && FindNC (0,0x50, ".ARJ"))
      puts ("Arj");

             /*  Här behövs en inläst buffert på minst x550 bytes:   */
   else if (String (0, "\x00\x00\x03\xF3") && FindNC (0, 0x60, "SFX!") && ( Find(0,0x550,"-lh4") || Find(0,0x550,"-lh5") ))
      puts ("LhaSfx");

   else if (String (0, "\x00\x00\x03\xF3") && String (0x2C, "\x43\xFA\x00\xCA"))
      puts ("PakSfx");

   else
      puts ("UnCrunched");
}