RosettaCodeData/Task/Array-length/BBC-BASIC/array-length.basic

      DIM array$(1)
      array$() = "apple", "orange"
      PRINT "Number of elements in array = "; DIM(array$(), 1) + 1
      PRINT "Number of bytes in all elements combined = "; SUMLEN(array$())
      END