unsigned long	ul = %x0DEC0BAD;
byte 	ub;

routine	test	(byte, word, long, string, float, double)
{
byte	zzz = 135;
word	zuw;


	if ( ul ) then
		ub = zzz - ul;
	else	
		ub = %x136 - ul;
	endif


	if ( ul ) then
		ub = %x135 + ul;
	endif
}