RosettaCodeData/Task/Loops-Continue/XBasic/loops-continue.basic

PROGRAM "loopcontinue"

DECLARE FUNCTION Entry()

FUNCTION Entry()
  FOR i% = 1 TO 10
    PRINT i%;
    IF i% MOD 5 = 0 THEN
      PRINT
      DO NEXT ' It looks like DO FOR backs to the FOR with the current value of i%
    END IF
    PRINT ", ";
  NEXT i%
END FUNCTION
END PROGRAM