begin
recordformat  bfm(record(bfm)name  link, integer  block)
record (bfm) actual
record (bfm) name pointer
  actual = 0
  pointer == actual
  pointer = 0
endofprogram