Dim Minyt As Word
Dim Chas As Word
Dim Minyt1 As Word
Dim Chas1 As Word

Config Portb = Output

'----------------------------------
Do
For Minyt = 0 To 5 Step 1 'Step 1 => Speed
Portb = 0
For Chas = 0 To 6 Step 1 'Step 1 => Speed
Portb = 0
Waitms 1
Portb = 8
Waitms 1
Next Chas
Next Minyt
For Minyt1 = 0 To 2 Step 1 'Step 1 => Speed
Portb = 1
For Chas1 = 0 To 6 Step 1 'Step 1 => Speed
Portb = 1
Waitms 1
Portb = 9
Waitms 1
Next Chas1
Next Minyt1

Loop

End

секунды на порт3 управление на порт0
может кто подскажет в чем ошибка?