%begin
%recordformat  bfm(%record(bfm)%name  link, %integer  block,   %c
                                %shortintegerarray  b(0:255))
%endofprogram