home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1988 / 02 / appl_grf / imemmem.pas < prev   
Pascal/Delphi Source File  |  1987-12-03  |  666b  |  24 lines
  1. (*------------------------------------------------------------------*)
  2. (*                       IMEMMEM.PAS                                *)
  3. (* Fuer die Kompilierung der Apple-Grafik im Memory-Modus bei Aus-  *)
  4. (* lagerung des Systems im Memory.                                  *)
  5. (*        (C) Prof. Dr. Rudolf Borges & PASCAL INTERNATIONAL        *)
  6.  
  7. VAR Lager: ARRAY(.$3000..$4FFF.) OF BYTE;
  8.  
  9.  
  10. PROCEDURE SystemSicherstellen;
  11. BEGIN
  12.   InitErrorCheck;
  13.   Move(Mem(.$3000.), Lager, $2000);
  14.   GrafikLoeschen;
  15. END;
  16.  
  17.  
  18. PROCEDURE SystemZurueckbringen;
  19. BEGIN
  20.   IF Grafik THEN Exit_Graphic;
  21.   Move(Lager, Mem(.$3000.), $2000);
  22.   OldErrorCheck;
  23. END;
  24.