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