 FUNCTION [INLINE] fdp$ptr_text (text_pointer: fdt$text_pointer,
        p_form_module: ^fdt$form_module): ^fdt$text;

    IF NOT text_pointer.text_exists THEN
      fdp$ptr_text := NIL;
    ELSE
      fdp$ptr_text := #PTR (text_pointer.p_text, p_form_module^);
    IFEND;
  FUNCEND fdp$ptr_text;

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