15 lines
252 B
Text
15 lines
252 B
Text
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
|