Hi François
This routine is slow, but may do the job.
Cheers Malcolm
100 DEFine FuNction convert(a)
110 a$=a
120 ep='E-' INSTR a$
130 IF ep
140 e=a$(ep+2 TO)
150 IF '.' INSTR a$ THEN a$=a$(1)&a$(3 TO ep-1):ELSE a$=a$(1 TO ep-1)
160 a$='.'&FILL$('0',e-1)&a$
170 END IF
180 RETurn a$
190 END DEFine