one button-two operations

[mister_e]

CounterA Var Byte
CounterA=0
Start:
    If PORTB.0=0 then 
        If CounterA<=1 then        
            CounterA=CounterA+1
            else 
               CounterA=0
            endif
        endif
    While PORTB.0=0 : Wend : pause 50
    BRANCHL CounterA,[LabelOne,LabelTwo,LabelThree]
    '    
    ' stuf and other    
    '
    Goto Main

LabelOne:
    ' Stuff 
    goto Main

LabelTwo:
    ' Stuff 
    goto Main

LabelThree:
    ' Stuff 
    goto Main

The use of an internal Counter may reduce the code size too... look for RA4/T0CKI. Just read the TMR0 register and play with.