Path: utzoo!mnetor!uunet!husc6!ukma!psuvm.bitnet!cunyvm!byuvax!taylorj
From: taylorj@byuvax.bitnet
Newsgroups: comp.lang.pascal
Subject: RE: Turbo 3, read screen function
Message-ID: <195taylorj@byuvax.bitnet>
Date: 3 May 88 03:40:55 GMT
Lines: 29

There's nothing built into Turbo to read a character from the screen, but
if you're using a true blue IBM or anything compatible on the BIOS level
(99% of all clones are), try the following:

   {Reads character and attribute from screen using BIOS}
procedure getxy(x, y :byte;  var ch, atr :byte);
var
  reg :regpack;
begin
  gotoxy(x,y);
  reg.ah := $08;
  reg.bx := 0;
  intr($10,reg);
  ch := reg.al;
  atr := reg.ah;
end;

Where "regpack" is
type
  regpack = record case integer of
    1: (ax,bx,cx,dx,bp,si,di,ds,es,flags : integer);
    2: (al,ah,bl,bh,cl,ch,dl,dh : byte)
  end;

Jim Taylor
Microcomputer Support for Curriculum, Brigham Young University
taylorj@byuvax.bitnet