PROCEDURE Main()
   USE "cdx_bench" NEW
   SET INDEX TO "cdx_bench.cdx"

   ? "Tags:", OrdCount()
   ? "Order1:", OrdName(1)
   ? "Order2:", OrdName(2)
   ? "Order3:", OrdName(3)

   SET ORDER TO 3
   ? "Current:", IndexOrd()
   GO TOP
   ? "Top:", RecNo(), EOF(), BOF()
   ? "Name:", RTrim(FieldGet(2))
   SKIP
   ? "Skip:", RecNo(), EOF()

   SET ORDER TO 1
   GO TOP
   ? "City top:", RecNo(), RTrim(FieldGet(3)), EOF()

   SET ORDER TO 0
   GO TOP
   ? "Natural:", RecNo(), LTrim(Str(FieldGet(1)))
   ? "RC:", RecCount()

   CLOSE ALL
RETURN