Selbst ist der Mann!

So funktioniert es:

Do

For P = 1 to 24
A.P = 1
Next P

Zufall:
For P = 1 to 24
N = Rnd(25)
N = N+1
If A.N = 0 Then
Goto Zufall
Else
A.N = 0
Gosub Portbestimmung
End IF
Wait 1
Next p

Nächtlichen gruss

Alex