home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Hall of Fame
/
HallofFameCDROM.cdr
/
open
/
qbinters.lzh
/
DOSVERS.BAS
< prev
next >
Wrap
BASIC Source File
|
1989-04-23
|
886b
|
30 lines
'Wed Apr 5, 1989 0:55:38 am
'****************************************************************************
'This routine returns the DOS version number for the operating system.
*****************************************************************************
DECLARE FUNCTION dosvers ()
TYPE RegType
ax AS INTEGER
bx AS INTEGER
cx AS INTEGER
dx AS INTEGER
bp AS INTEGER
si AS INTEGER
di AS INTEGER
flags AS INTEGER
END TYPE
DIM SHARED inregs AS RegType, outregs AS RegType
PRINT dosvers
FUNCTION dosvers
inax = &H3000
inregs.ax = inax: inregs.bx = 0: inregs.cx = 0: inregs.dx = 0
CALL interrupt(&H21, inregs, outregs)
outax = outregs.ax
outal = outax - ((FIX(outax / 256)) * 256)
outah = FIX(outax / 256)
dosvers = outal + (outah / 100)
END FUNCTION