RosettaCodeData/Task/Loops-While/ERRE/loops-while.erre

6 lines
130 B
Plaintext

I%=1024
WHILE I%>0 DO ! you can leave out >0
PRINT(I%)
I%=I% DIV 2 ! I%=INT(I%/2) for C-64 version
END WHILE