Ještě polopatické vysvětlení, jestli pomůže
[code]Prerus: ’ Podprogram vzkonavany pri preruseni
Incr B
If B > 50 Then 'jestliže B je větší než 50, proveď smyčku "for-next" (tj. zablikej ledkou)
For A = 1 To 3
Portb.2 = 0
Waitms 20
Portb.2 = 1
Waitms 30
Next
Else 'jinak (tj. jestliže B není větší než 50)
B = 0 'vynuluj B (a smyčku for-next samozřejmě vynech)
End If
Return[/code]