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