листинг 2

      inc(TextColor);
      SetTextParm(TextColor div 16,
                           (TextColor + 48) div 16,1);
      PutText(56,16,?Демонстрационная?);
      SetTextParm(TextColor and $F,0,0);
      PutText(192,16,?программа?);