Turbo Toolbox/Turbo_Toolbox.iso/1988/02/appl_grf/icomfile.pas

Pascal/Delphi Source File | 1987-12-03 | 467b | 17 lines

(*------------------------------------------------------------------*)
(*                        ICOMFILE.PAS                              *)
(*  Fuer die Kompilierung von Apple-Grafik-Programmen zum COM-File  *)
(*      (C) Prof. Dr. Rudolf Borges & PASCAL INTERNATIONAL          *)

PROCEDURE SystemSicherstellen;
BEGIN
 InitErrorCheck;
 GrafikLoeschen;
END;

PROCEDURE SystemZurueckbringen;
BEGIN
 IF Grafik THEN Exit_Graphic;
 OldErrorCheck;
END;