home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1991 / 02 / tricks / diagnose.def < prev    next >
Encoding:
Modula Definition  |  1990-11-06  |  866 b   |  26 lines
  1. (* ------------------------------------------------------ *)
  2. (*                   DIAGNOSE.DEF                         *)
  3. (*        (c) 1991 Michael Rother & TOOLBOX               *)
  4. (* ------------------------------------------------------ *)
  5. DEFINITION MODULE Diagnose;
  6.  
  7. FROM SYSTEM IMPORT ASSEMBLER;
  8.  
  9. TYPE
  10.   Modus = (Farbe, Mono, Unbekannt);
  11.  
  12. VAR
  13.   AT : BOOLEAN;
  14.  
  15.   PROCEDURE DiskSize(Laufwerk : INTEGER) : LONGCARD;
  16.   PROCEDURE DiskFree(Laufwerk : INTEGER) : LONGCARD;
  17.   PROCEDURE DosVersion(VAR Hoch, Tief : CARDINAL);
  18.   PROCEDURE DosMemory() : CARDINAL;
  19.   PROCEDURE ExtendedMemory() : CARDINAL;
  20.   PROCEDURE Ist_AT() : BOOLEAN;
  21.   PROCEDURE CoProzessor() : BOOLEAN;
  22.   PROCEDURE VideoModus() : Modus;
  23.  
  24. END Diagnose.
  25. (* ------------------------------------------------------ *)
  26. (*              Ende von DIAGNOSE.DEF                     *)