program proba1

' Declarations section 
dim i1, j1 as byte

main:

'   Main program 
'  ANSEL = 0                          ' Configure AN pins as digital I/O
'  ANSELH = 0
  TRISB = 0                          ' Set PORTB as output
  PORTB = $80
  TRISA = 0
  PORTA = $FF
  while true

    PORTB = $F0
    Delay_ms(100)
    PORTB = 1 or $e0
    Delay_ms(1000)
    PORTB = 2 or $e0
    Delay_ms(1000)
    PORTB = 3 or $e0
    Delay_ms(1000)
    PORTB = 4 or $e0
    Delay_ms(1000)
    PORTB = 5 or $e0
    Delay_ms(1000)
    PORTB = 6 or $e0
    Delay_ms(1000)
    PORTB = 7 or $e0
    Delay_ms(1000)
    PORTB = 8 or $e0
    Delay_ms(1000)
    PORTB = 9 or $e0
    Delay_ms(1000)
    PORTB = 10 or $e0
    Delay_ms(1000)

     PORTB = $F0
    Delay_ms(100)
    PORTB = 1 or $d0
    Delay_ms(1000)
    PORTB = 2 or $d0
    Delay_ms(1000)
    PORTB = 3 or $d0
    Delay_ms(1000)
    PORTB = 4 or $d0
    Delay_ms(1000)
    PORTB = 5 or $d0
    Delay_ms(1000)
    PORTB = 6 or $d0
    Delay_ms(1000)
    PORTB = 7 or $d0
    Delay_ms(1000)
    PORTB = 8 or $d0
    Delay_ms(1000)
    PORTB = 9 or $d0
    Delay_ms(1000)
    PORTB = 0 or $d0
    Delay_ms(1000)

      PORTB = $F0
    Delay_ms(100)
    PORTB = 1 or $b0
    Delay_ms(1000)
    PORTB = 2 or $b0
    Delay_ms(1000)
    PORTB = 3 or $b0
    Delay_ms(1000)
    PORTB = 4 or $b0
    Delay_ms(1000)
    PORTB = 5 or $b0
    Delay_ms(1000)
    PORTB = 6 or $b0
    Delay_ms(1000)
    PORTB = 7 or $b0
    Delay_ms(1000)
    PORTB = 8 or $b0
    Delay_ms(1000)
    PORTB = 9 or $b0
    Delay_ms(1000)
    PORTB = 10 or $b0
    Delay_ms(1000)
    
      PORTB = $F0
    Delay_ms(100)
    PORTB = 1 or $70
    Delay_ms(1000)
    PORTB = 2 or $70
    Delay_ms(1000)
    PORTB = 3 or $70
    Delay_ms(1000)
    PORTB = 4 or $70
    Delay_ms(1000)
    PORTB = 5 or $70
    Delay_ms(1000)
    PORTB = 6 or $70
    Delay_ms(1000)
    PORTB = 7 or $70
    Delay_ms(1000)
    PORTB = 8 or $70
    Delay_ms(1000)
    PORTB = 9 or $70
    Delay_ms(1000)
    PORTB = 10 or $70
    Delay_ms(1000)
     PORTB = 11 or $70
    Delay_ms(1000)
     PORTB = 12 or $70
    Delay_ms(1000)
     PORTB = 13 or $70
    Delay_ms(1000)
     PORTB = 14 or $70
    Delay_ms(1000)
     PORTB = 15 or $70
    Delay_ms(1000)

    PORTB = 8 or $70
    Delay_ms(1000)
    PORTB = 8 or $30
    Delay_ms(1000)
    PORTB = 8 or $10
    Delay_ms(1000)
    PORTB = 8 or $00
    Delay_ms(1000)

  wend
end.