
  VAR
    rav$share_names: [READ] array [pft$share_options] of string (7) := ['READ',
          'SHORTEN', 'APPEND', 'MODIFY', 'EXECUTE'];

?? PUSH (LISTEXT := ON) ??
*copyc pft$share_options
?? POP ??
