%begin
%byteinteger c,d
%integer i,j,k
%routine test(%byte b,%integername n,%byte c)
%if c='c' %and b='b' %and n=12345678 %then printstring("test ok ") %c
       %else printstring("Fail") %and %monitor
%end
j=12345678
test('b',j,'c')
%endofprogram