;Copyright 2000 - Mark McDonald All rights reserved
; mouseon routine for PowerBASIC

MCODE Segment Byte
        Assume  CS: MCODE

        Public  mouseon

mouseon Proc Far

        push    BP                      ;
        mov     BP, SP                  ;
        push    DS                      ;
        push    AX                      ;
        mov     AX,01h                  ; unhide cursor call
        int     33h                     ; call mouse driver
        pop     AX                      ;
        pop     DS
        pop     BP
        retf

mouseon EndP
MCODE EndS
        End