' test de l'attiny13 jp Duval le 01/10/2004----------------
$regfile = "attiny13.dat"
$crystal = 9600000
Dim J As Byte
Config Portb = Output

Do
  Portb.1 = 0
  Waitms 1000
  Portb.1 = 1
  Waitms 1000
Loop

 End