txtmd.pas

  {TxtMd.PAS}
 
  { Пример программы для TextMode }
 
  Program MyVideo;
  { Переключаем монитор в режим 40x25 и обратно
    Не будет работать на монохромных адаптерах. }
  Uses Crt;
 
  Var OrigMode : Integer;
 
  Begin
   OrigMode:=LastMode;
   TextMode(CO40);
   WriteLn('Большие буквы!');
   ReadLn;
   TextMode(OrigMode);
  End.