From 5168986ac89e4f5109356760a5a356a56500c65a Mon Sep 17 00:00:00 2001 From: Jeffrey Armstrong Date: Sun, 24 Nov 2024 14:27:06 -0500 Subject: DR-DOS checks for logo now check Novell OEM number. Fixed VER parsing on DR DOS --- gwfetch.bas | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) (limited to 'gwfetch.bas') 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 -- cgit v1.2.3