%set debug_print_ccode=true
main module LOWBOUND
//	use 	TEXTIO

	declare
		AAAAA_mess is packed array [1..4] of char
		BBBBB_type is array [-1..-1] of AAAAA_mess
		BBBBB : BBBBB_type initially BBBBB_type ([-1]:"JOE ",
							 [0]:"SAM ",
							 [1]:"PETE")
	enddeclare

///	BBBBB [0] := "ABCD"

	
//	out_line (TTY, "------------------")
//	for I := -1 to 1 do
//		out_line (TTY, BBBBB[I])
//	endfor
//	out_line (TTY, "------------------")
endmodule