 TYPE
    fdt$text_pointer = record
      p_text: REL (fdt$form_module) ^fdt$text,
      text_exists: boolean,
    recend;

*copyc fdt$form_module
*copyc fdt$text
