Unit Grf;
INTERFACE

Uses Crt,Dos;

Var
   I,J:Integer;
   C  :Char;
   Datum:String [11];
   Szov :String;


Procedure Ablak(X,Y,X2,Y2:Byte);
Procedure AblakT(X,Y,X2,Y2:Byte);
Procedure Hatter;

IMPLEMENTATION

Procedure Ablak(X,Y,X2,Y2:Byte);
 Begin
   TextBackGround(7);TextColor(0);
   For I:=1 to X2 do
       For J:=1 to Y2 do Begin
           GotoXY(X+I,Y+J);Write(' ');End;
   For I:=1 to X2 do Begin
       GotoXY(I+X,Y);Write('�');GotoXY(I+X,Y+Y2);Write('�');End;
   For I:=1 to Y2 do Begin
       GotoXY(X,Y+I);Write('�');GotoXY(X+X2,Y+I);Write('�');End;
   GotoXY(X,Y);   Write('�'); GotoXY(X+X2,Y);   Write('�');
   GotoXY(X,Y+Y2);Write('�'); GotoXY(X+X2,Y+Y2);Write('�');
   TextBackGround(0);TextColor(8);
   For I:=1 to X2 do Begin
       GotoXY(X+1+I,Y+Y2+1);Write('�');End;
   For I:=1 to Y2+1 do Begin
       GotoXY(X+X2+2,Y+I);Write('�');
       GotoXY(X+X2+1,Y+I);Write('�');End;

   TextBackGround(1);
 End;
Procedure AblakT(X,Y,X2,Y2:Byte);
 Begin
   TextBackGround(7);TextColor(Blue);
   For I:=0 to X2+2 do
       For J:=0 to Y2+1 do Begin
           GotoXY(X+I,Y+J);Write('�');End;
 End;
Procedure Hatter;
 Begin
   TexTBackGround(7);Clrscr;TextColor(Blue);
   For I:=1 to 80 do
       For J:=1 to 24 do Begin
           GotoXY(I,J);Write('�');End;
   TextColor(0);GotoXY(1,25);Write(' K�sz�tette :');
   TextColor(4);Write(' Horv�th P�ter');
   TextColor(0);GotoXY(65,25);Write('Men� : ');
   TextColor(4);Write('F10');
 End;


Begin

End.