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

2 lines
61 B
Plaintext

Module Online { A=1024&: While A>0 {Print A: A/=2}} : OnLine