diff options
| -rw-r--r-- | gwfetch.bas | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/gwfetch.bas b/gwfetch.bas index 36340fb..aaf9041 100644 --- a/gwfetch.bas +++ b/gwfetch.bas @@ -31,14 +31,14 @@ 310 REM DOS version
320 GOSUB 12500
329 REM DR-DOS is a mess, probably to fool MS software
-330 IF OEM% = &HEE THEN GOSUB 12900
+330 IF OEM% = &HEE OR OEM% = &HEF THEN GOSUB 12900
339 REM Get a name for this OS
340 GOSUB 12700
500 REM Just produce an MSDOS logo for now
510 DIM LOGO$(25)
520 IF DOSBOX = 1 THEN GOSUB 20050:GOTO 1000
-530 IF OEM% = &HEE THEN GOSUB 20100:GOTO 1000
+530 IF OEM% = &HEE OR OEM% = &HEF THEN GOSUB 20100:GOTO 1000
530 GOSUB 20000
1000 REM Output time
@@ -98,6 +98,8 @@ 10080 REM output. Technically it is just the command
10090 REM interpreter version.
10100 IDX = INSTR(VERLINE$, "ersion")
+10104 REM DR DOS says "Release"
+10105 IF IDX = 0 THEN IDX = INSTR(VERLINE$, "elease")
10110 IF IDX = 0 THEN GOTO 10210
10120 IDX = IDX - 1
10130 INTERP$ = LEFT$(VERLINE$, IDX - 2)
@@ -106,7 +108,7 @@ 10160 FOR IDX = 1 TO LEN(VERSION$)
10170 IF MID$(VERSION$, IDX, 1) = " " THEN VERSION$ = LEFT$(VERSION$,IDX-1)
10180 NEXT IDX
-10190 IF INTERP$ = "MS-DOS" OR INTERP$="PC-DOS" THEN INTERP$ = INTERP$ + " Command"
+10190 IF INTERP$ = "MS-DOS" OR INTERP$="PC-DOS" OR INTERP$="DR DOS" THEN INTERP$ = INTERP$ + " Command"
10200 RETURN
10210 REM If we're here, the word "version" wasn't found, but no worries
10220 SPACED = 0:IDX=0:VERSION$ = ""
@@ -393,7 +395,7 @@ 14505 REM Should correctly store DOSBox-X as the name if appropriate too
14510 DEF SEG=&HF000
14530 BIOSVER$ = SPACE$(128)
-14540 FOR I = 0 TO 128
+14540 FOR I = 0 TO 127
14550 JC = PEEK(&HE000 + I)
14560 IF JC >= 33 AND JC <= 126 THEN MID$(BIOSVER$, I+1, 1) = CHR$(JC)
14570 NEXT I
|