$regfile = "2313def.dat"
$crystal = 4000000

Config Pind.6 = Output
Config Pinb.1 = Output
Config Timer0 = Timer , Prescale = 1024

Dim Wtime As Byte
Dim Timercounter As Byte

Wtime = 100
Timercounter = 0

Do
  Set Portd.6
  Waitms Wtime
  Reset Portd.6
  Waitms Wtime
  Cls
  Timercounter = Timer0
  Lcd "tmrcntr: " ; Timercounter
Loop

End