begin
integer j,i
byte b
if b&15=0 then j=j+1
if b>>6&1#0 then j=j+1
if i&64=0 then j=J+1
endofprogram