27 lines
434 B
Plaintext
27 lines
434 B
Plaintext
|
|
||
|
|
{ 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.
|