
  CONST
    ioc$tape_num_user_messages = 4,
    ioc$tape_user_mesg_length = 80,
    ioc$tape_marginal_mesg = 1,

    ioc$tape_num_op_messages = 2,
    ioc$tape_op_mesg_length = 80,
    ioc$tape_offline_message = 1,

    ioc$tape_offline_mesg = 1,
    ioc$tape_not_ready_mesg = 2;

  TYPE
    iot$tape_user_mesg_index = 1..ioc$tape_num_user_messages,
    iot$tape_user_message = string (ioc$tape_user_mesg_length),

    iot$tape_op_mesg_index = 1..ioc$tape_num_op_messages,
    iot$tape_op_message_entry = packed record
      response_required: boolean,
      text: string(ioc$tape_op_mesg_length),
    RECEND;
