Using same button for entering/exiting some part of code?

[CuriousOne]

I think, there is some misunderstanding.

Here what I need

code1:
if button=0 then goto code2
'somecode here
goto code1

code2:
if button=0 then goto code1
'somecode here
goto code2

So all I need is when user presses the button in code1, execution won't jump to code2 until he releases the button. And same for code2.

[HenrikOlsson]

The code I posted should do exactly with that, with the advantage that the section of code you're currently in will continue to run UNTIL you release the button. What you're proposing will HANG the current program section until you release the button. But here you go:

code1:
if button=0 then     'check if button is pressed
  PAUSE 5                       'allow some contact bounce
  WHILE button=0 : WEND  'wait for it to be released
  PAUSE 5                     'allow some contact bounce
  goto code2
ENDIF
'somecode here
goto code1

code2:
if button=0 then
  WHILE button = 0 : WEND
  goto code1
ENDIF
'somecode here
goto code2

and obviously, button is a reserved word.

[CuriousOne]

Thanks!
No problem for code to "Hang", since this is for going from main menu to sub-menu and back.

[amgen]

my experience with button press usage is to have to wait for button release, can either stay in present routine and wait before switching OR moving to other routine and wait for release before looking for new press and going back.

[CuriousOne]

Here is the practical code I'm using, but it sometimes behaves strangely.
Say, button was pressed, action was made once, user still holds button, so no advance in code. But when user releases the button, sometimes it acts as button was pressed once again. Any ideas how to fix it?

MENULOOP: 'MAIN CONFIG SCREEN
IF UPBT=0 THEN
MENUITEM=MENUITEM+1
IF MENUITEM>4 THEN MENUITEM=1
GOSUB CENTRAL
pause 200 'debounce
ENDIF
WHILE UPBT=0:WEND 


IF DNBT=0 THEN
MENUITEM=MENUITEM-1
IF MENUITEM<1 THEN MENUITEM=4
GOSUB CENTRAL
pause 200 'debounce
ENDIF
WHILE DNBT=0:WEND
if menuitem=1 and rbut=0 then
pause 5
while rbut=0: wend
goto clockconfig
endif
GOTO MENULOOP

[HenrikOlsson]

There does not seem to be any debounce on button release. Try

  IF UPBT=0 THEN
    MENUITEM = MENUITEM+1

    IF MENUITEM > 4 THEN MENUITEM = 1
    GOSUB CENTRAL 
    ' PAUSE 20          ' May be needed if subroutine CENTRAL executes very fast.
    WHILE UPBT = 0 : WEND
    PAUSE 20 'debounce
  ENDIF

[amgen]

read switch a few times to be sure and debounce......

IF UPBT=0 THEN
PAUSE 20 ' or 40 or 50
IF UPBT=0 THEN 'go ahead........

MENUITEM = MENUITEM+1

do same for release check .... if upbt=1 then.....