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

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