Add16()

         Adds an element into an array16

    Syntax:

         Add16 ( aArray, xValue ) -> Nil

         aArray : The array16 previously created
         xValue : The value of the new element

    Description:

         Adds an element to the end of an array16 and initializes it
         whith the xValor value if this one is specified.

    Return:

         Nothing.

    Example:

         a16 := New16 ( 15000, 0 )
         Add16 ( a16, 0 )          // adds a new element