Need more informatiom
here is may code :for display 7-seg

For i = 0 To 3 ' Loop through 4 digits
n = Value Dig i ' Get digit to display
Gosub display1 ' Display the value
NEXT I
goto mainloop

display1:
Digits = $ff ' All digits off to prevent ghosting

' Convert binary number in n to segments for LED
' COM ANODE 1234567890

Lookup n, [$3F,$06, $5B, $4F, $66, $6D, $7D, $07, $7F, $6F], Segments

' Set digit pin i to 0 (on) and the rest of the pins to 1 (off)

Digits = ~Dcd i

Return