OWN VARIABLES

A tag

    If the stack is empty the adsign the default value to
    the last descriptor to have been defined.
    Otherwise, assign the constant desribed by the item on
    the stack to the last descriptor to have been defined.

    'tag' specifies the number of elements to be assigned
    the value, zero meaning that the value is to be ignored;
    'tag' is 1 if the object being initialised is not an
    array.

    N1$1J,21,1,1A1              owninteger J=1
    $2K,21,1,1A1N3$3L,21,1,1A1  owninteger K,L=3
    N24b $4A,33,1,1N1A3         ownintegerarray A(2:4)=1(3)

l   Initialise the whole of the last (own array) descriptor
    defined to the default value.

b   Construct a constant dope-vector for an own array or
    switch vector from the last two constants described on the
    top of the stack.

              e.g. ownintegerarray Q(2:4)

              N2N4b          define bounds
              $6Q,33,1,1     define 'Q'
              l              initialise to default value

                   ownintegerarray S(3:6) = 0, 1, 2

              N3N6b          define bounds
              $10S,33,1,1    define 'S'
              N0A1N1A1N2A1   assign initial values





















                           8