Time for an 2014 update…

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

@@ -0,0 +1,6 @@
+FOR i = 1 TO 5
+   FOR j = 1 TO i
+      PRINT "*";
+   NEXT j
+   PRINT
+NEXT i

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

@@ -0,0 +1,7 @@
+Local i,j
+ClrIO
+For i, 1, 5
+  For j, 1, i
+    Output i*8, j*6, "*"
+  EndFor
+EndFor

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

@@ -0,0 +1,15 @@
+'This Prints to the Debug-Window!
+Dim i As Integer
+Dim ii As Integer
+Dim x As Integer
+Dim out As String
+
+output = ""
+
+For i = 1 To 5
+    For ii = 1 To i
+        out = out + "*"
+    Next ii
+    Debug.Print (out)
+    out = ""
+Next i

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

@@ -0,0 +1,6 @@
+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-14.basic

@@ -0,0 +1,6 @@
+10 FOR i = 1 TO 5
+20 FOR j = 1 TO i
+30 PRINT "*";
+40 NEXT j
+50 PRINT
+60 NEXT i

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

@@ -1,6 +1 @@
-10 FOR i = 1 TO 5
-20 FOR j = 1 TO i
-30 PRINT "*";
-40 NEXT j
-50 PRINT
-60 NEXT i
+FOR I = 1 TO 5 : FOR J = 1 TO I : PRINT "*"; : NEXT J : PRINT : NEXT

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

@@ -0,0 +1,6 @@
+      FOR I% = 1 TO 5
+        FOR J% = 1 TO I%
+          PRINT"*";
+        NEXT
+        PRINT
+      NEXT

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

@@ -0,0 +1,21 @@
+OPENCONSOLE
+
+FOR X=1 TO 5
+
+	FOR Y=1 TO X
+		
+            PRINT"*",:'No line feed or carriage return after printing.
+
+	NEXT Y
+
+PRINT
+
+NEXT X
+
+PRINT:PRINT"Press any key to end."
+
+DO:UNTIL INKEY$<>""
+
+CLOSECONSOLE
+
+END

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

@@ -0,0 +1,6 @@
+10 FOR I = 1 TO 5
+20 FOR J = 1 TO I
+30 PRINT "*";
+40 NEXT J
+50 PRINT
+60 NEXT I

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

@@ -0,0 +1,8 @@
+#APPTYPE CONSOLE
+FOR dim i = 1 TO 5
+    FOR dim j = 1 TO i
+        PRINT "*";
+    NEXT j
+    PRINT
+NEXT i
+Pause

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

@@ -0,0 +1,19 @@
+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-8.basic

@@ -0,0 +1,6 @@
+for i = 1 to 5
+    for j = 1 to i
+        print "*";
+    next
+    print
+next

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

@@ -0,0 +1,11 @@
+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