Get DOS Version

QuickBasic

---

' DOS 2+ - GET DOS VERSION

'$INCLUDE: 'qb.bi'

DIM inregs  AS RegTypeX
DIM outregs AS RegTypeX

' DOS interrupt with sub-function &H30

inregs.ax = &H3000

CALL InterruptX(&H21, inregs, outregs)

' Returns major version in AL, minor in AH

maj$ = RTRIM$(STR$(outregs.ax AND 255))
min$ = LTRIM$(STR$(outregs.ax \ 256))

PRINT "DOS Version:"; maj$ + "." + min$