Button

[savnik]

Thank you.Your code help me to solve my problem.
I use this code:

   	if PORTB.5 = 1 then
        while (PORTB.5 = 1) and (Delay < 1000)
            menu = 6
            pause 1     
            delay = delay + 1
            wend
        if  delay < 1000 then
            delay = 0
            GOTO MAIN
        else
            delay = 0
            WRITE W1, TMP_LO		   
	        WRITE W1+1, TMP_HI			
	        LCDOUT $FE, 1, "     STORE    " 
	        PAUSE 1000
	        menu = 2
	        GOTO MAIN
        endif
    endif