program odon;
label ide;
begin
trisb:=0;
portb:=0;
ide:
portb:=%00000001;
delay_ms(100);
portb:=%00000010;
delay_ms(100);
portb:=%00000100;
delay_ms(100);
portb:=%00001000;
delay_ms(100);
portb:=%00010000;
delay_ms(100);
portb:=%00100000;
delay_ms(100);
portb:=%01000000;
delay_ms(100);
portb:=%10000000;
delay_ms(100);
portb:=%01000000;
delay_ms(100);
portb:=%00100000;
delay_ms(100);
portb:=%00010000;
delay_ms(100);
portb:=%00001000;
delay_ms(100);
portb:=%00000100;
delay_ms(100);
portb:=%00000010;
delay_ms(100);
goto ide;
end.