Language:
Русский
English
{Getx.PAS}
▀▀▀▀▀▀▀▀▀▀▀▀
{Sample code for the GetX function.}
uses Graph;
var
Gd, Gm: Integer;
X, Y: Integer;
begin
Gd := Detect;
InitGraph(Gd, Gm, '');
if GraphResult <> grOk then
Halt(1);
OutText('Starting here. ');
X := GetX;
Y := GetY;
OutTextXY(20, 10, 'Now over here...');
OutTextXY(X, Y, 'Now back over here.');
Readln;
CloseGraph;
end.