Dim a(10)=1
Print a()  ' 1 1 1 1 1 1 1 1 1 1
make(a())
Print a()  ' 2 2 2 2 2 2 2 2 2 2
make2(&a())
Print a()  ' 3 3 3 3 3 3 3 3 3 3
Sub make(A)
      A++
End Sub
Sub make2(&a())
      A=A()
      A++
End Sub