'program, kjer je vkljucena tipka


Config Portb = Output
Config Portd.0 = Input

Portb = 255

Dim Ledica As Bit
Dim Tipka As Bit

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

Do

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