
  TYPE
    bat$tape_io_direction = (bac$iod_reading, bac$iod_writing,
          bac$iod_indeterminate);

