SciCalc summary bugs

There seem to be some problems with the decimal point (DP) and the summary icon in SciCalc 0.87 (23-Apr-2016). If you click on the DP icon multiple times the entry field only adds a single DP, the summary however adds as many as you enter.

Other issues are shown by the following examples:

Entering .25+.36 comes out as: .25 +036
Entering 0.25+0.36 comes out as: .25 + .36
Entering .25+.33 CE .36 comes out as: .25036

I fixed these problems by changing PROCcalc_point from:

DEF PROCcalc_point
LOCAL zero$
  zero$=""
  IF Base%<>BASE_DEC%THEN ENDPROC
  IF NumberComplete%=TRUE THEN Entry$="0"
  IF SummaryComplete%=TRUE THEN Summary$="0":SummaryEntry$="0"
  IF NumberComplete%=TRUE AND SummaryComplete%=FALSE THEN
    SummaryEntry$="0"
    zero$="0"
  ENDIF
  IF INSTR(Entry$,"E")THEN ENDPROC
  IF INSTR(Entry$,DecimalPoint$)=0 ANDLEN(Entry$)<10 THEN
    Entry$=Entry$+DecimalPoint$
  ENDIF
  Entry=FNlocale_val(Entry$)
  NumberComplete%=FALSE:SummaryComplete%=FALSE:OpStack%=FALSE
  PROCcalc_summarise("",zero$+DecimalPoint$,SB_DIGIT%)
ENDPROC

To:

DEF PROCcalc_point
LOCAL zero$
  IF Base%<>BASE_DEC%THEN ENDPROC
  IF NumberComplete%=TRUE THEN Entry$="0"
  IF SummaryComplete%=TRUE THEN Summary$="0":SummaryEntry$="0"
  IF NumberComplete%=TRUE AND SummaryComplete%=FALSE THEN
    SummaryEntry$="0"
  ENDIF
  IF INSTR(Entry$,"E")THEN ENDPROC
  NumberComplete%=FALSE:SummaryComplete%=FALSE:OpStack%=FALSE
  IF INSTR(Entry$,DecimalPoint$)=0 AND LEN(Entry$)<10 THEN
    Entry$=Entry$+DecimalPoint$
    IF SummaryEntry$="" THEN SummaryEntry$="0"
    IF SummaryEntry$="0" THEN zero$="0" ELSE zero$=""
    PROCcalc_summarise("",zero$+DecimalPoint$,SB_DIGIT%)
  ENDIF
  Entry=FNlocale_val(Entry$)
ENDPROC

Not sure if that’s the best fix but it does work a lot better.