Code:

  proc() = test(a, b) 
    c = a + b       ; computes c as the sum of a and b, 
                    ;    c is now a local variable
    putglobal("c")  ; declares c to be also GLOBAL variable
  endp               
 
  x = 1
  y = 2
  test(x, y)        ; runs the procedure test taking the 
                    ;    values of the globals x and y for 
                    ;    the locals a and b

  c                 ; output of c, c is accessible here 
                    ;    because it has been transferred by 
                    ;    the putglobal command

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