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