RosettaCodeData/Task/Pointers-and-references/M2000-Interpreter/pointers-and-references-3.m2000

A=10
Dim A(10)=1
Module Beta {
      Read X$
      X$.++
}
Beta &A
Print A=11
Beta Weak$(A(2))
Print A(2)=2