Crt unit - példaprogram

program CrtPl;
uses Crt;
var  x1, x2, y1, y2: byte;
     c: char;
begin
  x1:=35; y1:=12; x2:=45; y2:=16;
  repeat
    {A régi ablak törlése}
    TextBackground(black);
    ClrScr;
    {Új ablak és a szöveg megjelenítése}
    Window(x1, y1, x2, y2);
    TextBackground(blue);
    TextColor(red);
    ClrScr;
    GotoXY(3, 3);
    WriteLn('szoveg');
    {Várakozás egy billentyű leütésére}
    c := ReadKey;
    {Ha a billentyűzetnek két bájtos kódja van (az első bájt #0), a második bájt beolvasása.
     Ilyenek a kurzormozgató billentyűk.}
    if c = #0 then
      begin
        c := ReadKey;
        case c of
          #72: begin Dec(y1); Dec(y2) end; {Felfele nyíl}
          #80: begin Inc(y1); Inc(y2) end; {Lefele nyíl}
          #77: begin Inc(x1); Inc(x2) end; {Jobbra nyíl}
          #75: begin Dec(x1); Dec(x2) end; {Balra nyíl}
        end;
      end
    {Kilépés ESC-re}
  until c = #27;
  NormVideo;           {Eredeti színek visszaállítása}
  ClrScr
end.