home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1991 / 02 / tricks / diagdemo.mod < prev    next >
Encoding:
Text File  |  1990-11-06  |  2.2 KB  |  86 lines
  1. (* ------------------------------------------------------ *)
  2. (*                   DIAGDEMO.MOD                         *)
  3. (*        (c) 1991 Michael Rother & TOOLBOX               *)
  4. (* ------------------------------------------------------ *)
  5. MODULE DiagDemo;
  6.  
  7. FROM InOut    IMPORT WriteLn, WriteCard, WriteString,
  8.                      WriteLongCard;
  9.  
  10.  
  11. FROM Diagnose IMPORT DiskSize, DiskFree, CoProzessor,
  12.                      VideoModus, DosVersion, DosMemory,
  13.                      ExtendedMemory, Ist_AT, Modus, AT;
  14.  
  15. VAR
  16.   Wahr     : BOOLEAN;
  17.   Ergebnis : LONGCARD;
  18.   Hei, Low : CARDINAL;
  19.   Groesse  : CARDINAL;
  20.   Mode     : Modus;
  21.  
  22. BEGIN
  23.   IF AT THEN
  24.     WriteString('Das ist ein AT-kompatibler Rechner.');
  25.     WriteLn;
  26.   ELSE
  27.     WriteString('Das ist ein XT-kompatibler Rechner.');
  28.     WriteLn;
  29.   END;
  30.  
  31.   Wahr := CoProzessor();
  32.   IF Wahr THEN
  33.     WriteString('CoProzessor installiert.');
  34.     WriteLn;
  35.   ELSE
  36.     WriteString('Kein CoProzessor installiert.');
  37.     WriteLn;
  38.   END;
  39.  
  40.   Ergebnis := DiskSize(3);
  41.   WriteString('Die Festplatte C hat ');
  42.   WriteLongCard(Ergebnis,7);
  43.   WriteString(' Bytes Kapazität.');
  44.   WriteLn;
  45.  
  46.   Ergebnis := DiskFree(3);
  47.   WriteString('Davon sind derzeit ');
  48.   WriteLongCard(Ergebnis,7);
  49.   WriteString(' Bytes frei.');
  50.   WriteLn;
  51.  
  52.   DosVersion(Hei, Low);
  53.   WriteString('Die DOS-Version ist ');
  54.   WriteCard(Hei,1);
  55.   WriteString('.');
  56.   WriteCard(Low, 2);
  57.   WriteString('.');
  58.   WriteLn;
  59.  
  60.   Groesse := DosMemory();
  61.   WriteString('Der DOS-Speicher hat eine Groesse von ');
  62.   WriteCard(Groesse,3);
  63.   WriteString(' KBytes.');
  64.   WriteLn;
  65.  
  66.   Groesse := ExtendedMemory();
  67.   WriteString('Extended Speicher hat eine Groesse von ');
  68.   WriteCard(Groesse,4);
  69.   WriteString(' KBytes.');
  70.   WriteLn;
  71.  
  72.   Mode := VideoModus();
  73.   IF Mode = Farbe THEN
  74.     WriteString('Farbgrafikkarte installiert.');
  75.     WriteLn;
  76.   ELSIF Mode = Mono THEN
  77.     WriteString('Monokarte installiert.');
  78.     WriteLn;
  79.   ELSE
  80.     WriteString('Unbekannte VideoKarte.');
  81.     WriteLn;
  82.   END;
  83. END DiagDemo.
  84. (* ------------------------------------------------------ *)
  85. (*                Ende von DIAGDEMO.MOD                   *)
  86.