From ca6cb56766cddc5e780074529b7e3ed0eef349cb Mon Sep 17 00:00:00 2001
From: Svjatoslav Agejenko <svjatoslav@svjatoslav.eu>
Date: Wed, 16 Oct 2024 23:29:41 +0300
Subject: [PATCH] Using AI to improve code readability

---
 Graphics/3D/3D Synthezier/bin/3dparse.bas | 828 +++++++++++++---------
 1 file changed, 498 insertions(+), 330 deletions(-)

diff --git a/Graphics/3D/3D Synthezier/bin/3dparse.bas b/Graphics/3D/3D Synthezier/bin/3dparse.bas
index 0f6c09a..b7575fd 100755
--- a/Graphics/3D/3D Synthezier/bin/3dparse.bas	
+++ b/Graphics/3D/3D Synthezier/bin/3dparse.bas	
@@ -1,6 +1,12 @@
-' by Svjatoslav Agejenko
-' homeage: http://svjatoslav.eu
-' e-mail: svjatoslav@svjatoslav.eu
+' Program that parses special programmable 3D scene description language
+' and generates from it 3D objects in Wavefront .obj format.
+' By Svjatoslav Agejenko.
+' Email: svjatoslav@svjatoslav.eu
+' Homepage: http://www.svjatoslav.eu
+'
+' Changelog:
+' ?, Initial version
+' 2024, Improved program readability using AI
 
 ' Before running, make sure include path is correct. See below.
 
@@ -17,6 +23,7 @@ DECLARE SUB parse (a$)
 DECLARE SUB geth (b!)
 DECLARE SUB cmd (a$)
 DECLARE SUB getson (a$)
+
 DIM SHARED px(1 TO 1000)
 DIM SHARED py(1 TO 1000)
 DIM SHARED pz(1 TO 1000)
@@ -40,7 +47,9 @@ DIM SHARED cmtl
 
 DIM SHARED stkf(1 TO 500)
 DIM SHARED stks(1 TO 500)
-DIM SHARED stkp, fc, ipath$
+DIM SHARED stkp
+DIM SHARED fc
+DIM SHARED ipath$
 
 DIM SHARED chc$(1 TO 10, 1 TO 500)
 DIM SHARED chcl(1 TO 10)
@@ -52,12 +61,11 @@ DIM SHARED tmr
 
 DIM SHARED var$(0 TO 100)
 DIM SHARED flag(1 TO 50, 0 TO 9)
-DIM SHARED cstatt, cstatm
-
-
-ipath$ = "c:\3dgen\include\"                ' include path
-
+DIM SHARED cstatt
+DIM SHARED cstatm
 
+' Path to include resources from. Adjust according to your installation!
+ipath$ = "C:\GRAPHICS\3D\3DSYNT~1\INCLUDE\"
 
 start
 
@@ -73,372 +81,532 @@ PRINT "done"
 SYSTEM
 
 SUB cmd (z$)
