home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1988 / 02 / appl_grf / imemdisk.pas < prev    next >
Pascal/Delphi Source File  |  1987-12-03  |  838b  |  31 lines
  1. (*------------------------------------------------------------------*)
  2. (*                        IMEMDISK.PAS                              *)
  3. (* Fuer die Kompilierung der Apple-Grafik im Memory-Modus bei Aus-  *)
  4. (* lagerung des Systems auf Diskette.                               *)
  5. (*       (C) Prof. Dr. Rudolf Borges & PASCAL INTERNATIONAL         *)
  6.  
  7. VAR FilVar: FILE;
  8.     Screen: ARRAY(.$3000..$4FFF.) OF BYTE ABSOLUTE $3000;
  9.  
  10.  
  11. PROCEDURE SystemSicherstellen;
  12. BEGIN
  13.   InitErrorCheck;
  14.   Assign(FilVar, 'DEditor.Dta');
  15.   ReWrite(FilVar);
  16.   BlockWrite(FilVar, Screen, 64);
  17.   Close(FilVar);
  18.   GrafikLoeschen;
  19. END;
  20.  
  21.  
  22. PROCEDURE SystemZurueckbringen;
  23. BEGIN
  24.   IF Grafik THEN Exit_Graphic;
  25.   Assign(FilVar, 'DEditor.Dta');
  26.   ReSet(FilVar);
  27.   BlockRead(FilVar, Screen, 64);
  28.   Close(FilVar);
  29.   OldErrorCheck;
  30. END;
  31.