Block( Func('DimArray',Global,Internal, Block( Param('AName',String,0), Param('AType',Integer,1), Param('AFromN',Integer,2), Param('AToN',Integer,3), Var('i',Integer,Local) ), Block( Let(@i,AFromN), while(i<=AToN, Block( Var(AName+i,AType,Global), Let(@i,i+1) ) ) ), ), Func('InitArray',Global,Internal, Block( Param('AName',String,0), Param('AFromN',Integer,1), Param('AToN',Integer,2), Param('AValue',AnyType,3), Var('i',Integer,Local) ), Block( Let(@i,AFromN), while(i<=AToN, Block( Let('Global.'+AName+i,AValue), Let(@i,i+1) ) ) ), ) )