RosettaCodeData/Task/Loops-Continue/True-BASIC/loops-continue.basic
2023-07-01 13:44:08 -04:00

10 lines
192 B
Text

FOR i = 1 TO 10
PRINT STR$(i);
IF REMAINDER(i, 5) = 0 THEN
PRINT
ELSE !No existe el comando CONTINUE
PRINT ", ";
END IF
NEXT i
PRINT
END