FUNCTION ChooseShop()
local leftjob currec
  s1 = "Warehouse"
  s2 = "Trade"
  s3 = "Fulham"
  s4 = "Raynes"
  s5 = "Sheen"
  s7 = "Putney"

  if $menu = "shop"              'message "base is:"&str(base)
    if base="F"
      $SHOP_NAME = PickShop(s3,s2)
      $shop = left($SHOP_NAME,1)

    elseif base="P"
      $shop = "P"
      $SHOP_NAME = "Putney"

    elseif base="S"
      $SHOP_NAME = PickShop(s5,s4)
      $shop = left($SHOP_NAME,1)

    elseif base="W"
      $shop = "W"
      $SHOP_NAME = "Warehouse"
    end if

  else
    $shop_name = ChooseBranch(8,33,1)
    $shop = upper(left($shop_name,1))  '
  end if
  vloadif(dpath|"ord_rep1.vw")
END FUNCTION ' ChooseShop()