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 (executable)
--- 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))\r
 NEXT a\r
 \r
-prn 0, 1, 7, 0, "Do you want to simplyfy it (unfinished so press N)"\r
+prn 0, 1, 7, 0, "Do you want to simplify it (unfinished so press N)"\r
 a = 0\r
 23\r
 klea\r
@@ -271,7 +271,6 @@ SUB rmslg (x1, x3, l)
 x2 = x3\r
 l2 = 0\r
 \r
-'FOR a = x1 TO x2\r
 a = x1\r
 26\r
 IF tehe(a) = 40 THEN\r
@@ -300,7 +299,6 @@ IF tehe(a) = 40 THEN
         a = a - 1\r
     END IF\r
 END IF\r
-'NEXT a\r
 a = a + 1\r
 IF a <= x2 THEN GOTO 26\r
 l = l2\r
@@ -309,8 +307,8 @@ END SUB
 SUB sist\r
 ' Interacts with the user to input a logical equation\r
 CLS\r
-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)\r
-prn 0, 1, 3, 0, "example: a" + CHR$(1) + "b" + CHR$(2) + "(g" + CHR$(3) + "b)"\r
+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)\r
+prn 0, 1, 3, 0, "Example: a" + CHR$(1) + "b" + CHR$(2) + "(g" + CHR$(3) + "b)"\r
 \r
 FOR a = 0 TO 79\r
     tehe(a) = 0\r
@@ -358,7 +356,6 @@ END IF
 GOTO 1\r
 4\r
 \r
-\r
 END SUB\r
 \r
 SUB start\r
@@ -415,7 +412,6 @@ NEXT a
 \r
 SCREEN 12\r
 \r
-\r
 END SUB\r
 \r
 SUB tee (x1, x2)\r
@@ -427,7 +423,6 @@ oprm = 1
 oe = 0\r
 oex = 0\r
 \r
-\r
 FOR a = x1 TO x2\r
     b = tehe(a)\r
     SELECT CASE b\r
@@ -531,7 +526,6 @@ x2 = x4
 h = 0\r
 FOR e = 1 TO 4\r
     g = 1\r
-    'FOR a = x1 TO x2\r
     a = x1\r
     21\r
     b = tehe(a)\r
@@ -590,7 +584,6 @@ FOR e = 1 TO 4
         GOTO 16\r
     END IF\r
 \r
-\r
     SELECT CASE b\r
         CASE 5\r
             g = 1\r
@@ -606,4 +599,4 @@ FOR e = 1 TO 4
     IF a <= x2 THEN GOTO 21\r
 NEXT e\r
 l = h\r
-END SUB
\ No newline at end of file
+END SUB\r