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

DIM fruta$(2)
READ fruta$(1), fruta$(2)
DATA "apple", "orange"

LET tamano = UBound(fruta$) - LBound(fruta$) + 1

PRINT "La longitud del array fruta$ es" ; tamano
END