RosettaCodeData/Task/Loops-Do-while/ASIC/loops-do-while-1.asic

REM Loops/Do-while

I = 0
REM first iteration - before the While
I = I + 1
PRINT I
IMod6 = I MOD 6
WHILE IMod6 <> 0
  I = I + 1
  PRINT I
  IMod6 = I MOD 6
WEND

END