'     Name            program Test
'     MCU:             P16F84A
'     Oscillator:      HS, 04.000 MHz
'     SW:              mikroBasic v7.0
program Test

dim Tl,T2 ,T3,T4  as word


TRISA=0
TRISB=0
PORTB =$FF

start:

Tl = Tl + 1
select case Tl
       case  100
       PORTB.0 = 0

       case  200
       PORTB.0 = 1
       Tl = 0
end select


T2 = T2 + 1
select case T2
       case  200
       PORTB.1 = 0

       case  400
       PORTB.1 = 1
       T2 = 0
end select


T3 = T3 + 1
select case T3
       case  300
       PORTB.2 = 0

       case  600
       PORTB.2 = 1
       T3 = 0
end select

T4 = T4 + 1
select case T4
       case  400
       PORTB.3 = 0

       case  800
       PORTB.3 = 1
       T4 = 0
end select

   Delay_ms(10)
goto start

 
end.