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

100 LET I=0
110 DO
120   LET I=I+1
130   PRINT I
140 LOOP UNTIL MOD(I,6)=0