while true do

--  KEY
-- .--------------------.--------------------.
-- | JEL | Jellyfish    | BLW | Blowfish     |
-- | PIR | Pirana       | SEA | Sea Bream    |
-- | PUF | Puffer       | SBS | Sea Bass     |
-- | TRT | Trout        | POR | Black Porgy  |
-- | RBW | RainbowTrout | OCT | Octopus      |
-- | RED | Red Catfish  | ANG | Angler       |
-- | BAS | Bass         | DEV | Devilfish    |
-- | MAR | MartianSquid | SPR | Spearfish    |
-- | BLK | Black Bass   | WHL | Whale        |
-- | BAR | Barandy      | MCK | Mackerel     |
-- | MOW | Man-o'-War   | MAN | Manillo      |
-- | FLY | Flying Fish  |--------------------'
-- '--------------------'

-- The following tables hold the game's 23 fish in the order
-- the game indexes them, both abbreviated names and lengths.

local name = {"JEL", "PIR", "PUF", "TRT", "RBW", "RED", "BAS",
              "MAR", "BLK", "BAR", "MOW", "FLY", "BLW", "SEA",
              "SBS", "POR", "OCT", "ANG", "DEV", "SPR", "WHL",
              "MCK", "MAN"}
local max =  {30, 40, 50, 70, 70, 80, 40, 80, 90, 200, 30, 20,
              20, 40, 60, 60, 70, 100, 120, 160, 240, 70, 200}

  local i
  for i = 0, 24, 1 do
    caught = mainmemory.read_u8(0x0014688A+i*0x98)
    type = mainmemory.read_u8(0x0014688E+i*0x98) + 1
    length = mainmemory.read_u8(0x00146918+i*0x98)
    xpos = mainmemory.read_s16_le(0x001468B6+i*0x98)
    ypos = mainmemory.read_s16_le(0x001468B8+i*0x98)
    if length > 0 then
      if caught == 0 then
        gui.text(xpos,ypos,""..length,"red")
        gui.text(302,20+i*8,""..length)
        gui.text(278,20+i*8,""..name[type])
        if length >= max[type] then
          gui.text(292,20+i*8,"*","green")
        end
      end
    end
  end

  emu.frameadvance()

end