From b159d02c74340a29f863123e14840033ab2f7c97 Mon Sep 17 00:00:00 2001 From: Svjatoslav Agejenko Date: Wed, 11 Sep 2024 18:05:48 +0300 Subject: [PATCH] Using AI to improve code readability --- .../KHK Intellektika 2004 demo/KHKDEMO6.BAS | 30 +++++++++---------- 1 file changed, 14 insertions(+), 16 deletions(-) diff --git a/Graphics/Presentations/KHK Intellektika 2004 demo/KHKDEMO6.BAS b/Graphics/Presentations/KHK Intellektika 2004 demo/KHKDEMO6.BAS index 980806a..6e53abe 100755 --- a/Graphics/Presentations/KHK Intellektika 2004 demo/KHKDEMO6.BAS +++ b/Graphics/Presentations/KHK Intellektika 2004 demo/KHKDEMO6.BAS @@ -1,33 +1,31 @@ SCREEN 13 LOCATE 1, 1 -PRINT "Tulege meile “ppima!!" +PRINT " Hello friend!" +' Loop through each pixel in the screen to create an enlarged version of the current screen FOR x = 0 TO 160 - FOR y = 0 TO 32 - c = POINT(x, y) - x1 = x * 2 - y1 = y * 2 + 90 - LINE (x1, y1)-(x1 + 1, y1 + 1), c, BF - NEXT y + FOR y = 0 TO 32 + colorVal = POINT(x, y) + x1 = x * 2 + y1 = y * 2 + 90 + LINE (x1, y1)-(x1 + 1, y1 + 1), colorVal, BF + NEXT y NEXT x LOCATE 1, 1 PRINT " " +' Draw a series of circles along the screen FOR x = 0 TO 320 - CIRCLE (x, 130), 10, 9 - SOUND 0, .1 + CIRCLE (x, 130), 10, 9 + SOUND 0, .1 NEXT x +' Draw horizontal lines creating an X pattern FOR y = 0 TO 70 - SOUND 0, .1 - LINE (160 - 70 + y, y)-(160 + 70 - y, y), 9 + SOUND 0, .1 + LINE (160 - 70 + y, y)-(160 + 70 - y, y), 9 NEXT y -FOR a = 1 TO 50 - SOUND 0, 1 -NEXT a - -CHAIN "khkdemo.bas" -- 2.20.1