RosettaCodeData/Task/Loops-Continue/BASIC/loops-continue-3.basic
2017-09-25 22:28:19 +02:00

5 lines
96 B
Text

10 FOR I = 1 to 10
20 PRINT I;
30 IF INT(I/5) = I/5 THEN PRINT : GOTO 50
40 PRINT ", ";
50 NEXT