(* ------------------------------------------------------ *)
(*                   DIAGNOSE.DEF                         *)
(*        (c) 1991 Michael Rother & TOOLBOX               *)
(* ------------------------------------------------------ *)
DEFINITION MODULE Diagnose;

FROM SYSTEM IMPORT ASSEMBLER;

TYPE
  Modus = (Farbe, Mono, Unbekannt);

VAR
  AT : BOOLEAN;

  PROCEDURE DiskSize(Laufwerk : INTEGER) : LONGCARD;
  PROCEDURE DiskFree(Laufwerk : INTEGER) : LONGCARD;
  PROCEDURE DosVersion(VAR Hoch, Tief : CARDINAL);
  PROCEDURE DosMemory() : CARDINAL;
  PROCEDURE ExtendedMemory() : CARDINAL;
  PROCEDURE Ist_AT() : BOOLEAN;
  PROCEDURE CoProzessor() : BOOLEAN;
  PROCEDURE VideoModus() : Modus;

END Diagnose.
(* ------------------------------------------------------ *)
(*              Ende von DIAGNOSE.DEF                     *)