home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
magazine
/
ins_msb
/
9007
/
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