RosettaCodeData/Task/Dot-product/BBC-BASIC/dot-product.basic

      DIM vec1(2), vec2(2), dot(0)

      vec1() = 1, 3, -5
      vec2() = 4, -2, -1

      dot() = vec1() . vec2()
      PRINT "Result is "; dot(0)