home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1991 / 09_10 / tricks / test_ovr.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1991-06-06  |  1.5 KB  |  46 lines
  1. (* ------------------------------------------------------- *)
  2. (*                     TEST_OVR.PAS                        *)
  3. (*     Test-Beispiel für Auslagerung in ext. Memory        *)
  4. (* ------------------------------------------------------- *)
  5. USES
  6.   Overlay, OvrXMS, DOS, CRT;
  7.  
  8. {$O DOS}
  9.  
  10. BEGIN
  11.   ClrScr;
  12.   WriteLn('┌─────────────────────────────────────────┐');
  13.   WriteLn('│  Demonstriert Auslagerung von Overlays  │');
  14.   WriteLn('│     (c) 1991 D.Schneider & TOOLBOX      │');
  15.   WriteLn('└─────────────────────────────────────────┘');
  16.   WriteLn;
  17.   OvrInit('Test_ovr.ovr');
  18.   OvrInitXMS;
  19.   IF OvrResult = ovrOK THEN BEGIN
  20.     WriteLn('DOS-Unit wurde als Overlay ausgelagert');
  21.     WriteLn;
  22.     WriteLn('jetzt wird der Overlay-Puffer gelöscht.');
  23.     OvrClearBuf;
  24.     WriteLn;
  25.     WriteLn('jetzt wird die DOS-Unit benutzt');
  26.     WriteLn;
  27.     WriteLn('akt. LW hat ', DiskSize(0), ' Bytes');
  28.     WriteLn('akt. LW hat ', Diskfree(0), ' Bytes frei');
  29.   END ELSE BEGIN
  30.     IF OvrResult = ovrNoXMSDriver THEN BEGIN
  31.       WriteLn(' Kein XMS Treiber installiert');
  32.       WriteLn(' HIDOS.SYS für DRDOS, ');
  33.       WriteLn(' HIMEM.SYS für MSDOS einbinden !!');
  34.     END ELSE IF OvrResult = ovrNoXMSMemory THEN
  35.       WriteLn('nicht genügend ext. Memory frei !')
  36.     ELSE
  37.       WriteLn('allgemeiner Overlay-Fehler');
  38.     END;
  39.   WriteLn;
  40.   WriteLn('press ESC');
  41.   REPEAT UNTIL ReadKey = ^[;
  42. END.
  43. (* ------------------------------------------------------- *)
  44. (*               Ende von TEST_OVR.PAS                     *)
  45.  
  46.