Config PortB=252
Config PortD=64

For i=0 To 9
	a=Lookup(i,LED)
	PortD=a
	a=a*2
	a=a*2
	PortB=a,500
Next i
End

LED:
Data 63%,6%,91%,79%,102%,109%,125%,39%,127%,111%