main module testmod

use	textio

declare
	i,j: integer
enddeclare


while true do
tty_line ("Enter i")
i := get_integer(tty_in,eat_line: true)
tty_line ("Enter j")
j := get_integer(tty_in,eat_line: true)

out_string (tty, "I mod J=")
out_integer (tty, i mod j)
out_record (tty)


endwhile

endmodule