This might be easier: DEF DIGITS N% OUT A%,B%,C%,D%,E% VAR S$=FORMAT$("%05D",N%) A%=VAL(S$[0]) B%=VAL(S$[1]) C%=VAL(S$[2]) D%=VAL(S$[3]) E%=VAL(S$[4]) END