Re: Comet32.444 discrepancy


[ Follow Ups ] [ Post Followup ] [ Signature.net Forum ]

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?


Follow Ups:



Post a Followup

Name:
E-Mail:

Subject:

What is the name of the main Signature System's Product?  

Comments:

Optional Link URL:
Link Title:
Optional Image URL:

You may attach up to 5 files to your followup (see below):





Each file can be a maximum of 1MB in length Uploaded files will be purged from the server on a regular basis.


[ Follow Ups ] [ Post Followup ] [ Signature.net Forum ]