Path: utzoo!utgpu!news-server.csri.toronto.edu!cs.utexas.edu!swrinde!zaphod.mps.ohio-state.edu!usc!elroy.jpl.nasa.gov!lll-winken!unixhub!slacvm!gjm
From: GJM@SLACVM.SLAC.STANFORD.EDU (Greg Mushial)
Newsgroups: comp.lang.pascal
Subject: Re: TP DetectGraph on ATT 6300
Message-ID: <90319.162001GJM@SLACVM.SLAC.STANFORD.EDU>
Date: 16 Nov 90 00:20:01 GMT
References: <1990Nov12.205905.27226@ux1.cso.uiuc.edu>
Organization: Stanford Linear Accelerator Center
Lines: 21

having lived w/ a 6300 for 7 years now i understand your frustration. i use
the following code to detect a 6300:

found:= true;
i:= 0;
while (found) and (i <= 7) do begin
  if chr(mem[$fc00:($0050+i)]) = copy('OLIVETTI',i+1,1)
  then inc(i)
  else found:= false;
end;
if found then begin
  GrfDrvr:= Att400;
  GrfMode:= Att400Hi;
end;

please note: the new tos 1100 and 1200s support the 6300 standard - the string
you're looking for in these cases is "(C) Copyright Award Software Inc."

good luck,
-greg        (415.926.3772)
gjm@slacvm.slac.stanford.edu