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

[CuriousOne]

I tried to reduce PAUSE 200 to 20 or even 2 - no change.

[tumbleweed]

what about something like this instead?

IF UPBT=0 THEN
    MENUITEM=MENUITEM+1
    IF MENUITEM>6 THEN MENUITEM=1
    PAUSE 20
    WHILE UPBT=0:WEND 
    PAUSE 20
ENDIF

IF DNBT=0 THEN
    MENUITEM=MENUITEM-1
    IF MENUITEM<1 THEN MENUITEM=6
    PAUSE 20
    WHILE DNBT=0:WEND
    PAUSE 20
ENDIF

IF LBUT=0 THEN
    IF MENUITEM=1 THEN  
        TVE=TVE+1
        IF TVE>13 THEN TVE=1
        GOSUB SETTIME
    ENDIF
    IF MENUITEM=2 THEN  
        RICXVI=RICXVI+1
        IF RICXVI>31 THEN RICXVI=1
        GOSUB SETTIME
    ENDIF
    IF MENUITEM=3 THEN  
        DGE=DGE+1
        IF DGE>7 THEN DGE=1
        GOSUB SETTIME
    ENDIF
    
    PAUSE 20
    WHILE LBUT=0:WEND 
    PAUSE 20
ENDIF

IF RBUT=0 THEN
    IF MENUITEM=1 THEN  
        TVE=TVE-1
        IF TVE<1 THEN TVE=13
        GOSUB SETTIME
    ENDIF
    IF MENUITEM=2 THEN  
        RICXVI=RICXVI-1
        IF RICXVI<1 THEN RICXVI=31
        GOSUB SETTIME
    ENDIF
    IF MENUITEM=3 THEN  
        DGE=DGE-1
        IF DGE<1 THEN DGE=7
        GOSUB SETTIME
    ENDIF
    
    PAUSE 20
    WHILE RBUT=0:WEND 
    PAUSE 20
ENDIF

it could be simplified even more, but...

[mpgmike]

You could create a bit Flag. When the Button is pressed, the Flag is toggled. When you get to a reasonable point in Code1 Routine, check your Flag. If it has toggled (is now a 1 for example), use GOTO to jump to Code2. Put "IF Flag = 0 THEN : GOTO Code1" in convenient spots throughout in Code2, etc.

[amgen]

debounce button check... and instead of while-wend .... use for/next pause here is 2 second check so if holding button > 2 seconds, can advance MENUitem then check again for release


HERE:
IF UPBT=0 THEN
pause 50
IF UPBT=0 THEN ..............................#debounce check
MENUITEM=MENUITEM+1
IF MENUITEM>6 THEN MENUITEM=1
PAUSE 20

for a=1 to 20
pause 50................................................ ............# if 2 second press, advance item and wait again
IF UPBT=1 THEN ---leave to somewhere .................# XXXXX WHILE UPBT=0:WEND
next a
goto HERE

ENDIF

[Ioannis]

First I would read all button input at once. Debounce and then decide what to do.

This is like a state machine coding and you will not loose any keypress, especially if it is interrupt driven. Or if you do not want interrupts, then a tight loop can do the job just fine.

Spaghetti coding unfortunately leads to such results.

Ioannis

[CuriousOne]

Thanks everyone. I've modified that code in the way that it now works - there is additional check for MENUITEM value inside a button press loop, but the question is still active - why the code above slows down in that way? That's simply not logical.

[amgen]

if there is room, you could put some 'temporary' code to serout or debug at a few locations and see where it isn't doing what is expected ! looks like there are quite a number of 'states' your program could be looping through.