getgrfmd.pas

 {Getgrfmd.PAS}
 
 { Пример программы для функции GetGraphMode }
 
 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.