From bb57132e82294cf951f574a8f5a96e0566de0201 Mon Sep 17 00:00:00 2001
From: Jeffrey Armstrong <jeff@approximatrix.com>
Date: Thu, 21 Nov 2024 21:12:50 -0500
Subject: Added true detection of DOSBox by reading the BIOS version.  Added
 graphic for DRDOS

---
 gwfetch.bas | 52 +++++++++++++++++++++++++++++++++++++++++++++++++++-
 1 file changed, 51 insertions(+), 1 deletion(-)

diff --git a/gwfetch.bas b/gwfetch.bas
index 12b20f5..9ff7809 100644
--- a/gwfetch.bas
+++ b/gwfetch.bas
@@ -21,7 +21,12 @@
 280 GOSUB 12000:GOSUB 12300
 
 290 REM Get a machine name
+295 DOSBOX = 0
 300 GOSUB 14000
+302 IF CPUID% <> 7 THEN GOTO 310
+303 GOSUB 14500
+304 IF DOSBOX = 0 THEN GOTO 310
+305 MACHINE$ = DBNAME$ + " (Emulator)"
 
 310 REM DOS version
 320 GOSUB 12500
@@ -32,7 +37,8 @@
 
 500 REM Just produce an MSDOS logo for now
 510 DIM LOGO$(25)
-520 IF INSTR(INTERP$, "DOSBox") > 0 THEN GOSUB 20050:GOTO 1000
+520 IF DOSBOX = 1 THEN GOSUB 20050:GOTO 1000
+530 IF OEM% = &HEE THEN GOSUB 20100:GOTO 1000
 530 GOSUB 20000
 
 1000 REM Output time
@@ -380,6 +386,23 @@
 14270 IF MACHID = 49 THEN MACHINE$ = "Sperry PC":GOTO 14299
 14299 RETURN
 
+14500 REM Detect DOSBox for real
+14510 DEF SEG=&HF000
+14530 BIOSVER$ = SPACE$(128)
+14540 FOR I = 0 TO 128
+14550 JC = PEEK(&HE000 + I)
+14560 IF JC >= 33 AND JC <= 126 THEN MID$(BIOSVER$, I+1, 1) = CHR$(JC)
+14570 NEXT I
+14580 DEF SEG
+14590 I = INSTR(BIOSVER$, "DOSBox")
+14600 IF I = 0 THEN RETURN
+14610 FOR J = I+6 TO 128
+14620 IF MID$(BIOSVER$, J, 1) = " " THEN GOTO 14640
+14630 NEXT J
+14640 DBNAME$ = MID$(BIOSVER$, I, J-I)
+14645 DOSBOX = 1
+14650 RETURN
+
 20000 REM MS-DOS Logo
 20010 LOGO$(1)  = " "
 20011 LOGO$(2)  = " &&&&&&     &&&&&&   &&&&&&&&"
@@ -436,6 +459,33 @@
 20075 LOGO$(25) = " "
 20076 RETURN
 
+20100 REM DOSBox Logo
+20101 LOGO$(1)  = " "
+20102 LOGO$(2)  = "                 XXXXX"
+20103 LOGO$(3)  = "                 XXXXXXXXX"
+20104 LOGO$(4)  = "            XXXXXXXXXXXXXXXX"
+20105 LOGO$(5)  = "         XXXX         XXXXXXX"
+20106 LOGO$(6)  = "        XX               XXXXX"
+20107 LOGO$(7)  = "       XX                 XXXXX"
+20108 LOGO$(8)  = "      XX                   XXXXX"
+20109 LOGO$(9)  = "     XX                     XXXX"
+20110 LOGO$(10) = "    XXX                     XXXXX"
+20111 LOGO$(11) = "     XX                     XXXX"
+20112 LOGO$(12) = "      XX                   XXXXX"
+20113 LOGO$(13) = "       XX                 XXXXX"
+20114 LOGO$(14) = "        XX               XXXXX"
+20115 LOGO$(15) = "         XXXX         XXXXXXX"
+20116 LOGO$(16) = "            XXXXXXXXXXXXXXXX"
+20117 LOGO$(17) = "                 XXXXXXXXX"
+20118 LOGO$(18) = "                 XXXXX"
+20119 LOGO$(19) = " "
+20120 LOGO$(20) = " .-,--. .-,--.   .-,--.  ,,--. .---."
+20121 LOGO$(21) = " ' |   \ `|__/   ' |   \ |`, | \___ "
+20122 LOGO$(22) = " , |   / )| \    , |   / |   |     \"
+20123 LOGO$(23) = " `-^--'  `'  `   `-^--'  `---' `---'"
+20124 LOGO$(24) = " "
+20125 LOGO$(25) = " "
+20126 RETURN
 
 30000 REM String Trim Function
 30010 REM input/output: TOTRIM$
-- 
cgit v1.2.3