home *** CD-ROM | disk | FTP | other *** search
/ Vectronix 2 / VECTRONIX2.iso / FILES_01 / HDPSTACK.LZH / HDPSTACK.MSA / HDPSTACK / SOURCE / HDPSTEST.M < prev    next >
Text File  |  1995-01-28  |  2KB  |  102 lines
  1. MODULE HDPSTest;
  2.  
  3. (* Programm zur Demonstration der Programmiermöglichkeiten von 
  4.  * hdpSTACK.
  5.  *
  6.  * Autor: Frank Storm
  7.  *
  8.  *        angelegt: 26.01.1995
  9.  * letzte Änderung: 26.01.1995
  10.  *)
  11.  
  12. FROM  BIOS                 IMPORT  DriveSet;
  13. FROM  InOut                IMPORT  WriteString, WriteLn, Read, Write;
  14.  
  15. FROM  HDPSFunctions        IMPORT  HDPSInstalled, HDPCacheDrvMap,
  16.                                    HDPVerifyDrvMap, HDPWrtProtDrvMap,
  17.                                    HDPSComprDrvMap, HDPResult;
  18.  
  19.  
  20. PROCEDURE AusgabeLaufwerke (drives: DriveSet);
  21. VAR i: CARDINAL;
  22. BEGIN
  23.   FOR i:= 0 TO 31 DO
  24.    IF (i IN drives)
  25.     THEN
  26.      Write (CHR (65 + i));
  27.      WriteString (':  ');
  28.    END;
  29.   END;
  30. END AusgabeLaufwerke;
  31.  
  32.  
  33. VAR ch: CHAR;
  34.     drives: DriveSet;
  35. BEGIN
  36.   WriteString ('Programm zu Demonstration der HDPilot/hdpSTACK Programmiermöglichkeiten');
  37.   WriteLn;
  38.   WriteLn;
  39.   IF HDPSInstalled ()
  40.    THEN
  41.     WriteLn;
  42.     drives:= HDPCacheDrvMap ();
  43.     IF (HDPResult = 0)
  44.      THEN
  45.       WriteString ('Der Cache ist für folgende Laufwerke eingeschaltet:');
  46.       WriteLn;
  47.       AusgabeLaufwerke (drives);
  48.       WriteLn;
  49.      ELSE
  50.       WriteString ('Die Cache-Laufwerkseinstellung kann nicht ermittelt werden.');
  51.       WriteLn;
  52.     END;
  53.  
  54.     WriteLn;
  55.     drives:= HDPVerifyDrvMap ();
  56.     IF (HDPResult = 0)
  57.      THEN
  58.       WriteString ('Verify ist für folgende Laufwerke eingeschaltet:');
  59.       WriteLn;
  60.       AusgabeLaufwerke (drives);
  61.       WriteLn;
  62.      ELSE
  63.       WriteString ('Die Verify-Laufwerkseinstellung kann nicht ermittelt werden.');
  64.       WriteLn;
  65.     END;
  66.  
  67.     WriteLn;
  68.     drives:= HDPWrtProtDrvMap ();
  69.     IF (HDPResult = 0)
  70.      THEN
  71.       WriteString ('Folgende Laufwerke sind schreibgeschützt:');
  72.       WriteLn;
  73.       AusgabeLaufwerke (drives);
  74.       WriteLn;
  75.      ELSE
  76.       WriteString ('Welche Laufwerke schreibgeschützt sind, kann nicht ermittelt werden.');
  77.       WriteLn;
  78.     END;
  79.  
  80.     WriteLn;
  81.     drives:= HDPSComprDrvMap ();
  82.     IF (HDPResult = 0)
  83.      THEN
  84.       WriteString ('Folgende Laufwerke sind komprimiert:');
  85.       WriteLn;
  86.       AusgabeLaufwerke (drives);
  87.       WriteLn;
  88.      ELSE
  89.       WriteString ('Welche Laufwerke komprimiert sind, kann nicht ermittelt werden.');
  90.       WriteLn;
  91.     END;
  92.  
  93.    ELSE
  94.     WriteString ('hdpSTACK ist nicht installiert.');
  95.     WriteLn;
  96.   END;
  97.   WriteLn;
  98.   WriteString ('<Taste> drücken...');
  99.   Read (ch);
  100. END HDPSTest.
  101.  
  102.