#IFNDEF ARRAY_INC
#DEFINE ARRAY_INC

#include "fcreate.inc"

#macro new_array( name )
  clr()
  wr("#define ",name,"(ind)  ")
  run()
#endmacro

#macro array_set(name, ind, val)
   clr()
   wr("#define ",name," ",name)
   wr("#defcont #if ind=",ind,"\\ ",val,"\\#endif\\ ")
   run()
#endmacro
#ENDIF