rstcrtmd.pas

~
 {Rstcrtmd.PAS}
 
 { Пример программы для процедуры RestoreCrtMode }
 
 Uses Graph;
 
 Var Gd, Gm : Integer;
       Mode : Integer;
 
 Begin
  Gd:=Detect;
  InitGraph(Gd, Gm, '');
  If GraphResult <> grOk Then  Halt(1);
  OutText('Press <ENTER> to leave graphics:');
  ReadLn;
  RestoreCrtMode;
  WriteLn('В текстовом режиме');
  Write('Нажмите <ENTER>, чтобы войти в графический режим:');
  ReadLn;
  SetGraphMode(GetGraphMode);
  OutTextXY(0, 0, 'Back in graphics mode');
 OutTextXY(0, TextHeight('H'), 'Press <ENTER> to quit:');
 ReadLn;
 CloseGraph;
End.