RosettaCodeData/Task/Loops-While/M2000-Interpreter/loops-while-1.m2000

Module Checkit {
      Def long A=1024
      While A>0 {
            Print A
            A/=2
      }
}
Checkit