Records


TYPE token IS
    RECORD
      status : handshake;
      color : color_type;
      mon_color : mon_color_type;
    END RECORD;