Path: utzoo!utgpu!jarvis.csri.toronto.edu!rutgers!ucsd!sdcsvax!amos!hartung
From: hartung@amos.ling.ucsd.edu (Jeff Hartung)
Newsgroups: comp.lang.pascal
Subject: Re: Turbo Pascal EGA Mode
Message-ID: <6491@sdcsvax.UCSD.Edu>
Date: 25 May 89 05:44:37 GMT
References: <3797@munin.UUCP> <528@chyde.uwasa.fi>
Sender: nobody@sdcsvax.UCSD.Edu
Reply-To: hartung@amos.UUCP (Jeff Hartung)
Organization: Univ. of Calif., San Diego
Lines: 30

The following (from Turbo Pascal manual for 5.0) might work, slightly modified
(?), with 3.0 &/or 4.0:

uses Graph;

var
  grDriver: integer;
  grMode: integer;
  ErrCode: integer;

begin
  grDriver := Detect;
  InitGraph(grDriver, grMode, '');
  ErrCode := GraphResult;
  if ErrCode = grOk then
    begin   
      (* Insert whatever graphics you'll do here *)
    end
  else
    begin
      writeln('Graphics error: ', GraphErrorMsg(ErrCode));
end.

Use SetGraphMode(Mode: integer) to set different modes.  For EGA's, 0 is 4
page, 640x200, 16 color; 1 is for 2 page, 640x350, 16 color.

 --Jeff Hartung--  	
 Disclaimer: My opinions only, etc., etc., BLAH! BLAH! BLAH!...
 ARPA - hartung@amos.ucsd.edu          
 UUCP - ucsd!amos.ucsd.edu!hartung