main module TESTNBYMc

//%set debug_tree = true
%set debug_print_ccode = true
	use TEXTIO
	declare
		L_start = 1
		L_stop  = 9
		M_start = 1
		M_stop  = 9
		N_Start = 1
		N_stop  = 9
		L_type	is packed array [L_start..L_stop] of char
		M_type	is array [M_Start..M_Stop] of L_type
		N	:  static array [N_start..N_Stop] of M_type
	enddeclare

	for N_index := N_start to N_stop do 
	    for M_index := M_start to M_stop do
		for L_index := L_start to L_stop do

		    for K := -8 to 6 do
			N [N_index][M_index][L_index] := $A
			if N [N_index][M_index][L_index] <> $A do
		    	    out_string (TTY, "Bad compare , N_index = ")
		    	    out_integer (TTY, N_Index)
		    	    out_string (TTY, ", M_index = ")
		    	    out_integer (TTY, M_Index)
		    	    out_string (TTY, ", L_index = ")
		    	    out_integer (TTY, L_Index)
		    	    out_record  (TTY)
			endif
//			if (N [N_index][M_index][L_index] + 1) <> (K + 1) do
//		    	    out_string (TTY, "Bad math, N_index = ")
//		    	    out_integer (TTY, N_Index)
//		    	    out_string (TTY, ", M_index = ")
//		    	    out_integer (TTY, M_Index)
//		    	    out_string (TTY, ", L_index = ")
//		    	    out_integer (TTY, L_Index)
//		    	    out_string (TTY, " K = ")
//		    	    out_integer (TTY, K)
//		    	    out_record  (TTY)
//			endif
		    endfor
		endfor
	    endfor
	endfor
endmodule