RosettaCodeData/Task/Array-length/XBasic/array-length.basic

PROGRAM	"Array length"
VERSION	"0.0000"

DECLARE FUNCTION  Entry ()

FUNCTION  Entry ()
  DIM F$[2]
  F$[0] = "apple"
  F$[1] = "orange"
  F$[2] = "pear"

  PRINT "The length of the fruit array is "; UBOUND(F$[])
  PRINT F$[1]
END FUNCTION
END PROGRAM