11 lines
182 B
Text
11 lines
182 B
Text
|
/*
|
||
|
|
* nizchka: March - 2016
|
||
|
|
* This is a Clipper/XBase++ of RosettaCode Array_Length
|
||
|
|
*/
|
||
|
|
|
||
|
|
PROCEDURE MAIN()
|
||
|
|
LOCAL FRUIT := { "apples","oranges" }
|
||
|
|
|
||
|
|
? LEN(FRUIT)
|
||
|
|
RETURN
|