Calculator

[Pete]

Partial fix.

This will not fix the problem of .301 not registering the zero after the 3, or an entry of -.0, but it does fix the problem of the calculator not registering a .0 entry:

Replace your NUMBER: sub routine with...

Code: (Select All)

number:
IF VAL(num$) > 9999999999999999 OR LEN(num$) > 19 THEN
    num$ = LEFT$(num$, 19)
END IF

num = VAL(num$)

'For Math
number2:
COLOR _RGB32(0, 0, 0), _RGB32(0, 0, 0)
_PRINTSTRING (55, 30), ""
'---------------------------------------------------------------------
IF num$ = ".0" THEN ' Leading decimal followed by a zero.
ELSE
    num$ = STR$(num)
END IF
'---------------------------------------------------------------------
IF VAL(num$) > 9999999999999999 OR LEN(num$) > 19 THEN
    num$ = LEFT$(num$, 19)
END IF
COLOR _RGB32(255, 255, 255), _RGB32(0, 0, 0)
_PRINTSTRING (55, 30), num$

RETURN

Pete