^C12FUNCTION GetXPos%
         IF NOT MouseExist THEN EXIT FUNCTION
         Eing.ax = 3
         CALL INTERRUPT(51, Eing, Ausg)
         GetXPos = Ausg.cx
END FUNCTION

^C02Die Funktion GetXPos ermittelt die Pixelposition der X-Achse, an der sich
der Mauscursor gerade befindet und �bergibt diesen Wert an die Variable
GetXPos. Die R�ckgabewerte  k”nnen je nach Bildschirmaufl”sung variieren.