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