
{$F+}      { Unit prepares screen for games }

{# 1 } Unit InitScr;   { Unit header section}

{## 2 } Interface      { Interface section is empty }

{### 3 } Implementation    { Implementation section }

 Uses
          Crt , Graph ;

Procedure InitGraphMode;   { Graphic mode initalization }
 Var
    GraphDriver , GraphMode , GR : Integer;
Begin
  DetectGraph ( GraphDriver , GraphMode );
 InitGraph ( GraphDriver , GraphMode , 'BGI');
  GR := GraphResult;
 If GR <> GrOk then
                   begin
                     ClrScr;
                      WriteLn;
                       WriteLn ( 'Error ! Graphic error number ' , GR );
                        WriteLn ( GraphErrorMsg ( GR ) ) ;
                      Halt ( GR ) ;
                       WriteLn
                    end;
End;

{#### 4 }     { Initalization section }

Begin
 InitGraphMode ;
End.

