> Prompt X
> X->Y:0->M
> Repeat iPart(Y)=0
> Y/10->Y
> M+1->M
> End
> X/10^(M-1)->Y
> iPart(Y)->X
> sub("0123456789",X+1,1)->Str1
> Y-X->Y
> 10Y->Y
> 1->Z
> Repeat Y=0
> If Z=M
> Str1+"."->Str1
> iPart(Y)->X
> Str1+sub("0123456789",X+1,1)->Str1
> Y-X->Y
> 10Y->Y
> Z+1->Z
> End
> Disp Str1
>
> Enjoy.
>
> Eric Tollefson
> CmdrERT01@yahoo.com
Ingenious ;) Thanks, I'll try that.
Andrew