recordformatspec fr
recordformat rf(integer qa, qb, integername qc, record(fr)name backlink)
recordformat fr(integer a, integername xa, record (rf) rec, record (rf) name recn)

routine recparams(integer x,y, integername xp, record (fr) r, record (fr) name rn)
  integer i
  record (rf) local
!  i = x
!  i = xp

  i = r_a
  i = r_xa
!  i = r_rec_qa
!  i = r_rec_qc
!  i = r_recn_qa
  i = r_recn_qc

!  i = rn_a
!  i = rn_xa
!  local = rn_rec
!  i = rn_rec_qa
!  i = rn_rec_qc
!  i = rn_recn_qa
!  i = rn_recn_qc

! ? rn_a
  
end

endoffile