diff options
| -rw-r--r-- | gwfetch.bas | 32 |
1 files changed, 31 insertions, 1 deletions
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
|