-a$ = z$
-IF LEFT$(a$, 1) = "?" THEN
-IF flag(mtmprs, VAL(RIGHT$(LEFT$(a$, 2), 1))) = 1 THEN a$ = RIGHT$(a$, LEN(a$) - 3) ELSE GOTO 10
-END IF
-getson a$
-SELECT CASE sona$(1)
-CASE "end"
-qui
-PRINT "terminated from file"
-SYSTEM
+    a$ = z$
+    IF LEFT$(a$, 1) = "?" THEN
+        IF flag(mtmprs, VAL(RIGHT$(LEFT$(a$, 2), 1))) = 1 THEN
+            a$ = RIGHT$(a$, LEN(a$) - 3)
+        ELSE
+            GOTO 10
+        END IF
+    END IF
+
+    getson a$
+
+    SELECT CASE sona$(1)
+        CASE "end"
+            qui
+            PRINT "terminated from file"
+            SYSTEM
+
+        CASE "warn"
+            COLOR 12
+            PRINT sona$(2)
+            COLOR 7
+            b$ = INPUT$(1)
+
+        CASE "p"
+            nump = nump + 1
+            numpa = numpa + 1
+            x = VAL(sona$(2))
+            y = VAL(sona$(3))
+            z = VAL(sona$(4))
+
+            ' Transform the coordinates based on the stack
+            FOR b = stkp TO 1 STEP -1
+                SELECT CASE stkf(b)
+                    CASE 1
+                        c1 = SIN(stks(b) / fc)
+                        s1 = COS(stks(b) / fc)
+                        z1 = x * c1 + z * s1
+                        x1 = x * s1 - z * c1
+                        x = x1
+                        z = z1
+
+                    CASE 2
+                        c1 = SIN(stks(b) / fc)
+                        s1 = COS(stks(b) / fc)
+                        z1 = y * c1 + z * s1
+                        y1 = y * s1 - z * c1
+                        y = y1
+                        z = z1
+
+                    CASE 3
+                        s1 = SIN(stks(b) / fc)
+                        c1 = COS(stks(b) / fc)
+                        y1 = y * c1 + x * s1
+                        x1 = y * s1 - x * c1
+                        x = x1
+                        y = y1
+
+                    CASE 10
+                        x = x + stks(b)
+
+                    CASE 11
+                        y = y + stks(b)
+
+                    CASE 12
+                        z = z + stks(b)
+
+                    CASE 20
+                        x = x - stks(b)
+
+                    CASE 21
+                        y = y - stks(b)
+
+                    CASE 22
+                        z = z - stks(b)
+
+                    CASE 30
+                        x = x * stks(b)
+
+                    CASE 31
+                        y = y * stks(b)
+
+                    CASE 32
+                        z = z * stks(b)
+                END SELECT
+            NEXT b
+
+            ' Store the transformed coordinates
+            px(nump) = x
+            py(nump) = y
+            pz(nump) = z
+
+            IF nump > 900 THEN flushp
+
+        CASE "here"
+            numpo = numpa
+
+        CASE "mtl"
+            usemtl sona$(2)
+
+        CASE "mtlrnd"
+            b = INT(RND * (mitus - 1)) + 2
+            usemtl sona$(b)
+
+        CASE "f"
+            IF mtll(cmtl) > 90 THEN flushpoly cmtl
+            b = mtll(cmtl)
+            b = b + 1
+            mtll(cmtl) = b
+            mtlp1(cmtl, b) = VAL(sona$(2)) + numpo
+            mtlp2(cmtl, b) = VAL(sona$(3)) + numpo
+            mtlp3(cmtl, b) = VAL(sona$(4)) + numpo
+
+            ' Handle the optional fourth vertex
+            IF sona$(5) = "" THEN
+                mtlp4(cmtl, b) = -32000
+            ELSE
+                mtlp4(cmtl, b) = VAL(sona$(5)) + numpo
+            END IF
+
+        CASE "obj"
+            d = stkp
+
+            ' Parse the transformation stack
+            FOR a = mitus TO 3 STEP -1
+                b$ = LEFT$(sona$(a), 2)
+                c = VAL(RIGHT$(sona$(a), LEN(sona$(a)) - 2))
+                stkp = stkp + 1
+                stks(stkp) = c
+
+                SELECT CASE b$
+                    CASE "xz"
+                        stkf(stkp) = 1
+
+                    CASE "yz"
+                        stkf(stkp) = 2
+
+                    CASE "xy"
+                        stkf(stkp) = 3
+
+                    CASE "x+"
+                        stkf(stkp) = 10
+
+                    CASE "y+"
+                        stkf(stkp) = 11
+
+                    CASE "z+"
+                        stkf(stkp) = 12
+
+                    CASE "x-"
+                        stkf(stkp) = 20
+
+                    CASE "y-"
+                        stkf(stkp) = 21
+
+                    CASE "z-"
+                        stkf(stkp) = 22
+
+                    CASE "x*"
+                        stkf(stkp) = 30
+
+                    CASE "y*"
+                        stkf(stkp) = 31
+
+                    CASE "z*"
+                        stkf(stkp) = 32
+                END SELECT
+            NEXT a
+
+            ' Process the object command
+            a$ = sona$(2)
+            mtmprs = mtmprs + 1
+            cstatt = cstatt + 1
+
+            LOCATE 10 + mtmprs, 1
+            PRINT a$
+
+            ' Read and execute the next command
+            getchc a$, b
+            c = 1
 
