'****************************************************************************
'
'   Mausinfos einholen in PowerBASIC 3.0/3.2
'
'   entwickelt von / developed by   :  Thomas Gohel
'
'                           Fido    :  Thomas Gohel@2:2410/330.1
'                           InterNet:  author@pbsound.snafu.de
'                           Homepage:  http://www.snafu.de/~pbsound/
'
'****************************************************************************

MausInfo

FUNCTION MausInfo public
        ! mov ax, &h0024
        ! int &h33
        ! mov MausVerHigh%, bh
        ! mov MausVerLow% , bl
        ! mov MausTyp%    , ch
        ! mov MausIRQ%    , cl
        MausTreiberVersion$ = HEX$(MausVerHigh%) + "." + HEX$(MausVerLow%)
        PRINT "Treiberversion: "; MausTreiberVersion$
        SELECT CASE MausTyp%
            CASE 1: PRINT "Bus-Maus"
            CASE 2: PRINT "serielle Maus"
            CASE 3: PRINT "InPort-Maus"
            CASE 4: PRINT "PS/2-Maus"
            CASE 5: PRINT "HP-Maus"
        END SELECT
        SELECT CASE MausIRQ%
            CASE 0
                PRINT "PS/2"
            CASE ELSE
                PRINT "Maus-IRQ:"; MausIRQ%
        END SELECT
END FUNCTION