Mail

В этот день много лет назад...
19 апреля. В 1680 году (346 лет назад) - Дневник пирата Рингроуза: На рассвете проснулся от холода: за ночь он промок от дождя и все тело онемело. В 10 утра, когда дождь уже кончился, его каноэ разбилось о скалу. В 12 дня ему удалось спасти жизнь пяти испанцам, попавшим к пиратам в плен; в час Рингроуз улучил минутку и зарисовал очертания берега. В 4 он продолжил путь. Вечером того же дня попал в плен к испанцам. В 9 часов был приговорен к смерти, в 10 его узнали спасенные утром испанцы, и Рингроуз получил помилование. В 11 испанцы отпустили его на все четыре стороны. В 12 он попытался уснуть, но не мог, потому что промок и дрожал от холода. Чтобы отвлечься, он стал записывать в дневник события прошедшего дня.

Turbo Pascal Documentation

Функция AssignCrt
Модуль Сrt

     Функция: Связывает текстовый файл  с  устройством  СRТ.
(терминалом).
     Описание: AssignCrt(var f: Text)
     Примечания: Процедура АssignCrt работает  точно  также,
как  стандартная  процедура Аssing, за исключением того, что
имени файла не указывается. Вместо этого текстовый файл свя-
зывается с устройством CRТ (терминалом).
     Это позволяет позволяет ускорить вывод  (или  ввод)  по
сравнению  с той скоростью, которая была бы возможна при ис-
пользовании стандартного вывода (или ввода).
     Пример:

uses Crt;
var
    f : text;
begin
Write('Вывести на экран или на устройство печати? [S, P]');
  if UpCase(ReadKey) = 'P' then
     Assign(f,'PRN')   { вывод на устройство печати }
  else
     AssignCrt(f);     { вывод на экран; используются под-
                         программы работы с экраном, осу-
                         ществляющие быстрый вывод информа-
                         ции }
     Rewrite(f);
     Writeln(f,'Быстрый вывод через программы CRT...');
     Close(f)
  end.