Using AI to improve code readability

diff --git a/Graphics/Presentations/KHK Intellektika 2004 demo/KHKDEMO6.BAS b/Graphics/Presentations/KHK Intellektika 2004 demo/KHKDEMO6.BAS
index 980806a..6e53abe 100755 (executable)
--- a/Graphics/Presentations/KHK Intellektika 2004 demo/KHKDEMO6.BAS
+++ b/Graphics/Presentations/KHK Intellektika 2004 demo/KHKDEMO6.BAS
@@ -1,33 +1,31 @@
 SCREEN 13\r
 \r
 LOCATE 1, 1\r
-PRINT "Tulege meile \93ppima!!"\r
+PRINT "   Hello friend!"\r
 \r
+' Loop through each pixel in the screen to create an enlarged version of the current screen\r
 FOR x = 0 TO 160\r
-  FOR y = 0 TO 32\r
-    c = POINT(x, y)\r
-    x1 = x * 2\r
-    y1 = y * 2 + 90\r
-    LINE (x1, y1)-(x1 + 1, y1 + 1), c, BF\r
-  NEXT y\r
+    FOR y = 0 TO 32\r
+        colorVal = POINT(x, y)\r
+        x1 = x * 2\r
+        y1 = y * 2 + 90\r
+        LINE (x1, y1)-(x1 + 1, y1 + 1), colorVal, BF\r
+    NEXT y\r
 NEXT x\r
 \r
 LOCATE 1, 1\r
 PRINT "                     "\r
 \r
+' Draw a series of circles along the screen\r
 FOR x = 0 TO 320\r
-  CIRCLE (x, 130), 10, 9\r
-  SOUND 0, .1\r
+    CIRCLE (x, 130), 10, 9\r
+    SOUND 0, .1\r
 NEXT x\r
 \r
+' Draw horizontal lines creating an X pattern\r
 FOR y = 0 TO 70\r
-  SOUND 0, .1\r
-  LINE (160 - 70 + y, y)-(160 + 70 - y, y), 9\r
+    SOUND 0, .1\r
+    LINE (160 - 70 + y, y)-(160 + 70 - y, y), 9\r
 NEXT y\r
 \r
-FOR a = 1 TO 50\r
-  SOUND 0, 1\r
-NEXT a\r
-\r
-CHAIN "khkdemo.bas"\r
 \r