Hi Malcolm, Thanks for the 'convert' function. I certainly will try it. Regards François Van Emelen
Malcolm Lear wrote:
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