//DEUS � FIEL

PROCEDURE Main()

   LOCAL a, n, s, c

   a := {}
   c := Space( 65535 )
   s := Seconds()

   FOR n := 1 TO 1000000000
      AAdd( a, c )

      IF Len( a ) % 50000 == 0
         ? "Tamanho do Array:", Len( a ), "Tempo:", Seconds() - s
      ENDIF
   NEXT

RETURN