Unit World_G;



interface

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

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



Const

  Screen_G = 20;

  FileDim:word = 256;

  ViewDir = 'World-VF.DIR';



Type

  Direction = (North, East, South, West);

  PointData = record

                BackGround: byte;

                Thing: byte;

                Facing: direction;

              end;

  VidArray = Array[1..Screen_G, 1..Screen_G] of PointData;

  ViewFileType = file of PointData;

  ViewPoint = record

                X: integer;

                Y: integer;

                Facing: Direction;

              end;



Var

  View_G: ViewPoint;



implementation

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

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



begin

end.