Hallo,
ich kann dich verstehen, ich habe auch mal klein angefangen.
Da ich annehme, dass meine Vorredner dir nicht wirklich geholfen haben, schlage ich dir vor, mal folgendes zu versuchen:

Code:
Dim I As Integer 
$crystal = 8000000 
Config Portc = Output 
Do
  I = Rnd(8)   'generiert Zufallszahlen von 0 bis 7
  Set Portc.I   'schaltet entsprechenden Portc Pin ein
  Wait 1    'wartet 1 Sekunde
  Reset Portc.I   'schaltet den Portc Pin wieder aus
  Wait 1    'wartet nochmal
Loop     'und das ganze wieder von vorne
end