{ Copyright (c) 1985,90 by Borland International, Inc. }

unit Display;
{ Sample unit for CIRCULAR.PAS }

interface

procedure WriteXY(x, y : integer; s : string);

implementation
uses
  Crt, Error;

procedure WriteXY(x, y : integer; s : string);
begin
  if (x in [1..80]) and (y in [1..25]) then
  begin
    GoToXY(x, y);
    Write(s);
  end
  else
    ShowError('Invalid WriteXY coordinates');
end;

end.