moverel.pas

 {Moverel.PAS}
 
{ Пример программы для процедуры MoveRel }
 
Uses Graph;
 
Var Gd, Gm : Integer;
 
Begin
 Gd:=Detect;
 InitGraph(Gd, Gm, '');
 If GraphResult <> grOk Then Halt(1);
 MoveTo(1, 2);
 MoveRel(10, 10); { Перемещаем CP в точку (11, 12) }
 PutPixel(GetX, GetY, GetMaxColor);
 ReadLn;
 CloseGraph;
End.