RosettaCodeData/Task/Loops-Do-while/BASIC/loops-do-while-2.basic

6 lines
56 B
Plaintext

a=0
REPEAT
INCR a
PRINT a
UNTIL MOD(a,6) == 0