DECLARE FUNCTION DQBver ()An INTEGER value holding the library version
DQBver returns the current DirectQB library version into an integer value. The higher byte represents the major version, and the lower byte the minor version number.
You can also use DQBid$ to retrive a small string holding the library version and my name, in case you want to display them.
*****************************************************************************
' All integers for speed
DEFINT A-Z
'$INCLUDE:'DIRECTQB.BI'
' Let's initialize the library with no extra layers nor sounds nor EMS
IF DQBinit(0, 0, 0) THEN DQBclose: PRINT DQBerror$: END
' Finds major and minor library version numbers
major = DQBver \ &H100
minor = DQBver AND &HFF
' Prints them
PRINT "Current DirectQB version is" + STR$(major) + "." + LTRIM$(STR$(minor))
' Prints the library identification string
PRINT DQBid$
' Waits for the user to press a key
WHILE INKEY$ = "": WEND
' Ends program
DQBclose
*****************************************************************************