home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1988 / 02 / appl_grf / icomfile.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1987-12-04  |  467 b   |  17 lines
  1. (*------------------------------------------------------------------*)
  2. (*                        ICOMFILE.PAS                              *)
  3. (*  Fuer die Kompilierung von Apple-Grafik-Programmen zum COM-File  *)
  4. (*      (C) Prof. Dr. Rudolf Borges & PASCAL INTERNATIONAL          *)
  5.  
  6. PROCEDURE SystemSicherstellen;
  7. BEGIN
  8.  InitErrorCheck;
  9.  GrafikLoeschen;
  10. END;
  11.  
  12. PROCEDURE SystemZurueckbringen;
  13. BEGIN
  14.  IF Grafik THEN Exit_Graphic;
  15.  OldErrorCheck;
  16. END;
  17.