
{* ZCYPCDL  cyp$current_display_line *}

  FUNCTION [XREF] cyp$current_display_line ALIAS 'ZCYPCDL'
    (display_file: cyt$file): cyt$page_length;

?? PUSH (LISTEXT := ON) ??
*copyc cyt$file
*copyc cyt$page_length
?? POP ??

