FUNCTION ChooseShop($b)
    case $b
      when "C"
        $shop_init = "C"
        $SHOP_NAME = "Clapham"
      when "F"
        $shop_init = "F"
        $SHOP_NAME = "Fulham"
      when "P"
        $shop_init = "P"
        $SHOP_NAME = "Putney"
      when "R"
        $shop_init = "R"
        $SHOP_NAME = "Raynes"
      when "S"
        $shop_init = "S"
        $SHOP_NAME = "Sheen"
      when "T"
        $shop_init = "T"
        $SHOP_NAME = "Trade"
      when "W"
        $shop_init = "W"
        $SHOP_NAME = "Warehouse"
    end case
END FUNCTION 'ChooseShop()