^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 ｜ergibt diesen Wert an die Variable
GetYPos. Die R…kgabewerte k馬nen je nach Bildschirmaufl敗ung variieren.