Using AI to improve code readability

diff --git a/Graphics/Presentations/KHK Intellektika 2004 demo/KHKDEMO2.BAS b/Graphics/Presentations/KHK Intellektika 2004 demo/KHKDEMO2.BAS
index 4ce482e..2d0d9da 100755 (executable)
--- a/Graphics/Presentations/KHK Intellektika 2004 demo/KHKDEMO2.BAS
+++ b/Graphics/Presentations/KHK Intellektika 2004 demo/KHKDEMO2.BAS
@@ -1,46 +1,51 @@
 SCREEN 7, , , 1\r
 \r
 1\r
-FOR a = 1 TO SIN(frm / 30) * 3 + 4\r
-  LOCATE a * 2, a * 4\r
-  COLOR RND * 5 + 10\r
-  PRINT "Programmeerimine ***"\r
+FOR a = 1 TO SIN(frame / 30) * 3 + 4\r
+    LOCATE a * 2, a * 4\r
+    COLOR RND * 5 + 10\r
+    PRINT "Programming is fun!"\r
 NEXT a\r
 \r
-frm = frm + 1\r
-st = (SIN(frm / 10) + 2) / 3\r
-x = SIN(frm / 30) * 50\r
-y = COS(frm / 42) * 30\r
+' Update frame and calculate new values for x, y and step size.\r
+frame = frame + 1\r
+stepSize = (SIN(frame / 10) + 2) / 3\r
+xPos = SIN(frame / 30) * 50\r
+yPos = COS(frame / 42) * 30\r
 \r
-\r
-FOR a = .1 TO 10 STEP st\r
-  CIRCLE (160 + x, 100 + y), 80, 2, , , a\r
+' Draw circles with varying arc sizes.\r
+FOR a = .1 TO 10 STEP stepSize\r
+    CIRCLE (160 + xPos, 100 + yPos), 80, 2, , , a\r
 NEXT a\r
 \r
-c = RND * 2 + 12\r
+' Generate random color value for lines.\r
+randomColor = RND * 2 + 12\r
 FOR a = 0 TO 10\r
-   f = (a + frm) / 12\r
-   f2 = (a + frm) / 7\r
-   x1 = SIN(f) * 50\r
-   y1 = COS(f) * 30\r
-   x2 = SIN(f2 + 6) * 50\r
-   y2 = COS(f2 + 6) * 30\r
-   LINE (x1 + 180, y1 + 150)-(x2 + 180, y2 + 150), c\r
+    f1 = (a + frame) / 12\r
+    f2 = (a + frame) / 7\r
+    x1 = SIN(f1) * 50\r
+    y1 = COS(f1) * 30\r
+    x2 = SIN(f2 + 6) * 50\r
+    y2 = COS(f2 + 6) * 30\r
+    ' Draw line between calculated points.\r
+    LINE (x1 + 180, y1 + 150)-(x2 + 180, y2 + 150), randomColor\r
 NEXT a\r
 \r
+' Draw random pixels on the screen. Like colorful stars in the night sky.\r
 FOR a = 0 TO 50\r
-  x = RND * 320\r
-  y = RND * 320\r
-  PSET (x, y), RND * 15\r
+    xRand = RND * 320\r
+    yRand = RND * 320\r
+    PSET (xRand, yRand), RND * 15\r
 NEXT a\r
 \r
-\r
-\r
+' Copy the current screen to the next page and clear the current screen.\r
 PCOPY 0, 1\r
 CLS\r
 \r
-IF frm > 200 THEN GOTO 2\r
+' Check if frame count has exceeded the limit; if so, chain to another program.\r
+IF frame > 200 THEN GOTO 2\r
 GOTO 1\r
+\r
 2\r
 CHAIN "KHKDEMO3.BAS"\r
 \r