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

100 STRING X$(1 TO 2)
110 LET X$(1)="apple":LET X$(2)="orange"
120 PRINT "The length of the array 'X$' is";SIZE(X$)
	`100 STRING X$(1 TO 2)`
	`110 LET X$(1)="apple":LET X$(2)="orange"`
	`120 PRINT "The length of the array 'X$' is";SIZE(X$)`