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

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