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

^C02Die Funktion GetPosZeile ermittelt die Bildschirmzeile, an der sich der
Mauscursor gerade befindet. Die aktuelle Position wird an die Variable
GetPosZeile bergeben.