-CASE "warn"
-COLOR 12
-PRINT sona$(2)
-COLOR 7
-b$ = INPUT$(1)
-
-CASE "p"
-nump = nump + 1
-numpa = numpa + 1
-x = VAL(sona$(2))
-y = VAL(sona$(3))
-z = VAL(sona$(4))
-
-FOR b = stkp TO 1 STEP -1
-SELECT CASE stkf(b)
-CASE 1
-c1 = SIN(stks(b) / fc)
-s1 = COS(stks(b) / fc)
-z1 = x * c1 + z * s1
-x1 = x * s1 - z * c1
-x = x1
-z = z1
-
-CASE 2
-c1 = SIN(stks(b) / fc)
-s1 = COS(stks(b) / fc)
-z1 = y * c1 + z * s1
-y1 = y * s1 - z * c1
-y = y1
-z = z1
-
-CASE 3
-s1 = SIN(stks(b) / fc)
-c1 = COS(stks(b) / fc)
-y1 = y * c1 + x * s1
-x1 = y * s1 - x * c1
-x = x1
-y = y1
-
-CASE 10
-x = x + stks(b)
-CASE 11
-y = y + stks(b)
-CASE 12
-z = z + stks(b)
-CASE 20
-x = x - stks(b)
-CASE 21
-y = y - stks(b)
-CASE 22
-z = z - stks(b)
-CASE 30
-x = x * stks(b)
-CASE 31
-y = y * stks(b)
-CASE 32
-z = z * stks(b)
-END SELECT
-NEXT b
-
-px(nump) = x
-py(nump) = y
-pz(nump) = z
-IF nump > 900 THEN flushp
-
-CASE "here"
-numpo = numpa
-
-CASE "mtl"
-usemtl sona$(2)
-
-CASE "mtlrnd"
-b = INT(RND * (mitus - 1)) + 2
-usemtl sona$(b)
-
-CASE "f"
-IF mtll(cmtl) > 90 THEN flushpoly cmtl
-b = mtll(cmtl)
-b = b + 1
-mtll(cmtl) = b
-mtlp1(cmtl, b) = VAL(sona$(2)) + numpo
-mtlp2(cmtl, b) = VAL(sona$(3)) + numpo
-mtlp3(cmtl, b) = VAL(sona$(4)) + numpo
-IF sona$(5) = "" THEN mtlp4(cmtl, b) = -32000 ELSE mtlp4(cmtl, b) = VAL(sona$(5)) + numpo
-
-CASE "obj"
-d = stkp
-FOR a = mitus TO 3 STEP -1
-b$ = LEFT$(sona$(a), 2)
-c = VAL(RIGHT$(sona$(a), LEN(sona$(a)) - 2))
-stkp = stkp + 1
-stks(stkp) = c
-SELECT CASE b$
-CASE "xz"
-stkf(stkp) = 1
-CASE "yz"
-stkf(stkp) = 2
-CASE "xy"
-stkf(stkp) = 3
-CASE "x+"
-stkf(stkp) = 10
-CASE "y+"
-stkf(stkp) = 11
-CASE "z+"
-stkf(stkp) = 12
-CASE "x-"
-stkf(stkp) = 20
-CASE "y-"
-stkf(stkp) = 21
-CASE "z-"
-stkf(stkp) = 22
-CASE "x*"
-stkf(stkp) = 30
-CASE "y*"
-stkf(stkp) = 31
-CASE "z*"
-stkf(stkp) = 32
-END SELECT
-NEXT a
-
-a$ = sona$(2)
-mtmprs = mtmprs + 1
-cstatt = cstatt + 1
-LOCATE 10 + mtmprs, 1
-PRINT a$
-getchc a$, b
-c = 1
 2
