Unit MainUnit;



interface

{**************************************************************************}

{**************************************************************************}

Procedure MainLoop;

Procedure SetUpScreen;



implementation

{**************************************************************************}

{**************************************************************************}



Procedure MainLoop;

{**************************************************************************}

begin

end;



Procedure SetUpScreen;

{**************************************************************************}

begin

  clrscr;

end;



{**************************************************************************}

{**************************************************************************}

{**************************************************************************}

begin

  SetUpScreen;

end.