 PROCEDURE fdp$rel_text (p_text: ^fdt$text;
        p_form_module: ^fdt$form_module;
    VAR text_pointer: fdt$text_pointer);

    IF p_text = NIL THEN
      text_pointer.text_exists := FALSE;
    ELSE
      text_pointer.p_text := #REL (p_text, p_form_module^);
      text_pointer.text_exists := TRUE;
    IFEND;
  PROCEND fdp$rel_text;

?? PUSH (LISTEXT := ON) ??
*copyc fdt$text
*copyc fdt$form_module
*copyc fdt$text_pointer
?? POP ??
