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

$baud = 9600

Config Pind.6 = Output

On Urxc Getchar

Dim Wtime As Word
Dim Inchar As String * 1

Const Fastblink = 100
Const Slowblink = 500

Wtime = Slowblink

Enable Interrupts
Enable Urxc

Do
  Print Wtime
  Set Portd.6
  Waitms Wtime
  Reset Portd.6
  Waitms Wtime
Loop

Getchar:
  Inchar = Inkey()
  Select Case Inchar
    Case "f" : Wtime = Fastblink
    Case "s" : Wtime = Slowblink
  End Select
Return

End