RosettaCodeData/Task/Loops-Do-while/GW-BASIC/loops-do-while-1.gw-basic

9 lines
149 B
Plaintext

10 LET I% = 0
20 ' first iteration - before the WHILE
30 PRINT I%
40 LET I% = I% + 1
50 WHILE I% MOD 6 <> 0
60 PRINT I%
70 LET I% = I% + 1
80 WEND