a me funziona :)
alcresio dovrebbe vedere se nella directory /dev/input/ c'è anche il file-device /mouse1. In tal caso potrebbe provare a cambiare la riga da così:
topo = Shell "gksu cat /dev/input/mouse0" For Read As "topo"
topo = Shell "gksu cat /dev/input/mouse1" For Read As "topo"
In ogni caso, come seconda soluzione, può provare cambiando la riga da così:
topo = Shell "gksu cat /dev/input/mouse0" For Read As "topo"
topo = Shell "gksu cat /dev/input/mice" For Read As "topo"
Se anche questa seconda soluzione non dovesse andare, mi viene in mente che il comando gksu a lui non è adeguato. Se, infatti, non v'è accesso al file-device protetto del mouse, non si tira un... topo dal buco. Dovrebbe provare con un altro comando.