
  VAR
    rav$order_medium: [READ] array [rat$order_medium] of string (4) := ['TAPE',
          'DISK'];

?? PUSH (LISTEXT := ON) ??
*copyc rat$packing_list_types
?? POP ??
