Code:

  proc() = test(a, b)  
    z = getglobal("z") ; the local z takes on the value of 
                       ;    the global z
    z = a +b +z        ; computes the local z as a sum
    z                  ; output of the "local" z
  endp                 

  x = 1
  y = 2
  z = 3
  test(x, y)           ; runs the procedure test with the 
                       ;    values of x and y for the locals 
                       ;    a and b, respectively, prints the
                       ;    local z

  z                    ; prints the global z

© MD*Tech - Method and Data Technologies, generated on 6.6.2000 .