 FUNCTION [INLINE] fdp$ptr_event_command (command: fdt$command,
        p_form_module: ^fdt$form_module): ^fdt$event_command;

    IF NOT command.command_exists THEN
      fdp$ptr_event_command := NIL;
    ELSE
      fdp$ptr_event_command := #PTR (command.p_command, p_form_module^);
    IFEND;
  FUNCEND fdp$ptr_event_command;

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

*copyc fdt$event_command
