RosettaCodeData/Task/Loops-Continue/BASIC/loops-continue-1.basic

6 lines
126 B
Text
Raw Permalink Normal View History

2015-02-20 00:35:01 -05:00
10 FOR I = 1 TO 10
20 PRINT I;
30 IF I - INT (I / 5) * 5 = 0 THEN PRINT : GOTO 50"CONTINUE
40 PRINT ", ";
50 NEXT