From 924d835322a34611795f8f8477795fc4579a06d1 Mon Sep 17 00:00:00 2001
From: Jeffrey Armstrong <jeff@approximatrix.com>
Date: Thu, 21 Nov 2024 17:01:23 -0500
Subject: Added a DOSBox graphic

---
 gwfetch.bas | 32 +++++++++++++++++++++++++++++++-
 1 file changed, 31 insertions(+), 1 deletion(-)

(limited to 'gwfetch.bas')

diff --git a/gwfetch.bas b/gwfetch.bas
index 4d3e461..12b20f5 100644
--- a/gwfetch.bas
+++ b/gwfetch.bas
@@ -32,7 +32,8 @@
 
 500 REM Just produce an MSDOS logo for now
 510 DIM LOGO$(25)
-520 GOSUB 20000
+520 IF INSTR(INTERP$, "DOSBox") > 0 THEN GOSUB 20050:GOTO 1000
+530 GOSUB 20000
 
 1000 REM Output time
 1001 CLS
@@ -407,6 +408,35 @@
 20034 LOGO$(25) = " "
 20035 RETURN
 
+20050 REM DOSBox Logo
+20051 LOGO$(1)  = "            8888888b."
+20052 LOGO$(2)  = "            888   '88b"
+20053 LOGO$(3)  = "            888   .88P"
+20054 LOGO$(4)  = "            88888888K."
+20055 LOGO$(5)  = "            888   'Y88b"
+20056 LOGO$(6)  = "            888     888"
+20057 LOGO$(7)  = "            888    d88P"
+20058 LOGO$(8)  = "            88888888P'"             
+20059 LOGO$(9)  = " 8888888b.   .d88888b.   .d8888b."
+20060 LOGO$(10) = " 888  'Y88b d88P' 'Y88b d88P  Y88b"
+20061 LOGO$(11) = " 888    888 888     888 Y88b."
+20062 LOGO$(12) = " 888    888 888     888  'Y888b."
+20063 LOGO$(13) = " 888    888 888     888     'Y88b."
+20064 LOGO$(14) = " 888    888 888     888       '888"
+20065 LOGO$(15) = " 888  .d88P Y88b. .d88P Y88b  d88P"
+20066 LOGO$(16) = " 8888888P'   'Y88888P'   'Y8888P'"
+20067 LOGO$(17) = "            Y88b   d88P"
+20068 LOGO$(18) = "             Y88b d88P"
+20069 LOGO$(19) = "              Y88o88P"
+20070 LOGO$(20) = "               Y888P"
+20071 LOGO$(21) = "               d888b"
+20072 LOGO$(22) = "              d88888b"
+20073 LOGO$(23) = "             d88P Y88b"
+20074 LOGO$(24) = "            d88P   Y88b"
+20075 LOGO$(25) = " "
+20076 RETURN
+
+
 30000 REM String Trim Function
 30010 REM input/output: TOTRIM$
 30015 IF LEN(TOTRIM$) = 0 THEN RETURN
-- 
cgit v1.2.3