10 lines
182 B
Text
10 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
|