[Back to CHARS SWAG index]  [Back to Main SWAG index]  [Original]

{
Author: A A Olowofoyeku

As For reading the ASCII stuff from the screen, I have a routine that
allows you to read a Character from any location on the screen.
}

Uses
  Dos;

{-- read the Character at the cursor and return it as a Char --}
Function ScreenChar : Char;
Var
  R : Registers;
begin
  FillChar(R, SizeOf(R), 0);
  R.AH := 8;
  R.BH := 0;
  Intr($10, R);
  ScreenChar := Chr(R.AL);
end;

[Back to CHARS SWAG index]  [Back to Main SWAG index]  [Original]