
  TYPE
    bat$qlabel = array [1 .. 20] of bat$q_entry,

    bat$q_entry = record
      dummy: integer,
    recend;
