t$="0123456789"
do
x=peek(0)-47
b$=mid$(t$,x+0^x,1)
?b$;
t$=b$+mid$(t$,1,x-1)+mid$(t$,x+1)loop