outtxtxy.pas

 {Outtxtxy.PAS}
 
 { Пример программы для процедуры OutTextXY }
 
 Uses Graph;
 
 Var Gd, Gm : Integer;
 
 Begin
  Gd:=Detect;
  InitGraph(Gd, Gm, '');
  If GraphResult <> grOk Then Halt(1);
  MoveTo(0, 0);
  OutText('Inefficient');
  ReadLn;
  OutTextXY(GetX, GetY, 'Also inefficient');
  ReadLn;
  ClearDevice;
  OutTextXY(0, 0, 'Perfect!');   { Заменяет верхнюю надпись }
  ReadLn;
  CloseGraph;
End.