$CPU 8086          ' make compatible with XT systems
$LIB ALL OFF       ' turn off all PowerBASIC libraries
$ERROR ALL OFF     ' turn off all PowerBASIC error checking
$OPTIMIZE SIZE     ' optimize for smaller code
 $COMPILE UNIT      ' compile to a UNIT (.PBU)
'$COMPILE EXE       ' compile to a UNIT (.PBU)

DEFINT A-Z         ' Required for all numeric functions, forces PB to not
                   ' include floating point in UNIT (makes it smaller)
'/*------------------------------------------------------------------*/
$CODE SEG "MLIB4"
'/*------------------------------------------------------------------*/
FUNCTION GETDOSVERSION() PUBLIC AS STRING
  REG 1, &H3000
  CALL INTERRUPT &H21
  F! = (REG(1) MOD 256 + (REG(1) \ 256) / 100)
  FUNCTION = LTRIM$(STR$(F!))
 END FUNCTION
'/*------------------------------------------------------------------*/
'  $INCLUDE "C:\CODE\MLIB\MLIB.INC"
'  CLS
'  PRINT "DOS VERSION = "DOSVERSION
'  INPUT Z