wieso geht das alles nicht?????

Hallo! habe schon alles mögliche durchgelesen!!! ich kann immer noch die 
frequenz nicht zählen!!!!!!
Habe da so was stehen:

$regfile = "m16def.dat"
$crystal = 10000000

$lib "lcd4e2.lbx"
Config Portd = Output
Config Lcd = 20 * 4

Dim Wcount As Word

On Icp1 Oncapture 
'Interrupt-Routine

Config Timer1 = Timer , Prescale = 1024 , Capture Edge = Rising

Enable Icp1 
'Capture-Interrupt
Enable Interrupts                                           'Interrupts 
global

Main: 
'Hauptschleife
Goto Main
'--------------------------------------
Oncapture: 
'Timer1-Capture
  Wcount = Timer1                                           'Erst Wert 
sichern
  Timer1 = 0                                                'Sofort 
Timer-Reset
  Wcount = Wcount \ 36                                      '1/100 
Sekunde
  Locate 1 , 1
  Lcd Wcount
Return



ist das so schwer, das programm zu korrigieren, dass es funzt??
Ich komme einfach nicht rauf.. icvh glaube der fEhler ist jetzt im 
lcD... ach, keine ahnung!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!1