Funkcja i pocedury obsługi ekranu CRT.
Clrscr- usuwa wszystkie znaki z ekranu tekstowego i ustawia kursorw pozycji 0.0 (lewy górny róg)
uses crt;
begin
writeln('pascal');
readln;
clrscr;
writeln('turbo pascal');
readln;
end.

Keypressed- spawdza czy w chwili aktualnej jest wciśnięty jakiś klawisz.
uses crt;
var
a:integer;
begin
a:=0;
repeat
writeeln(a);
a:=a+1;
until keypressed;
end.

GotoXY- pozwala na umieszczenie kusora w dowolnym miejscu ekranu.
Uses crt;
Begin GotoXY(20,10);
write('Ten tekst ozpoczyna sie w 20 kolumnie i 10 wesie');
readln;
end.

ReadKey- zwraca znak odczytany z klawiatury
uses crt;
var znak:char;
begin
writeln('wcisnij jakis klawisz...');
znak:=readkey;
writeln('wcisniety zostal klawisz: ',znak);
readln;
end.

window(x1, y1, x2, y2)- okresla wspolrzedne okna, w koym "dzialamy"
program windows;
uses crt;
begin
window(1,1,80,25);
textbackground(blue);
clrscr;
window(22,12,42,22);
textbackground(black);
clrscr;
window(20,10,40,20);
textbackground(red);
clrscr;
gotoxy(5,5);
textcolor(15);
write('Windows Xp');
readkey;
end.