Hallo, Kannst du auch so lösen:

Code:
Dim D As Word

 ...

D = 0
Do
  If D = 0 And C = 915 Then
    C = 999
    Incr D
  Else If D = 1 And C = 916 Then
    C = 999
    Incr D
  Else If D = 2 And C = 916 Then
    C = 999
    Incr D
  Else If D = 3 And C = 916 Then
    C = 999
    D = 0
  End If

  If C > 990 Then
    C = 0

    Toggle B



      If B = 0 Then

         Portb.1 = 1

         Waitms 400

         Portb.1 = 0

         Else

         Portb.0 = 1

         Waitms 400

         Portb.0 = 0

      End If

  End If

  Loop
Kannst du beliebig ausbauen.
Ich kenn dein BASIC nicht, müsste aber auch ein Switch haben, geht auch an Stelle der verschachteltet If's

MfG Peter(TOO)
P.S. BASIC ist bei mir schon ewig her ....