NormVid.PAS

Язык:
Русский
English


 { Пример программы для NormVideo, TextBackground и TextColor }

uses Crt;

begin
 { Зеленые символы на черном фоне }
  TextColor(Green);
  TextBackground(Black);
 WriteLn('Привет!');
 { Мигающие светло-красные символы на сером фоне }
  TextColor(LightRed + Blink);
  TextBackground(LightGray);
 WriteLn('Ещё раз привет!');
 { Желтые символы на синем фоне }
  TextColor(14);
 { Константа Yellow = 14 }
  TextBackground(Blue);
 WriteLn('Ну, привет же !!!');
  NormVideo;
 { Восстанавливаем атрибуты }
 WriteLn('Нет никого ??? Тогда, пока !');
end.
Тэги:
| G+
Код для вставки: :: :: :: ::
Поделиться: // //