Текстовый ввод/вывод в графическом режиме 41

Рис. 1.5. Экран, создаваемый тестовой программой

Затем с помощью вызова SetWindow в верхней части экрана создается текстовое окно, в которое выводятся начальные строки PAS—файла с текстом программы. После нажатия на любую клавишу текстовое окно очищается и программа реализует ввод произвольной текстовой строки. После завершения ввода содержимое окна сдвигается вниз и программа ожидает нажатия на любую клавишу.

^+——---——————————————————————+

¦ Пример использования модуля F_GrText I +-__------_-----------------------------+^

Uses CRT,Graph,F_GrText;

const

DX = 50; {Ширина текстового окна} DY = 11; {Высота текстового окна} tl: String='Лучшая в мире система программирования';

t2: String='Турбо Паскаль ';

Grad = Pi/18O; {Перевод градус/радиан}

var

D,R,E: Integer;

Angle: Integer; {Угол поворота букв} xl,yl,x2,y2: Integer; {Координаты окон} F: File; {Файл со шрифтом} FT: Text; {Файл с текстом программы} N: Integer;

Р: Pointer; (Указатель на шрифт}