One of many ways to pull your counter value apart in BASIC is using DIG.
Copy the counter to another buffer so it stays safe.
This may be rough, and won't compile straight up.

Code:
destructobuffer = countervalue

FOR loopcounter = 0 TO 3
digitvalue = destructobuffer DIG 0
print digitvalue
shift out a digit
delay for digit (if you must)
destructobuffer = destructobuffer / 10
NEXT loopcounter