vunloadif("oldpurch.vws")

  if areas="PRS"
    $nameareas="Putney Raynes Sheen"
  elseif areas="FT"
    $nameareas="Fulham Trade"
  elseif areas="F"
    $nameareas="Fulham"
  elseif areas="W"
    $nameareas="Warehouse"
  elseif areas="ACFPSTWRHO"
    $nameareas="Fulham Raynes Putney Sheen Trade Warehouse"
  else
    messboxwait(" Area not recognised - contact Head Office ",0,0,1)
    return (-1)
  end if
END FUNCTION ' passwrd1()