Posted by Grant Foraker on July 19, 2011 at 06:49:28:
In Reply to: Re: Comet32.444 discrepancy posted by Barbara Brazil on July 18, 2011 at 15:34:47:
WORK at 3.0 is the cause of the truncation. But how is 700 turning into 1400?
Standard code would be ...
LET WORK = NUM(BEGIN$,ERR)
IF ERR NE 0 GOTO 1020
LET BEGIN$ = STR(WORK)
The decompiler code ...
1025
XACCNUM0 = NUM(BEGIN$,ERR)
XACC000F = INT(XACCNUM0) * 100000000
XACCNUM1 = XACCNUM0 * 100000000
XACC000F = XACC000F + XACCNUM1
XACC000F = XACC000F * .00000001
WORK = XACC000F
XACC000F = ERR
XACC000F = (XACC000F - 1)
IF XACC000F NE 0 GOTO 1030
GOTO 1020
1030
STRACC$ = STR(WORK)
BEGIN$ = STRACC$
1035
PRINT (00,0007)
INPUT (00) END$
works with Comet16 OBJ (700 in and 700 out) but does a double up in Comet32 OBJ (700 in and 400 out).
Why the difference?
Each file can be a maximum of 1MB in length Uploaded files will be purged from the server on a regular basis.