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