PROCEDURE Main()
   LOCAL aArr := { 10, 20, 30 }, oObj, n

   /* 1. array index += */
   aArr[2] += 5
   ? "1. aArr[2] += 5    =>", aArr[2], "(expect 25)"

   /* 2. alias->field += (use a real workarea) */
   FErase("c.dbf")
   dbCreate("c.dbf", { {"V", "N", 6, 0} })
   USE c.dbf NEW EXCLUSIVE ALIAS x
   dbAppend(); FieldPut(1, 100)
   dbCommit()

   x->v += 7
   ? "2. x->v += 7       =>", x->v, "(expect 107)"

   x->(dbCloseArea())
   FErase("c.dbf")

   /* 3. memvar / private += */
   PRIVATE pSum := 50
   pSum += 25
   ? "3. PRIVATE pSum += 25 =>", pSum, "(expect 75)"

   /* 4. STATIC += (already worked per gengo source, sanity) */
   StaticTest()

   ? "DONE"
   RETURN

STATIC FUNCTION StaticTest()
   STATIC s_n := 100
   s_n += 5
   ? "4. STATIC s_n += 5 =>", s_n, "(expect 105)"
RETURN NIL