Альтернативный ProgressBar в Message-строке, полуграфический (150 сегментов!)

Описание

Текст примера

 /*Пример вызова*/
import progress;
file account ("account.dbt");

var progress = Tprogress;
progress.nRec = nrecords(account);

while (next(account))
  progress.UseTProgress;
  println(account.account);
end;