^C12FUNCTION MouseStatus%
         Eing.ax = 0
         CALL INTERRUPT(51, Eing, Ausg)
         MouseStatus = Ausg.ax
END FUNCTION

^C02Die Funktion MouseStatus berprft ob eine Maus vorhanden ist. Nach der
šberprfung werden folgende Werte an die Variable MouseStatus bergeben :

^C10                 0 = keine Maus vorhanden,
                -1 = Maus vorhanden.