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