program Test;

uses
  ApilarCrt;

var
	done : boolean;
begin
  done := false;

  EscrituraDirecta(false);
  ApilarClrScr;
  while(not done) do
  begin
	ApilarGotoXY(1,1);
	ApilarWriteln('1,1   point one'); 
	ApilarGotoXY(5,5);
	ApilarWriteln('5,5   point two');
	ApilarGotoXY(60,15);
	ApilarWriteln('60,15   point three'); 
	ApilarGotoXY(25,20);
	ApilarWriteln('25,20   point four');
	if LeerTeclado = #3 then done := true;
  end;
end.