%begin
%recordformat resf((%shortinteger h0,%byteinteger b2,b3) %or %integer w)
%record(resf) p,q
%integer i
p=0
p_h0=11
p_b3=1
i=p_h0
q=p
%if q_w= 11<<16!1 %or q_w=1<<24!11 %then printstring("Test OK
") %and %stop
write(q_w,4);newline
write(i,4);newline
write(p_w,4);newline
%endofprogram
