
{* ZCYPCFP  cyp$current_file_position *}

  FUNCTION [XREF] cyp$current_file_position ALIAS 'ZCYPCFP'
    (file: cyt$file): cyt$current_file_position;

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