$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)
'/*------------------------------------------------------------------*/
DECLARE SUB MWHERE(BTN, ROW, COL)
'/*------------------------------------------------------------------*/
$CODE SEG "MLIB1"
'/*------------------------------------------------------------------*/
  FUNCTION MCHAR() PUBLIC AS STRING
    MWHERE MBT,MROW,MCOL
    T = SCREEN(MROW,MCOL,0)
    T$ = CHR$(T)
    FUNCTION = T$
  END FUNCTION
'/*------------------------------------------------------------------*/
'   $INCLUDE "C:\CODE\MLIB\MLIB.INC"
'   MOUSEON
'   SAY 25,1,"HELLO THERE TODAY",31
'   DO
'     MWHERE MBR, MROW, MCOL
'     SAY 25,50,STRING$(25,32),12
'     SAY 25,50,MCHAR+" "+STR$(MBT)+STR$(MROW)+STR$(MCOL),12
'     Y$ = INKEY$
'   LOOP UNTIL Y$ = CHR$(27)