RosettaCodeData/Task/Loops-Do-while/QBasic/loops-do-while.basic

a = 0
DO
  a = a + 1
  PRINT a;
LOOP WHILE a MOD 6 <> 0