buton sayma

[DEDİM]

bu yazılımda butona 5 defa basıp cekınce GOTO BIR etiketine dallanamadım.butona basılı tutarsam ancak gidiyor ben bu sekılde degilde butona 5 defa basıp cekınce GOTO BIR etiketine gitsin diye yazdım ama olmadı

TUSBAK:
ADCIN 0, HAM              
  If HAM>835 Then
  While HAM>835 
   SAY=SAY+1
   If SAY =5  Then SAY=0 :GoTo BIR
    Wend
   EndIf 
GoTo TUSBAK       

butona 5 defa basıp cekınce goto bır etıketıne nasıl gidebilirim

[exper]

neden adc kullandın anlamadım

ıf buton =0 then
  WHİLE  buton =0 :WEND
   inc say

     ıf say>= 5 then goto BIR
endıf

BIR:
  say=0



kolay gele
RETURN