normvid.pas

{NormVid.PAS}
 
{ Пример программы для 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.