Mh genau so habe ich es ja im Grunde. Er mist die Schleifendurchgänge in bis eine Taste gedrückt wird und den wert nimmt er dann für __rseed.
Also haste doch ne Taste zur verfügung.

Ja dann Timer starten und laufen lassen.
Wenn die Taste gedrückt wird mit dem Timerwert den Rseed füttern.
Danach RND(irgendwas) und schon haste deinen Zufallswert.

Hier mal ein Codebeispiel wie man es zuhauf im Web findet.

Code:
$regfile = "2313def.dat"
$crystal = 4000000
Config Portb = Output
Portb.5 = 0
Config Pind.1 = Input
Dim Z As Byte
Dim ___rseed As Word

Config Timer0 = Timer , Prescale = 1
Enable Timer0
Start Timer0

Do
Debounce Pind.1 , 1 , Generator , Sub
Loop

Generator:

'Blink-Blink...

Portb = 0

___rseed = Timer0
Z = Rnd(100)
***Hier machste dann was aus dem Wert******
Return