
  CONST
    fmc$active_tape_limit = 16;

  TYPE
    fmt$tape_limit = 1 .. fmc$active_tape_limit;

  TYPE
    fmt$tape_init_info = array [1 .. fmc$active_tape_limit] of
      fmt$tape_init_record,

    fmt$tape_init_record = record
      sfid: gft$system_file_identifier,
      lfn: amt$local_file_name,
    recend;

  TYPE
    fmt$tape_buffer_data = array [*] of integer;

?? PUSH (LISTEXT := ON) ??
*copyc gft$system_file_identifier
*copyc amt$local_file_name
?? POP ??
