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

6 lines
53 B
Plaintext

a = 0
REPEAT
a = a + 1
PRINT a
UNTIL a MOD 6 = 0