getx.pas

{Getx.PAS}
 
{ Пример программы для функции GetX }
 
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.