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

16 lines
282 B
Text
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
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