home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / PROG / BASIC / IMB9007.ZIP / DOSVER.BAS < prev    next >
Encoding:
BASIC Source File  |  1990-06-28  |  317 b   |  11 lines
  1. 'Get the current DOS version number
  2. 'Version 7.0 owners use QBX.BI in the next line
  3. '$INCLUDE: 'QBX.BI'
  4. DIM Regs AS RegType
  5. Regs.AX = &H3000
  6. CALL Interrupt(&H21, Regs, Regs)
  7. MajorVersion = Regs.AX MOD 256
  8. MinorVersion = Regs.AX \ 256
  9. PRINT USING "Current DOS version #!##"; MajorVersion; "."; MinorVersion
  10.  
  11.