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