September 2017 Update

Task/Loops-Continue/BASIC/loops-continue-1.basic

@@ -0,0 +1,5 @@
+ 10  FOR I = 1 TO 10
+ 20  PRINT I;
+ 30  IF I -  INT (I / 5) * 5 = 0 THEN  PRINT : GOTO 50"CONTINUE
+ 40  PRINT ", ";
+ 50  NEXT

Task/Loops-Continue/BASIC/loops-continue-10.basic

@@ -0,0 +1,10 @@
+OPTION EXPLICIT
+
+DIM i AS INTEGER
+
+CLS
+FOR i = 1 TO 10
+ PRINT STR$(i);
+ IF (i MOD 5) THEN PRINT ",";  ELSE PRINT
+NEXT i
+END

Task/Loops-Continue/BASIC/loops-continue-11.basic

@@ -0,0 +1,8 @@
+For i = 1 To 10
+    Console.Write(i)
+    If i Mod 5 = 0 Then
+        Console.WriteLine()
+    Else
+        Console.Write(", ")
+    End If
+Next

Task/Loops-Continue/BASIC/loops-continue-2.basic

@@ -0,0 +1,4 @@
+      FOR i% = 1 TO 10
+        PRINT ; i% ;
+        IF i% MOD 5 = 0 PRINT ELSE PRINT ", ";
+      NEXT

Task/Loops-Continue/BASIC/loops-continue-3.basic

@@ -0,0 +1,5 @@
+10 FOR I = 1 to 10
+20 PRINT I;
+30 IF INT(I/5) = I/5 THEN PRINT : GOTO 50
+40 PRINT ", ";
+50 NEXT

Task/Loops-Continue/BASIC/loops-continue-4.basic

@@ -0,0 +1,12 @@
+' FB 1.05.0 Win64
+For i As Integer = 1 To 10
+  Print Str(i);
+  If i Mod 5 = 0 Then
+    Print
+    Continue For
+  End If
+  Print ", ";
+Next
+
+Print
+Sleep

Task/Loops-Continue/BASIC/loops-continue-5.basic

@@ -0,0 +1,4 @@
+for i =1 to 10
+    if i mod 5 <>0 then print i; ", "; else print i
+next i
+end

Task/Loops-Continue/BASIC/loops-continue-6.basic

@@ -0,0 +1,12 @@
+OpenConsole()
+
+For i.i = 1 To 10
+  Print(Str(i))
+  If i % 5 = 0
+    PrintN("")
+    Continue
+  EndIf
+  Print(",")
+Next
+
+Repeat: Until Inkey() <> ""

Task/Loops-Continue/BASIC/loops-continue-7.basic

@@ -0,0 +1,3 @@
+for i = 1 to 10
+    if i mod 5 <> 0 then print i;", "; else print i
+next i

Task/Loops-Continue/BASIC/loops-continue-8.basic

@@ -0,0 +1,6 @@
+10 FOR I=1 TO 10
+20 PRINT I;
+30 IF I/5=INT (I/5) THEN PRINT
+40 IF I/5=INT (I/5) THEN NEXT I
+50 PRINT ", ";
+60 NEXT I

Task/Loops-Continue/BASIC/loops-continue-9.basic

@@ -0,0 +1,13 @@
+count()
+Prgm
+  ""→s
+  For i,1,10
+    s&string(i)→s
+    If mod(i,5)=0 Then
+      Disp s
+      ""→s
+      Cycle
+    EndIf
+    s&", "→s
+  EndFor
+EndPrgm