September Morn Update

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

@@ -1,6 +1,19 @@
-For i = 1 TO 5
-  For j = 1 To i
-    TextWindow.Write("*")
-  EndFor
-  TextWindow.WriteLine("")
-EndFor
+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-11.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

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

@@ -1,6 +1,6 @@
-FOR i = 1 TO 5
-   FOR j = 1 TO i
-      PRINT "*";
-   NEXT j
-   PRINT
-NEXT i
+For i = 1 TO 5
+  For j = 1 To i
+    TextWindow.Write("*")
+  EndFor
+  TextWindow.WriteLine("")
+EndFor

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

@@ -1,6 +1,11 @@
-for n = 1 to 5
-    for m = 1 to n
-        print "*";
-    next m
-    print
-next n
+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-14.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-15.basic

@@ -1,6 +1,6 @@
-For x As Integer = 0 To 4
-    For y As Integer = 0 To x
-        Console.Write("*")
-    Next
-    Console.WriteLine()
-Next
+for n = 1 to 5
+    for m = 1 to n
+        print "*";
+    next m
+    print
+next n

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

@@ -1,6 +1,7 @@
-10 FOR i = 1 TO 5
-20 FOR j = 1 TO i
-30 PRINT "*";
-40 NEXT j
-50 PRINT
-60 NEXT i
+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-17.basic

@@ -1,6 +1,6 @@
-10 FOR I = 1 TO 5
-20 FOR J = 1 TO I
-30 PRINT "*";
-40 NEXT
-50 PRINT
-60 NEXT
+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-18.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-4.basic

@@ -1,21 +1,6 @@
-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
+10 FOR I = 1 TO 5
+20 FOR J = 1 TO I
+30 PRINT "*";
+40 NEXT
+50 PRINT
+60 NEXT

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

@@ -1,6 +1,21 @@
-10 FOR I = 1 TO 5
-20 FOR J = 1 TO I
-30 PRINT "*";
-40 NEXT J
-50 PRINT
-60 NEXT I
+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-6.basic

@@ -1,8 +1,6 @@
-#APPTYPE CONSOLE
-FOR dim i = 1 TO 5
-    FOR dim j = 1 TO i
-        PRINT "*";
-    NEXT j
-    PRINT
-NEXT i
-Pause
+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-7.basic

@@ -1,7 +1,8 @@
-FOR n = 1 to 5 CYCLE
-    FOR k = 1 to n CYCLE
-        print "*";
-    REPEAT
+#APPTYPE CONSOLE
+FOR dim i = 1 TO 5
+    FOR dim j = 1 TO i
+        PRINT "*";
+    NEXT j
     PRINT
-REPEAT
-END
+NEXT i
+Pause

Task/Loops-For/BASIC/loops-for-8.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-9.basic

@@ -1,6 +1,6 @@
-for i = 1 to 5
-    for j = 1 to i
-        print "*";
-    next
-    print
-next
+100 FOR I=1 TO 5
+110   FOR J=1 TO I
+120     PRINT "*";
+130   NEXT
+140   PRINT
+150 NEXT