Group - ungroup of commands

[fratello]

The code posted earlier ...

;reading buttons on line 2         
Portb.0 = 0     
TrisA.1 = 1     
pause 10     
status_3 = PortA & 011100     
      select case status_3                 
      case 20                 
      gosub starting                 
             while (PortA & 011100) = 20                 
                    gosub volup                 
             wend     
      end select                            
Portb.0 = 1      
TrisA.1 = 0   
Goto main

Work verry, verry fine !!!
Thank You, Mr.Henrik !!!