September Morn Update

2019-09-12 10:33:56 -07:00 · 2019-09-12 10:33:56 -07:00 · aac6731f2c
commit aac6731f2c
parent 4e2d22a71d
6856 changed files with 141342 additions and 21127 deletions
--- a/Task/Loops-For/BASIC/loops-for-8.basic
+++ b/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.