Bingo ?!
Code:
;reading buttons on line 2    
    Portb.0 = 0
    TrisA.1 = 1
    pause 10
    status_3 = PortA & %00011100
;    Portb.0 = 1
;    TrisA.1 = 0
    select case status_3
                case 20
                gosub starting
                while (PortA & %00011100) = 20
                gosub volup
                wend
    end select                       
    Portb.0 = 1 ; I've moved these here
    TrisA.1 = 0  ;   "  "
Goto main
I think You are right again, Mr. Henrik ! I will made hardware test and post the results ! Thanks ! Regards !