-d$ = chc$(b, c)
-cmd d$
-IF chcf$(b) <> a$ THEN getchc a$, b
-c = c + 1
-IF c <= chcl(b) THEN GOTO 2
-tmr = tmr + 1
-IF tmr > 20 THEN tmr = 0: stat
-LOCATE 10 + mtmprs, 1
-PRINT SPACE$(LEN(a$))
-mtmprs = mtmprs - 1
-
-stkp = d
-
-CASE "#"
-
-CASE "out"
-geth res
-OPEN sona$(2) + ".obj" FOR OUTPUT AS #res
-PRINT #res, "mtllib result.mtl"
-
-CASE "rnd"
-b = INT(RND * (mitus - 1)) + 2
-c$ = sona$(b)
-f$ = ""
-FOR d = 1 TO LEN(c$)
-e$ = RIGHT$(LEFT$(c$, d), 1)
-IF e$ = "^" THEN e$ = " "
-f$ = f$ + e$
-NEXT d
-cmd f$
-
-CASE "set"
-var$(VAL(sona$(2))) = sona$(3)
-
-CASE "cmp"
-IF sona$(3) = sona$(4) THEN b = 1 ELSE b = 0
-flag(mtmprs, VAL(sona$(2))) = b
-END SELECT
+                d$ = chc$(b, c)
+                cmd d$
+
+                ' Check if the current command matches the expected one
+                IF chcf$(b) <> a$ THEN
+                    getchc a$, b
+                END IF
+
+                c = c + 1
+
+                ' Continue reading and executing commands until the stack is empty
+                IF c <= chcl(b) THEN GOTO 2
+
+            tmr = tmr + 1
+
+            ' If more than 20 commands have been processed, update statistics
+            IF tmr > 20 THEN
+                tmr = 0
+                stat
+            END IF
+
+            LOCATE 10 + mtmprs, 1
+            PRINT SPACE$(LEN(a$))
+
+            ' Decrement the command parser stack
+            mtmprs = mtmprs - 1
+
+            stkp = d
+
+        CASE "#"
+
+        CASE "out"
+            geth res
+            OPEN sona$(2) + ".obj" FOR OUTPUT AS #res
+            PRINT #res, "mtllib result.mtl"
+
+        CASE "rnd"
+            b = INT(RND * (mitus - 1)) + 2
+            c$ = sona$(b)
+
+            ' Replace caret characters with spaces
+            f$ = ""
+            FOR d = 1 TO LEN(c$)
+                e$ = RIGHT$(LEFT$(c$, d), 1)
+                IF e$ = "^" THEN
+                    e$ = " "
+                END IF
+                f$ = f$ + e$
+            NEXT d
+
+            cmd f$
+
+        CASE "set"
+            var$(VAL(sona$(2))) = sona$(3)
+
+        CASE "cmp"
+            ' Compare two strings
+            IF sona$(3) = sona$(4) THEN
+                b = 1
+            ELSE
+                b = 0
+            END IF
+
+            ' Store the comparison result in the flag array
+            flag(mtmprs, VAL(sona$(2))) = b
+
+    END SELECT
 
 10
 END SUB
 
 SUB flushp
 
-FOR a = 1 TO nump
-PRINT #res, "v " + STR$(px(a)) + " " + STR$(py(a)) + " " + STR$(-pz(a))
-NEXT a
-nump = 0
+    FOR a = 1 TO nump
+        PRINT #res, "v " + STR$(px(a)) + " " + STR$(py(a)) + " " + STR$(-pz(a))
+    NEXT a
+
+    nump = 0
 
 END SUB
 
 SUB flushpoly (a)
-IF mtll(a) = 0 THEN GOTO 5
 
-PRINT #res, "usemtl " + mtl$(a)
-FOR b = 1 TO mtll(a)
-c$ = "f " + STR$(mtlp1(a, b) + 1) + STR$(mtlp2(a, b) + 1) + STR$(mtlp3(a, b) + 1)
-IF mtlp4(a, b) <> -32000 THEN c$ = c$ + STR$(mtlp4(a, b) + 1)
-PRINT #res, c$
-NEXT b
-mtll(a) = 0
+    IF mtll(a) = 0 THEN GOTO 5
+
+    ' Write the material usage line
+    PRINT #res, "usemtl " + mtl$(a)
+
+    ' Write the face definitions
+    FOR b = 1 TO mtll(a)
+        c$ = "f " + STR$(mtlp1(a, b) + 1) + STR$(mtlp2(a, b) + 1) + STR$(mtlp3(a, b) + 1)
+
+        ' Handle the optional fourth vertex
+        IF mtlp4(a, b) <> -32000 THEN
+            c$ = c$ + STR$(mtlp4(a, b) + 1)
+        END IF
+
+        PRINT #res, c$
+    NEXT b
+    mtll(a) = 0
 
 5
 END SUB
 
-SUB getchc (a$, b)
-'DIM SHARED cstatt, cstatm
-FOR c = 1 TO 10
-IF chcf$(c) = a$ THEN b = c: GOTO 6
-NEXT c
-
-d = 32000
-FOR c = 1 TO 10
-IF chct(c) < d THEN d = chct(c): e = c
-NEXT c
-g = 0
-geth f
-'PRINT "file " + a$ + " loaded"
-cstatm = cstatm + 1
-b$ = a$
-IF LEFT$(b$, 1) = "~" THEN b$ = RIGHT$(b$, LEN(b$) - 1) ELSE b$ = ipath$ + b$
-OPEN b$ + ".3d" FOR INPUT AS #f
+SUB getchc (a$, b!)
+
+    ' Search for the command in the cache
+    FOR c = 1 TO 10
+        IF chcf$(c) = a$ THEN
+            b = c
+            GOTO 6
+        END IF
+    NEXT c
+
+    ' Find the least recently used entry in the cache
+    d = 32000
+    FOR c = 1 TO 10
+        IF chct(c) < d THEN
+            d = chct(c)
+            e = c
+        END IF
+    NEXT c
+
+    ' Load the command file
+    g = 0
+    geth f
+
+    cstatm = cstatm + 1
+    b$ = a$
+
+    ' Remove leading tilde if present
+    IF LEFT$(b$, 1) = "~" THEN
+        b$ = RIGHT$(b$, LEN(b$) - 1)
+    ELSE
+        b$ = ipath$ + b$
+    END IF
+
+   
+    PRINT "File:" + b$
+    OPEN b$ + ".3d" FOR INPUT AS #f
+
 8
