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

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