
  VAR
    rav$permit_names: [READ] array [pft$permit_options] of string (7) :=
          ['READ', 'SHORTEN', 'APPEND', 'MODIFY', 'EXECUTE', 'CYCLE',
          'CONTROL'];


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