Обработка клавиатуры

function KeyPressed: Boolean;

Функция KeyPressed возвращает True, если произошло нажатие клавиши.

function ReadKey: Char;

Функция ReadKey возвращает символ с клавиатуры, ожидая нажатия.

Окна

procedure Window(X1, Y1, X2, Y2: Byte);

Процедура Window устанавливает окно на экране. Весь дальнейший вывод и ввод информации происходит в его пределах. В качестве параметров передаются координаты левого верхнего и правого нижнего углов

procedure ClrScr;

Процедура ClrScr очищает текущее окно.

Цвета

ТП определяет в модуле Crt 15 констант для цветов текстовых режимов, плюс атрибут мигания, который для требуемого эффекта суммируется с цветом тона.

Константы тона и фона:

Black=0, Blue=1, Green=2, Cyan=3, Red=4, Magenta=5, Brown=6, LightGray=7;

Константы тона:

DarkGray=8, LightBlue=9, LightGreen=10, LightCyan=11, LightRed=12, LightMagenta=13, Yellow=14, White=15;

Атрибут мигания: Blink=128

procedure TextBackground(Color: Byte);

Процедура TextBackground устанавливает цвет фона

procedure TextColor(Color: Byte);

Процедура TextColor устанавливает цвет тона

procedure NormVideo;

Процедура NormVideo восстанавливает цвета тона и фона, определенные до запуска программы.

procedure HighVideo;

Процедура HighVideo устанавливает повышенную яркость символов.

procedure LowVideo;

Процедура LowVideo устанавливает пониженную яркость символов.

Позиционирование курсора

procedure GotoXY(X, Y: Byte);

Процедура GotoXY устанавливает курсор в позицию X,Y

function WhereX: Byte;

Функция WhereX возвращает текущую координату X курсора.

function WhereY: Byte;

Функция WhereY возвращает текущую координату Y курсора.

Экранные строки

procedure ClrEol;

Процедура ClrEol очищает все символы, начиная с позиции курсора до конца строки.

procedure DelLine;

Процедура DelLine удаляет строку, на которой находится курсор, все нижележащие поднимаются выше.

procedure InsLine;

Процедура InsLine вставляет пустую строку по позиции курсора, все нижележащие опускаются ниже.

Звуки

procedure Sound(Hz: Word);

Процедура Sound включает внутренний динамик с частотой звука Hz герц.

procedure NoSound;

Процедура NoSound выключает внутренний динамик

Различные процедуры

procedure TextMode(Mode: Integer);

Процедура TextMode устанавливает текстовый режим экрана.

В модуле Crt определен следующий набор констант режимов экрана:

BW40=0, черно-белый режим 40x25

CO40=1, цветной режим 40x25

BW80=2, черно-белый режим 80x25

CO80=3, цветной режим 80x25

Mono=7, монохромный режим 80x25

procedure AssignCrt(var f: Text);

Процедура AssignCrt сопоставляет текстовый файл с экраном. Таким образом весь дальнейший ввод или вывод в текстовый файл будет перенаправляться на экран.

procedure Delay(MS: Word);

Процедура Delay приостанавливает работу программы на MS тиков.