From bd7a6757d0293accda929c15c28f901e067c41a0 Mon Sep 17 00:00:00 2001
From: FellippeHeitor <fellippeheitor@gmail.com>
Date: Wed, 22 Jan 2020 14:59:30 -0300
Subject: [PATCH] Reduces percentage updates for console compilation.

---
 source/qb64.bas | 23 +++++++++++++----------
 1 file changed, 13 insertions(+), 10 deletions(-)

diff --git a/source/qb64.bas b/source/qb64.bas
index b2c84e528..0a5fa7a99 100644
--- a/source/qb64.bas
+++ b/source/qb64.bas
@@ -2724,17 +2724,20 @@ DO
         'END IF
         maxprogresswidth = 50 'arbitrary
         percentage = INT(reallinenumber / totallinenumber * 100)
-        percentagechars = INT(maxprogresswidth * reallinenumber / totallinenumber)
-        IF ConsoleMode THEN
-            PRINT "[" + STRING$(percentagechars, ".") + SPACE$(maxprogresswidth - percentagechars) + "]" + STR$(percentage) + "%";
-            IF os$ = "LNX" THEN
-                PRINT CHR$(27) + "[A"
+        IF percentage <> prevpercentage THEN
+            prevpercentage = percentage
+            percentagechars = INT(maxprogresswidth * reallinenumber / totallinenumber)
+            IF ConsoleMode THEN
+                PRINT "[" + STRING$(percentagechars, ".") + SPACE$(maxprogresswidth - percentagechars) + "]" + STR$(percentage) + "%";
+                IF os$ = "LNX" THEN
+                    PRINT CHR$(27) + "[A"
+                ELSE
+                    PRINT CHR$(13);
+                END IF
             ELSE
-                PRINT CHR$(13);
+                LOCATE , 1
+                PRINT "[" + STRING$(percentagechars, 254) + SPACE$(maxprogresswidth - percentagechars) + "]" + STR$(percentage) + "%";
             END IF
-        ELSE
-            LOCATE , 1
-            PRINT "[" + STRING$(percentagechars, 254) + SPACE$(maxprogresswidth - percentagechars) + "]" + STR$(percentage) + "%";
         END IF
     END IF
 
@@ -12509,7 +12512,7 @@ FUNCTION ParseCMDLineArgs$ ()
             CASE "-s" 'Settings
                 settingsMode = -1
                 _DEST _CONSOLE
-                IF qb64versionprinted = 0 THEN qb64versionprinted = -1: PRINT "QB64 COMPILER V" + Version$
+                IF qb64versionprinted = 0 THEN qb64versionprinted = -1: PRINT "QB64 Compiler V" + Version$
                 SELECT CASE LCASE$(MID$(token$, 3))
                     CASE ""
                         PRINT "debuginfo     = ";