-IF EOF(f) <> 0 THEN GOTO 7
-LINE INPUT #f, c$
-IF (LEFT$(c$, 1) <> "#") AND (c$ <> SPACE$(LEN(c$))) THEN g = g + 1: chc$(e, g) = c$
-GOTO 8
+
+    ' Read commands from the file until EOF
+    IF EOF(f) <> 0 THEN GOTO 7
+
+    LINE INPUT #f, c$
+
+    ' Skip empty lines
+    IF (LEFT$(c$, 1) <> "#") AND (c$ <> SPACE$(LEN(c$))) THEN
+        g = g + 1
+        chc$(e, g) = c$
+    END IF
+
+    GOTO 8
+
 7
-CLOSE #f
-fil(f) = 0
-chcl(e) = g
-b = e
-chcf$(e) = a$
-stat
+
+    ' Close the file and update statistics
+    CLOSE #f
+    fil(f) = 0
+    chcl(e) = g
+
+    b = e
+    chcf$(e) = a$
+
+    stat
+
 6
-chctim = chctim + 1
-chct(b) = chctim
-
-IF chctim > 10000 THEN
-FOR c = 1 TO 10
-chct(c) = chct(c) / 2
-NEXT c
-chctim = chctim / 2
-END IF
+
+    ' Update the cache timestamps
+    chctim = chctim + 1
+    chct(b) = chctim
+
+    ' If the cache is full, halve all timestamps
+    IF chctim > 10000 THEN
+        FOR c = 1 TO 10
+            chct(c) = chct(c) / 2
+        NEXT c
+
+        chctim = chctim / 2
+    END IF
 END SUB
 
-SUB geth (b)
+SUB geth (b!)
 
-FOR a = 1 TO 100
-IF fil(a) = 0 THEN fil(a) = 1: b = a: GOTO 1
-NEXT a
-1
-'PRINT "handle ", b, " allocated"
+    ' Find an unused file handle
+    FOR a = 1 TO 100
+        IF fil(a) = 0 THEN
+            fil(a) = 1
+            b = a
+            GOTO 1
+        END IF
+    NEXT a
 
+1
 END SUB
 
 SUB getson (a$)
-b$ = a$ + " "
-
-FOR a = 1 TO 20
-sona$(a) = ""
-NEXT a
-
-mitus = 0
-e = 1
-FOR c = 1 TO LEN(b$)
-d$ = RIGHT$(LEFT$(b$, c), 1)
-IF d$ = " " OR d$ = CHR$(9) THEN
-e = 1
-ELSE
-IF e = 1 THEN mitus = mitus + 1
-sona$(mitus) = sona$(mitus) + d$
-e = 0
-END IF
-NEXT c
-
-FOR c = 1 TO mitus
-IF LEFT$(sona$(c), 1) = "%" THEN
-sona$(c) = var$(VAL(RIGHT$(sona$(c), LEN(sona$(c)) - 1)))
-END IF
-NEXT c
+
+    ' Prepare the sona array for parsing
+    b$ = a$ + " "
+
+    FOR a = 1 TO 20
+        sona$(a) = ""
+    NEXT a
+
+    mitus = 0
+
+    e = 1
+
+    ' Parse the input string
+    FOR c = 1 TO LEN(b$)
+        d$ = RIGHT$(LEFT$(b$, c), 1)
+
+        IF d$ = " " OR d$ = CHR$(9) THEN
+            e = 1
+        ELSE
+            IF e = 1 THEN
+                mitus = mitus + 1
+            END IF
+
+            sona$(mitus) = sona$(mitus) + d$
+            e = 0
+        END IF
+    NEXT c
+
+    ' Replace variable names with their values
+    FOR c = 1 TO mitus
+        IF LEFT$(sona$(c), 1) = "%" THEN
+            sona$(c) = var$(VAL(RIGHT$(sona$(c), LEN(sona$(c)) - 1)))
+        END IF
+    NEXT c
 END SUB
 
 SUB qui
 
