Wye-delta Motor Controll For Basic PRO Compiler

@ device pic16f877
define osc 4
define adc_bits 8
main:
    trisb =$00
    trisa =$ff
    adcon1 = 7
    K1         var portb.0
    K2         var portb.1
    K3         var portb.2        
    start      var porta.0
    stops      var porta.1    
    K1=0 :K2=0:k3=0

while(1)
     if(!start and stops) then 
         K1=1
         K2=1
         K3=0         
         pause 3000   
      repeat     
         K1=1
         K2=0
         K3=1 
     until(!stops)         
     endif
         K1=0
         K2=0
         K3=0                             
    pause 10   
 wend
end