main module TEST32L
%set Debug_Print_CCODE = true
	use textio
	declare
		A : static 32 bit integer 
		B : static 32 bit integer 
	enddeclare

	B := -1
	A := 0
	out_string ( tty,"A is:")
	out_integer (tty,A)
	Out_record ( tty)

	out_string ( tty,"B is:")
	out_integer (tty,B)
	Out_record ( tty)

	
	if A > B do
		tty_line( " I think that A>B" )
	otherwise 
		tty_line( " I think that A not > B" )
	endif

	if A >= B do
		tty_line( " I think that A>=B" )
	otherwise 
		tty_line( " I think that A not >= B" )
	endif

	if A = B do
		tty_line( " I think that A=B" )
	otherwise 
		tty_line( " I think that A not = B" )
	endif

	if A <> B do
		tty_line( " I think that A <> B" )
	otherwise 
		tty_line( " I think that A not <> B" )
	endif
	
endmodule