home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / PASDEMO2.ZIP / GRAPHT2.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1988-01-16  |  711 b   |  23 lines
  1. program GraphTest2;
  2. uses
  3.    Graph;
  4. var
  5.    GraphDriver,
  6.    GraphMode,
  7.    ErrorCode: integer;
  8. begin
  9.    GraphDriver := Detect;   { Set flag: do detection }
  10.    InitGraph( GraphDriver, GraphMode, 'C:\DRIVERS' );
  11.    ErrorCode := GraphResult;
  12.    if ErrorCode <> GrOK then begin  { Error? }
  13.       writeln( 'Graphics error: ', GraphErrorMsg( ErrorCode ) );
  14.       writeln( 'Program aborted...' );
  15.       Halt( 1 );
  16.    end;
  17.    OutText( 'In Graphics mode. Press <RETURN>' ); readln;
  18.    RestoreCRTMode;
  19.    write( 'Now in text mode. Press <RETURN>' ); readln;
  20.    SetGraphMode( GraphMode );
  21.    OutText( 'Back in Graphics mode. Press <RETURN>' ); readln;
  22.    CloseGraph;
  23. end.   { end of program GraphTest }