Hallo

Als Bascom-Laie würde ich es so versuchen:
Code:
$regfile = "m48def.dat"
$crystal = 1000000
$baud = 9600
Config Timer0 = Timer, Prescale = 8

Config Pinb.1 = Output
Config Pinb.2 = Output
Config Pinb.3 = Output
Config Pinb.4 = Output

Dim I As Integer
Dim Led1 As Byte
Dim Led2 As Byte

Const Timervorgabe = 131
On Timer0 Timer_irq
Enable Timer0
Enable Interrupts

Led1 = 51
Led2 = 86

Do

Loop
End

Timer_irq:
Timer0 = Timervorgabe

If Led1 > 0 Then
   Decr Led1
Else
   Toggle Pinb.1
   If Pinb.1 = 1 Then
      Led1 = 10                                             ' Anzeit
   Else
      Led1 = Rnd(10) + 51                                   ' Auszeit
   End If
End If

If Led2 > 0 Then
   Decr Led2
Else
   Toggle Pinb.2
   If Pinb.2 = 1 Then
      Led2 = 10
   Else
      Led2 = Rnd(10) + 86
   End If
End If

Return
(Ungetestet)

Gruß

mic