
  PROCEDURE [INLINE] fdp$ptr_screen_variable
    (    p_screen_record: ^array [1 .. * ] of cell;
         screen_record_position: fdt$record_length;
         screen_variable_length: fdt$record_length;
     VAR p_screen_variable: ^string ( * ));

    VAR
      p_screen_sequence: ^SEQ ( * ),
      p_variable: ^array [1 .. * ] of cell;

    p_screen_sequence := #SEQ (p_screen_record^);
    RESET p_screen_sequence;
    IF screen_record_position > 1 THEN
      NEXT p_variable: [1 .. screen_record_position - 1] IN p_screen_sequence;
    IFEND;
    NEXT p_screen_variable: [screen_variable_length] IN p_screen_sequence;

  PROCEND fdp$ptr_screen_variable;

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