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

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

   else if (String (0, "FORM")) {
      if      (String (8, "ILBM"))
         puts ("IFF_ILBM");

      else if (String (8, "8SVX"))
         puts ("IFF_8SVX");

      else if (String (8, "ANIM"))
         puts ("IFF_ANIM");

      else if (String (8, "CTLG"))
         puts ("IFF_CTLG");

      else if (String (8, "PREF"))
         puts ("IFF_PREF");

      else if (String (8, "SMUS"))
         puts ("IFF_SMUS");

      else if (String (8, "AFAX"))
         puts ("IFF_AFAX");

      else
         puts ("IFF_Unknown");
   }

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

   else if (String (2, "-lh") && String (6, "-"))
      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");

   else if (String (0, "PP20") || String (0, "PX20")) {
      if (String (8, "\x62\xF2\x4A\xB2"))
         puts ("PPBild");
      else
         puts ("PPText");
   }

   else if (String (6, "JFIF"))
      puts ("Jpg");

   else if (String (0, "GIF"))
      puts ("Gif");

   else if (String (0, "\x49\x49\x2A"))
      puts ("Tiff");

   else if (String (0, "SONG"))
      puts ("Song");

   else if (String (0, "ZyXEL\x02\x00"))
      puts ("ZyXEL_Voice");

   else if (Test (0, ReadCnt, &istext)) {
      if (Name ("*.guide"))
         puts ("AGuide");
      else
         puts ("Text");
   }
             /*  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 if (String (0, "\x00\x00\x03\xF3")) {
      if (NameNC("*-handler") || NameNC("*FileSystem"))
         puts ("Device");
      else
         puts ("Exec");
   }

   else
      puts ("Unknown");
}