From 56c834361c57ba9fdec17ebc0adcbe2738309e85 Mon Sep 17 00:00:00 2001
From: Jeffrey Armstrong <jeff@approximatrix.com>
Date: Fri, 29 Nov 2024 17:28:27 -0500
Subject: chkdsk output is now converted to kilobytes.

---
 gwfetch.bas | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

(limited to 'gwfetch.bas')

diff --git a/gwfetch.bas b/gwfetch.bas
index 6baaddb..dc71cae 100644
--- a/gwfetch.bas
+++ b/gwfetch.bas
@@ -140,9 +140,12 @@
 11090 IF LEN(MEMTOTAL$) = 0 OR LEN(MEMFREE$) = 0 THEN GOTO 11040 ELSE GOTO 11110
 11100 RESUME 11110
 11110 CLOSE#2
-11120 TOTRIM$ = MEMTOTAL$:GOSUB 30000:MEMTOTAL$ = TOTRIM$
-11130 TOTRIM$ = MEMFREE$:GOSUB 30000:MEMFREE$ = TOTRIM$
-11140 RETURN
+11119 REM Convert to kB since chkdsk is not going to return >1MB in most cases
+11120 MEMNUM = VAL(MEMTOTAL$):MEMNUM = INT(MEMNUM/1024) 
+11130 TOTRIM$ = STR$(MEMNUM):GOSUB 30000:MEMTOTAL$ = TOTRIM$+"kB"
+11140 MEMNUM = VAL(MEMFREE$):MEMNUM = INT(MEMNUM/1024)
+11150 TOTRIM$ = STR$(MEMNUM):GOSUB 30000:MEMFREE$ = TOTRIM$+"kB"
+11160 RETURN
 
 12000 REM CPU Identity
 12001 CPUQ = 0:CPUID% = 0
-- 
cgit v1.2.3