RosettaCodeData/Task/Loops-Continue/QBasic/loops-continue.basic
2024-11-04 21:53:44 -08:00

6 lines
91 B
Text

FOR i = 1 TO 10
PRINT STR$(i);
IF (i MOD 5) THEN PRINT ", "; ELSE PRINT
NEXT i
PRINT
END