Dim a As Byte Dim b As Byte Dim cc As Byte Dim q As Byte a = %00000111 b = %00001111 TRISB = %00000000 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100 For q = 0 To 200 cc = 0 cc = a + b PORTB = cc Next q WaitUs 100