ERROR - The program attempts to pass a record to  a  subprogram  using
  either  the  BY  VALUE or BY DESC parameter-passing mechanism.  Remove
  the passing mechanism, or specify BY REF.   BASIC  programs  can  pass
  records only by reference.