Path: utzoo!utgpu!news-server.csri.toronto.edu!cs.utexas.edu!usc!julius.cs.uiuc.edu!ux1.cso.uiuc.edu!uxa.cso.uiuc.edu!dslg0849
From: dslg0849@uxa.cso.uiuc.edu (Daniel S. Lewart)
Newsgroups: comp.lang.pascal
Subject: Re: TP DetectGraph on ATT 6300
Message-ID: <1990Nov26.135251.18037@ux1.cso.uiuc.edu>
Date: 26 Nov 90 13:52:51 GMT
References: <1990Nov12.205905.27226@ux1.cso.uiuc.edu>  <NUGE.90Nov16163532@ct59.ctmed@gemed.ge.com> <90323.120938GJM@SLACVM.SLAC.STANFORD.EDU>
Sender: news@ux1.cso.uiuc.edu (News)
Organization: University of Illinois at Urbana
Lines: 31

Thanks to everyone who helped me!  Below is the code that I now use to
determine the graphics driver and mode.

Daniel Lewart
d-lewart@uiuc.edu

-------------------------------------------------------------------------------

Uses Graph;

procedure DetectGraph(var GraphDriver,GraphMode: Integer);
const
  ATTLogo = 'OLIVETTI';
  ATTLen  = Length(ATTLogo);
var
  RomId: array[1..ATTLen] of Char absolute $FC00:$0050;
begin
  if RomId <> ATTLogo then
    Graph.DetectGraph(GraphDriver,GraphMode)
  else
  begin
    GraphDriver := ATT400;
    GraphMode   := ATT400Hi;
  end;
end;

var
  GraphDriver,GraphMode: Integer;
Begin
  DetectGraph(GraphDriver,GraphMode);
End.