^C12'$INCLUDE: 'BAS_LIB.BI'

MouseExist = MouseStatus

'Hier k”nnen nun die Mausroutinen aufgerufen werden. Beispiel :

ShowCursor
DO WHILE ButtonStatus = 0 : LOOP
Zeile = GetPosZeile
Spalte = GetPosSpalte
HideCursor
PRINT "Linke Maustaste gedr�ckt, bei ";Zeile;" ";Spalte
END

^C02Ganz wichtig ist die zweite Zeile "MouseExist = MouseStatus". Bevor
irgendeine Mausroutinen aufgerufen werden kann, muá die Funktion Mouse-
Status aufgerufen werden. Diese Funktion �bergibt an die Variable Mouse-
Exist den entsprechenden Wert, je nach dem ob eine Maus vorhanden ist oder
nicht. Innerhalb der Mausroutinen wird nun diese Variable �berpr�ft. Wenn
keine Maus vorhanden ist, wird die entsprechende Routine erst gar nicht
ausgef�hrt.
                Ok, das wars. 
^C14                                        Guru c/o Matthias Heuschele