home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
World of Shareware - Software Farm 2
/
wosw_2.zip
/
wosw_2
/
QBAS
/
IMB9007.ZIP
/
DOSVER.BAS
< prev
next >
Wrap
BASIC Source File
|
1990-06-28
|
317b
|
11 lines
'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