RosettaCodeData/Task/Array-length/True-BASIC/array-length-2.basic

DIM fruit$(2)
MAT READ fruit$
DATA "apple", "orange"

PRINT "The length of the array 'fruit$' is "; SIZE(fruit$)
END