program exam dim x as byte dim y as byte main: trisb=0x00 trisa=0x00 for x=0 to 7 porta.0=0 porta.1=1 porta.0=1 next x loop: porta.0=0 porta.1=0 porta.0=1 portb=0x7e delay_us(300) 'second porta.0=0 porta.1=1 porta.0=1 portb=0x00 delay_us(300) 'Third porta.0=0 porta.1=1 porta.0=1 portb=0x7e delay_us(300) 'fourth porta.0=0 porta.1=1 porta.0=1 portb=0x40 delay_us(300) 'Fifth porta.0=0 porta.1=1 porta.0=1 portb=0x7e delay_us(300) 'sixth porta.0=0 porta.1=1 porta.0=1 portb=0x40 delay_us(300) 'seventh porta.0=0 porta.1=1 porta.0=1 portb=0x70 delay_us(300) 'eighth porta.0=0 porta.1=1 porta.0=1 portb=0x60 delay_us(300) goto loop end.