*copyc jmt$forms_code

  TYPE
    nft$forms_code = jmt$forms_code;

