RosettaCodeData/Task/Conditional-structures/M2000-Interpreter/conditional-structures-3.m2000

Module Checkit {
      def a
      Print type$(a)="Double"
      b=(1,2,3,4)
      for i=1 to 3
            a=if(a->, b)  ' this happen only one time, where a is a double, second time a is an object
            Print a  ' print 3 values
            a++ ' add 1 to each value
            Print type$(a)="mArray"
      Next  i
}
Checkit