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

9 lines
149 B
Plaintext

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