September 2017 Update

2017-09-23 10:01:46 +02:00 · 2017-09-23 10:01:46 +02:00 · ba8067c3b7
commit ba8067c3b7
parent bba7bfd280
14570 changed files with 153136 additions and 63871 deletions
--- a/Task/Colour-bars-Display/FreeBASIC/colour-bars-display.freebasic
+++ b/Task/Colour-bars-Display/FreeBASIC/colour-bars-display.freebasic
@ -8,10 +8,8 @@ Locate ,, 0  '' turn cursor off
 For clr As UInteger = 0 To 15
  Color 0, clr
  For row As Integer = 1 to 25
-    For col As UInteger = 1 To 5
-      Locate row, clr * 5 + 1
-      Print Space(5);
-    Next col
+    Locate row, clr * 5 + 1
+    Print Space(5);
  Next row
 Next clr