/*
 * nizchka: March - 2016
 * This is a Clipper/XBase++ of RosettaCode Array_Length
 */

PROCEDURE MAIN()
        LOCAL FRUIT := { "apples","oranges" }

        ? LEN(FRUIT)
RETURN