[comp.lang.pascal] Turbo Pascal EGA Mode

maxc0186@ucselx.uucp (05/24/89)

Does anyone know how to access the EGA mode from Turbo Pascal 3.0/4.0,
or have any routines available for doing so?

Many thanks to all!

ts@chyde.uwasa.fi (Timo Salmi LASK) (05/24/89)

In article <3797@munin.UUCP> maxc0186@ucselx.uucp () writes:
>Does anyone know how to access the EGA mode from Turbo Pascal 3.0/4.0,
>or have any routines available for doing so?

Look at Turbo Pascal 4.0 or 5.0 manuals, especially the commands
SetGraphMode, InitGraph, and DetectGraph, and the examples therein.

...................................................................
Prof. Timo Salmi
School of Business Studies, University of Vaasa, SF-65101, Finland
Internet: ts@chyde.uwasa.fi Funet: vakk::salmi Bitnet: salmi@finfun

hartung@amos.ling.ucsd.edu (Jeff Hartung) (05/25/89)

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