Thanks it works now

one note:

i have slowed down the count by adding a pause 500...

mainloop:
For Value = 0 To 99
GoSub display ' Display the value
pause 500 'slow count
Next Value


However i notice that one digit ( number ones ) stays most of the time off while the second digit ( number tens ) stays most of the time on.

I've tryed to change the pause 1 to pause 50 but not better result.

display:
For i = 0 To 1 ' Loop through 2 digits
n = Value Dig i ' Get digit to display
GoSub display1 ' Display the digit
Pause 1 ' Leave it on 1 millisecond
Next i ' Do next digit
Return


Is there a way to level this ?

Thanks