!****h* Set-Up/LevelInit
!   NAME
!     LevelInit -- Level storage array initialization.
!     [LevelSet.MBS]
!   DESCRIPTION
!     This module initializes the level storage array used by
!     LevelSet() and the various layer name modules. 
!     See LevelSet() and README/Layers for more information (e.g. cns()).
! SOURCE

GLOBAL GEOMETRY MODULE LevelInit(
	VAR STRING LevelStatus(100,2)*24);
!***
!
!    Copyright 2006, John J. Hughes
!
!    This source code file is part of the 'NGBproject' files which   
!    execute interactively under the 'VARKON' program, which is   
!    distributed under the terms of the GNU General Public License.
!
!    The 'NGBproject' files are also distributed under the terms of  
!    the GNU GeneralPublic License.  See the GNU General Public License n
!    included ithe file name "COPYING.txt" in the Varkon ./app/NGB/doc 
!    directory for more details.
!
   INT i;

BEGINMODULE

   FOR i:=1 TO 100 DO
	   LevelStatus(i,1):="";
	   LevelStatus(i,2):="";
   ENDFOR;

ENDMODULE