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.