'izboljsan program, ker ugasnemo LEDico

Config Portb = Output
Config Portd.0 = Input

Portb = 255

Dim Ledica As Bit
Dim Tipka As Bit


'$regfile = "m8def.dat"
$regfile = "m8515.dat"
'$regfile = "attiny2313.dat"

Do

Portb = 255
If Pind.0 = 0 Then
   Portb.0 = Ledica
   Ledica = Not Ledica
   Wait 1
   Else
   Portb.1 = Ledica
   Ledica = Not Ledica
   Wait 1
End If

Loop