program MyProject 'main procedure dim table as byte[10] dim i as byte main: TRISB=0 'configure port B as output table[0]=%00000001 table[1]=%00000010 table[2]=%00000100 table[3]=%00001000 table[4]=%00010000 table[5]=%00100000 table[6]=%01000000 table[7]=%10000000 table[8]=%00000011 table[9]=%00000111 loop: for i=0 to 9 PORTB = table[i] delay_ms(1000) next i goto loop end.