Correction:
0001: RESULT = 6.71509648127128e-02
0002: IF INDEX(RESULT,"E",1) THEN
0003: GOSUB CONVERT.SCINOTE
0004: END
0005: PRINT FMT(RESULT,'R9')
0006: STOP
0007: CONVERT.SCINOTE:
0008: SCIBASE = OCONV(RESULT,'G0E1')
0009: SCIFACT = OCONV(RESULT,'G1E1')
0010: IF SCIFACT < 1 THEN
0011: RESULT = SCIBASE / '1':STR('0',ABS(SCIFACT))
0012: END ELSE
0013: RESULT = SCIBASE / '1':STR('0',ABS(SCIFACT))
0014: END
0015: RETURN
- Charles Barouch
[EMAIL PROTECTED]
(718) 762-3884 x 1
P. O. Box 540957,
Linden Hill, NY 11354-0957
www.KeyAlly.com
-------
u2-users mailing list
[email protected]
To unsubscribe please visit http://listserver.u2ug.org/
