Hallo,
Ich schreib schon mal auf Verdacht; Rest per Tel, siehe PN
puh, musste umdenken- hab zuletzt basic++ benutzt

Code:
'************************************************
' Test '573 als Porterweiteung      bustest.bas *
' FriLu 06.10.06                                *
' CCBasic V2.0                                  *
' ZUSÄTZLICH zum Schaltplan ein Poti, ca 10k,   *
'          Wert unkritisch, an ad1 anschliessen *
'          dito an ad2 :)                       *
'          oder ad1 erstmal an gnd              *
'************************************************
'   ---   PORTs   ---
define bus         byteport[1]
define byteport2   byteport[2]
define latch1      port [9]
define latch2      port[10]
define latch3      port[11]

define led25       port[16]

define eingabe     ad[1]
define tempo       ad[2]


'   ---   Variable   ---
define gruppe1   byte   ' led  1 -  8
define gruppe2   byte   ' led  9 - 16
define gruppe3   byte   ' led 17 - 24

define auswahl   byte
define i         byte
define speed     byte   ' :)

'************************************************
'   ---   Hauptprogramm   ---
'   ---   Init   ---
speed = 5
bus = off               ' ports als ausgänge
latch1 = off            '  und '573 löschen
latch2 = off
latch3 = off
led25 = off
pulse latch1
pulse latch2
pulse latch3

'   ---   Schleife   ---
#HauptLoop
gosub WasMachen
'gosub WieSchnell ' Kommentar entfernen für Geschw-ändern

on auswahl gosub lp1, lp2, lp3, lp4 ' erstmal nur lp1

goto HauptLoop
'   ---   Ende Schleife   ---
'************************************************
'   ---   Unterprogramme   ---
#WasMachen
auswahl= eingabe / 64 ' ergibt 0-3 für on gosub, erweiterbar
' stattdessen auch zufallswert einsetzbar
return
#WieSchnell
speed= (tempo / 32) + 3 ' ergibt 3-10 als pausenwert 
return
'************************************************
'   ---   ab hier Lichtshow   ---
#lp1         ' schiebt eine einzelne led=on durch
gruppe1= 1
for i = 0 to 8
  bus = gruppe1
  pulse latch1
  pause speed
  gruppe1 = gruppe1 shl 1
next
gruppe2= 1
for i = 0 to 8
  bus = gruppe2
  pulse latch2
  pause speed
  gruppe2 = gruppe2 shl 1
next
gruppe3= 1
for i = 0 to 8
  bus = gruppe3
  pulse latch3
  pause speed
  gruppe3 = gruppe3 shl 1
next
led25 = on
pause speed
led25 = off
return
'------------- ab hier eigeninitiative
#lp2

return
'-------------
#lp3

return
'-------------
#lp4

return
'************************************************
end
'   ---   Tabellen   ---
' sorry, selbst ist der freak :))
Bis Bald ... Lutz