From: Svjatoslav Agejenko <svjatoslav@svjatoslav.eu>
Date: Mon, 21 Oct 2024 21:04:49 +0000 (+0300)
Subject: Using AI to improve code readability
X-Git-Url: http://www2.svjatoslav.eu/gitweb/?a=commitdiff_plain;h=fc8df8f95bfbea41758d9ab4533abc7eb7c12fba;p=qbasicapps.git

Using AI to improve code readability
---

diff --git a/Math/Truth table calculator/truth.bas b/Math/Truth table calculator/truth.bas
index 9116de5..6ecf0f8 100755
--- a/Math/Truth table calculator/truth.bas	
+++ b/Math/Truth table calculator/truth.bas	
@@ -226,7 +226,7 @@ FOR a = 0 TO ln
     prn a, 0, 13, 1, CHR$(tehe(a))
 NEXT a
 
-prn 0, 1, 7, 0, "Do you want to simplyfy it (unfinished so press N)"
+prn 0, 1, 7, 0, "Do you want to simplify it (unfinished so press N)"
 a = 0
 23
 klea
@@ -271,7 +271,6 @@ SUB rmslg (x1, x3, l)
 x2 = x3
 l2 = 0
 
-'FOR a = x1 TO x2
 a = x1
 26
 IF tehe(a) = 40 THEN
@@ -300,7 +299,6 @@ IF tehe(a) = 40 THEN
         a = a - 1
     END IF
 END IF
-'NEXT a
 a = a + 1
 IF a <= x2 THEN GOTO 26
 l = l2
@@ -309,8 +307,8 @@ END SUB
 SUB sist
 ' Interacts with the user to input a logical equation
 CLS
-prn 0, 0, 3, 0, "enter equation (ESC to quit) keys: 1 - " + CHR$(1) + "   2 - " + CHR$(2) + "   3 - " + CHR$(3) + "   4 - " + CHR$(4) + "   5 - " + CHR$(5)
-prn 0, 1, 3, 0, "example: a" + CHR$(1) + "b" + CHR$(2) + "(g" + CHR$(3) + "b)"
+prn 0, 0, 3, 0, "Enter equation (ESC to quit) keys: 1 - " + CHR$(1) + "   2 - " + CHR$(2) + "   3 - " + CHR$(3) + "   4 - " + CHR$(4) + "   5 - " + CHR$(5)
+prn 0, 1, 3, 0, "Example: a" + CHR$(1) + "b" + CHR$(2) + "(g" + CHR$(3) + "b)"
 
 FOR a = 0 TO 79
     tehe(a) = 0
@@ -358,7 +356,6 @@ END IF
 GOTO 1
 4
 
-
 END SUB
 
 SUB start
@@ -415,7 +412,6 @@ NEXT a
 
 SCREEN 12
 
-
 END SUB
 
 SUB tee (x1, x2)
@@ -427,7 +423,6 @@ oprm = 1
 oe = 0
 oex = 0
 
-
 FOR a = x1 TO x2
     b = tehe(a)
     SELECT CASE b
@@ -531,7 +526,6 @@ x2 = x4
 h = 0
 FOR e = 1 TO 4
     g = 1
-    'FOR a = x1 TO x2
     a = x1
     21
     b = tehe(a)
@@ -590,7 +584,6 @@ FOR e = 1 TO 4
         GOTO 16
     END IF
 
-
     SELECT CASE b
         CASE 5
             g = 1
@@ -606,4 +599,4 @@ FOR e = 1 TO 4
     IF a <= x2 THEN GOTO 21
 NEXT e
 l = h
-END SUB
\ No newline at end of file
+END SUB