Function bton *+ douBle string --> numeric * takes a 8 byte string with IEEE representation of a long real * structure: * 7. byte: 7 bit sign * 6-0 bit exponent upper * 6. byte, bits 7-4 exponent lower. Exponent has 0x400 added * bits 3-0 mantissa. Mantissa is normalised, ie. assume 1 for first bit * bytes 5-0 rest of mantissa * returns a number. *- Lpara _s Dime bajt(8) For j=1 to 8 bajt[j]=asc(subs(_s,j)) Endf znak=iif(bittest(bajt[8], 7), -1, 1) eksp=bitand(bajt[8],127)*16+bitrshift(bajt[7], 4) *eksp=bitand(eksp+1025, 1023) eksp=eksp-1023 mant=1+bitand(bajt[7], 15)/16 dv=4096 For j=6 to 1 step -1 mant=mant +bajt(j)/dv dv=dv*256 Endf rez=mant*2**eksp*znak Retu rez