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

5 lines
81 B
Plaintext

10 LET I% = 0
20 LET I% = I% + 1
30 PRINT I%
40 IF I% MOD 6 <> 0 THEN GOTO 20