2016 Update

Task/Loops-For/BASIC/loops-for-10.basic

@@ -1,6 +1,11 @@
-FOR i = 1 TO 5
-   FOR j = 1 TO i
-      PRINT "*";
-   NEXT j
-   PRINT
-NEXT i
+If OpenConsole()
+  Define i, j
+  For i=1 To 5
+    For j=1 To i
+      Print("*")
+    Next j
+    PrintN("")
+  Next i
+  Print(#LFCR$+"Press ENTER to quit"): Input()
+  CloseConsole()
+EndIf

Task/Loops-For/BASIC/loops-for-11.basic

@@ -1,7 +1,6 @@
-Public OutConsole As Scripting.TextStream
-For i = 0 To 4
-    For j = 0 To i
-        OutConsole.Write "*"
-    Next j
-    OutConsole.WriteLine
-Next i
+FOR i = 1 TO 5
+   FOR j = 1 TO i
+      PRINT "*";
+   NEXT j
+   PRINT
+NEXT i

Task/Loops-For/BASIC/loops-for-12.basic

@@ -1,6 +1,7 @@
-For x As Integer = 0 To 4
-    For y As Integer = 0 To x
-        Console.Write("*")
-    Next
-    Console.WriteLine()
-Next
+Public OutConsole As Scripting.TextStream
+For i = 0 To 4
+    For j = 0 To i
+        OutConsole.Write "*"
+    Next j
+    OutConsole.WriteLine
+Next i

Task/Loops-For/BASIC/loops-for-13.basic

@@ -1,6 +1,6 @@
-10 FOR i = 1 TO 5
-20 FOR j = 1 TO i
-30 PRINT "*";
-40 NEXT j
-50 PRINT
-60 NEXT i
+For x As Integer = 0 To 4
+    For y As Integer = 0 To x
+        Console.Write("*")
+    Next
+    Console.WriteLine()
+Next

Task/Loops-For/BASIC/loops-for-7.basic

@@ -1,19 +1,7 @@
-OPENCONSOLE
-
-FOR X=1 TO 5
-
-    FOR Y=1 TO X
-
-    LOCATE X,Y:PRINT"*"
-
-    NEXT Y
-
-NEXT X
-
-PRINT
-
-CLOSECONSOLE
-
+FOR n = 1 to 5 CYCLE
+    FOR k = 1 to n CYCLE
+        print "*";
+    REPEAT
+    PRINT
+REPEAT
 END
-
-'Could also have been written the same way as the Creative Basic example, with no LOCATE command.

Task/Loops-For/BASIC/loops-for-8.basic

@@ -1,6 +1,19 @@
-for i = 1 to 5
-    for j = 1 to i
-        print "*";
-    next
-    print
-next
+OPENCONSOLE
+
+FOR X=1 TO 5
+
+    FOR Y=1 TO X
+
+    LOCATE X,Y:PRINT"*"
+
+    NEXT Y
+
+NEXT X
+
+PRINT
+
+CLOSECONSOLE
+
+END
+
+'Could also have been written the same way as the Creative Basic example, with no LOCATE command.

Task/Loops-For/BASIC/loops-for-9.basic

@@ -1,11 +1,6 @@
-If OpenConsole()
-  Define i, j
-  For i=1 To 5
-    For j=1 To i
-      Print("*")
-    Next j
-    PrintN("")
-  Next i
-  Print(#LFCR$+"Press ENTER to quit"): Input()
-  CloseConsole()
-EndIf
+for i = 1 to 5
+    for j = 1 to i
+        print "*";
+    next
+    print
+next