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

Config Pind.6 = Output
Config Pind.2 = Input
Config Int0 = Falling

Dim Wtime As Byte
Dim Addval As Integer
Const Debouncetime = 75
Dim Buttoncounter As Integer
Dim Bc As Eram Integer

Buttoncounter = Bc
Cls
Lcd "Def.Ctr.: " ; Buttoncounter
Addval = 1

On Int0 Button

Wtime = 255

Enable Interrupts
Enable Int0

Do
  Set Portd.6
  Waitms Wtime
  Reset Portd.6
  Waitms Wtime
  Buttoncounter = Buttoncounter + Addval
  Cls
  Lcd "Btn.Ctr: " ; Buttoncounter
Loop

Button:
  Bc = Buttoncounter
  Gifr = 64
  Lowerline
  Lcd "to eeprom"
  Wait 3
  Addval = 0
Return

End