home *** CD-ROM | disk | FTP | other *** search
/ The California Collection / TheCaliforniaCollection.cdr / his038 / qbints.lzh / DOSVERS.BAS < prev    next >
Encoding:
BASIC Source File  |  1989-04-23  |  886 b   |  30 lines
  1. 'Wed  Apr 5, 1989  0:55:38 am   
  2. '****************************************************************************
  3. 'This routine returns the DOS version number for the operating system.
  4. *****************************************************************************
  5. DECLARE FUNCTION dosvers ()
  6. TYPE RegType
  7.      ax    AS INTEGER
  8.      bx    AS INTEGER
  9.      cx    AS INTEGER
  10.      dx    AS INTEGER
  11.      bp    AS INTEGER
  12.      si    AS INTEGER
  13.      di    AS INTEGER
  14.      flags AS INTEGER
  15. END TYPE
  16. DIM SHARED inregs AS RegType, outregs AS RegType
  17.        
  18. PRINT dosvers
  19.  
  20. FUNCTION dosvers
  21.      inax = &H3000
  22.      inregs.ax = inax: inregs.bx = 0: inregs.cx = 0: inregs.dx = 0
  23.      CALL interrupt(&H21, inregs, outregs)
  24.      outax = outregs.ax
  25.      outal = outax - ((FIX(outax / 256)) * 256)
  26.      outah = FIX(outax / 256)
  27.      dosvers = outal + (outah / 100)
  28. END FUNCTION
  29.  
  30.