Program Szimulacio_Keret;
Uses crt,graph;
Const
			path='c:\tp\70\bgi';
{Type}
var szl,bf,ja:integer;
 Procedure Szovegesre;
  begin
    CloseGraph;         {lezarja a grafikus uzemmodot}
    RestoreCrtMode;     {Visszaallitja az InitGraph meghivasa elotti
                        kepernyokezelesi modot}
  end;

  Procedure Grafikusra;
    Var
       gd,gm : integer;
  Begin
    DetectGraph(gd,gm);    {detektalja a grafikus eszkozt}
    InitGraph(gd,gm,path); {inicializalja a grafikus rendszert}
  End;

Procedure szimlepes;
	Begin
    szl:=szl+1;
  End;

Procedure szimter(bfszx,bfszy,jaszx,jaszy:integer);
Begin
	rectangle(bfszx,bfszy,jaszx,jaszy);
End;

Procedure grafikon(bfgx,bfgy,jagx,jagy:integer);
Begin
	rectangle(bfgx,bfgy,jagx,jagy);
End;

Procedure parameter(bfpx,bfpy,japx,japy:integer);
Begin
	rectangle(bfpx,bfpy,japx,japy);
End;

Procedure menu(bfmx,bfmy,jamx,jamy:integer);
Begin
	rectangle(bfmx,bfmy,jamx,jamy);
End;

BEGIN
	Grafikusra;
	szimter(30,30,400,300);
  grafikon(30,300,400,400);
  parameter(400,30,600,400);
  menu(30,400,600,450);
  Readkey;
  Szovegesre;
END.