'Get the current DOS version number
'Version 7.0 owners use QBX.BI in the next line
'$INCLUDE: 'QBX.BI'
DIM Regs AS RegType
Regs.AX = &H3000
CALL Interrupt(&H21, Regs, Regs)
MajorVersion = Regs.AX MOD 256
MinorVersion = Regs.AX \ 256
PRINT USING "Current DOS version #!##"; MajorVersion; "."; MinorVersion