//%set debug_print_ccode = true
main module DIVBUG
    use TEXTIO
    declare
	Item 		: static 6 bit integer initially 12
	Divisor		: 16 bit integer initially 3
	Answers		: static packed array [1..10] of 5 bit integer 
    enddeclare
//    for I := 1 to 10 do
	Answers [1] := Item / Divisor
	out_string (TTY, "Answers [")
//	out_integer (TTY, I)
	out_string (TTY, "] = ")
    	out_integer (TTY, Answers [1])
    	out_record (TTY)
//    endfor
endmodule