$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 "MLIB11"
'/*------------------------------------------------------------------*/
SUB SETVMODE(VIDMODE) PUBLIC
  '
  ' Sets the current video mode to VidMode.
  ' VidMode must be a valid video mode.
  '
  REG 1, VIDMODE                    'VidMode to AL, 0 to AH (service 0)
  CALL INTERRUPT &H10               'video services
END SUB 'SetVid
'/*------------------------------------------------------------------*/
'   $INCLUDE "C:\CODE\MLIB\MLIB.INC"
'   CLS
'   SETVMODE 4
'   CLS
'   SHELL "DIR"
'   Y$ = GETKEY