Program Vardas;

uses graph,

begin

ekranas;

end.

unit Grafika;

 

interface

uses Grafika,Graph;

procedure ekranas;

 

implementation

Procedure Ekranas;

var gd,gm : integer;

begin

 (*gd := D8Bit; (8Bitu kodas*)

 gd := Detect;//Full window(pilnas langas)=detect; m640x480=Lango dydis jei  m640x480 tada reikia gd pakeisti i gm

 Initgraph(gd,gm,' ');

 {Isitikinkite, kad visada paziurite Graphresult!}

if GraphResult<>grOK then begin

 //WriteLn('Programa negalima naudotis atsiprasome(Can't use this program sorry');

halt(1);

 end;

 {Mes dabar esame pilname lange(We now in full screen}

end;

begin

end.