OberonCore

   PROCEDURE Load* (fname: ARRAY OF CHAR): FIBITMAP;
      VAR
         res: BOOLEAN;
         type: Dll.IMAGE_FORMAT;
         tdib: Dll.FIBITMAP;
   BEGIN
      type := Dll.GetFileTypeU(fname, 0);
      IF type = Dll.FIF_UNKNOWN THEN
         (* Out.String("Unkonwn Format: "); Out.Int(type, 0); Out.Ln; *)
         type := Dll.GetFIFFromFilenameU(fname)
      END;
      IF (type # Dll.FIF_UNKNOWN) & Dll.FIFSupportsReading(type) THEN
         (* Out.Int(type, 0); Out.String(" Supported reading: "); Out.Ln; *)
         tdib := Dll.LoadU(type, fname, 0);
         RETURN tdib
      ELSE
         RETURN NIL
      END
   END Load;