RosettaCodeData/Task/Loops-Do-while/BBC-BASIC/loops-do-while.basic
2023-07-01 13:44:08 -04:00

5 lines
53 B
Text

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