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

Config Pind.6 = Output
Config Timer1 = Timer , Prescale = 1 , Compare A = Toggle , Clear Timer = 1

Dim Wtime As Byte
Dim Compval As Word

Wtime = 100

Do
  For Compval = 100 To 10000 Step 100
    Compare1a = Compval
    Waitms 10
  Next Compval
  Set Portd.6
  Waitms Wtime
  Reset Portd.6
  Waitms Wtime
Loop

End