fpcdocs/crtex/ex6.pp


1
2
3
4
5
6
7
8
9
10
11
12
13

Program Example6;
uses Crt;

{ Program to demonstrate the GotoXY function. }

begin
  ClrScr;
  GotoXY(10,10);
  Write('10,10');
  GotoXY(70,20);
  Write('70,20');
  GotoXY(1,22);
end.