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

LET i = 0

DO
   LET i = i + 1
   PRINT i; " ";
LOOP WHILE REMAINDER(i, 6) <> 0
PRINT
END