-flushp
-FOR a = 1 TO mtlm
-flushpoly a
-NEXT a
-stat
+    ' Flush the vertex buffer and write all polygons
+    flushp
+
+    FOR a = 1 TO mtlm
+        flushpoly a
+    NEXT a
+
+    stat
 END SUB
 
 SUB start
-RANDOMIZE TIMER
-
-FOR a = 1 TO 50
-FOR b = 0 TO 9
-flag(a, b) = 0
-NEXT b
-NEXT a
-
-FOR a = 0 TO 100
-var$(a) = ""
-NEXT a
-
-FOR a = 1 TO 10
-FOR b = 1 TO 500
-chc$(a, b) = ""
-NEXT b
-chcl(a) = 0
-chcf$(a) = ""
-chct(a) = 0
-NEXT a
-
-FOR a = 1 TO 50
-mtll(a) = 0
-NEXT a
-
-FOR a = 1 TO 100
-fil(a) = 0
-NEXT a
-nump = 0
-numpa = 0
-numpo = 0
-mtlm = 0
-stkp = 0
-fc = 180 / 3.141285
-chctim = 0
-mtmprs = 0
-cstatt = 0
-cstatm = 0
+
+    RANDOMIZE TIMER
+
+    ' Initialize arrays
+    FOR a = 1 TO 50
+        FOR b = 0 TO 9
+            flag(a, b) = 0
+        NEXT b
+    NEXT a
+
+    FOR a = 0 TO 100
+        var$(a) = ""
+    NEXT a
+
+    ' Initialize command cache
+    FOR a = 1 TO 10
+        FOR b = 1 TO 500
+            chc$(a, b) = ""
+        NEXT b
+
+        chcl(a) = 0
+        chcf$(a) = ""
+        chct(a) = 0
+    NEXT a
+
+    ' Initialize material lists
+    FOR a = 1 TO 50
+        mtll(a) = 0
+    NEXT a
+
+    ' Initialize file handles
+    FOR a = 1 TO 100
+        fil(a) = 0
+    NEXT a
+
+    nump = 0
+    numpa = 0
+    numpo = 0
+    mtlm = 0
+    stkp = 0
+    fc = 180 / 3.141285
+    chctim = 0
+    mtmprs = 0
+    cstatt = 0
+    cstatm = 0
 END SUB
 
 SUB stat
-LOCATE 1, 1
-FOR a = 1 TO 10
-PRINT a, chcf$(a), chct(a), chcl(a)
-NEXT a
-COLOR 10
-LOCATE 1, 50
-PRINT cstatt; "parsed"
-LOCATE 2, 50
-PRINT cstatm; "chache miss"
-LOCATE 3, 50
-PRINT INT(cstatm / cstatt * 100); "% chache miss  "
-
-COLOR 7
 
+    ' Display statistics
+    LOCATE 1, 1
+
+    FOR a = 1 TO 10
+        PRINT a, chcf$(a), chct(a), chcl(a)
+    NEXT a
+
+    COLOR 10
+
+    LOCATE 1, 50
+    PRINT cstatt; "parsed"
+
+    LOCATE 2, 50
+    PRINT cstatm; "cache miss"
+
+    LOCATE 3, 50
+    PRINT INT(cstatm / cstatt * 100); "% cache miss  "
+
+    COLOR 7
 END SUB
 
-SUB stat2 (b)
-CLS
-FOR a = 1 TO chcl(b)
-PRINT chc$(b, a)
-NEXT a
+SUB stat2 (b!)
 
-c$ = INPUT$(1)
+    ' Display the contents of a specific command cache
+    CLS
+
+    FOR a = 1 TO chcl(b)
+        PRINT chc$(b, a)
+    NEXT a
+
+    c$ = INPUT$(1)
 END SUB
 
 SUB usemtl (a$)
-FOR b = 1 TO mtlm
-IF mtl$(b) = a$ THEN cmtl = b: GOTO 4
-NEXT b
 
-mtlm = mtlm + 1
-mtl$(mtlm) = a$
-cmtl = mtlm
+    ' Find the material in the list
+    FOR b = 1 TO mtlm
+        IF mtl$(b) = a$ THEN
+            cmtl = b
+            GOTO 4
+        END IF
+    NEXT b
+
+    ' If not found, add it to the list
+    mtlm = mtlm + 1
+    mtl$(mtlm) = a$
+    cmtl = mtlm
+
 4
 END SUB
 
-- 
2.20.1