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

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