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