Simple Statistics Program - need to chance

[Dinamarco]

Hi.
I'm using the program above.
But to end the entry of samples, needed to type "0"(zero).
Sometimes, 0 is a sample.....
Is possible to chance for and Letter? or other command?

Could somebody help me?

The program: (in line 5 and 13, it's necessary to chance, because on my HP41 program I just cannot insert the correct symbols)
I make some adjusts to use with a printer.

LBL "STAT"
FIX 3
BEEP
CLRG
"CL SIGMA" -----> key "F"
LBL 00
TONE 5
"ENTER DATA"
PROMPT
PRX
X=0?
GTO 01
"SIGMA +" --------> key "A"
STO 00
LBL 01
MEAN
XEQ 02
"MEAN="
XEQ 03
SDEV
CLA
XEQ 02
"SDEV="
XEQ 03
XEQ 02
RCL 16
1
-
SQRT
/
"SE="
XEQ 03
FIX 0
CLA
RCL 16
XEQ 02
"N="
XEQ 03
GTO "STAT"
LBL 02
TONE 9
TONE 9
RTN
LBL 03
ARCL X
AVIEW
FS? 55
RTN
STOP
RTN
.END.

[David Hayden]

You could use the numeric input flag (22). Something like:

Code:

LBL 00
TONE 5
"ENTER DATA"
CF 22
PROMPT
PRX
FC? 22       // If input was entered, F22 will be set
GTO 01
"SIGMA +" --------> key "A"
GTO 00

Also, at the bottom of the program you could replace

Code:

FS? 55
RTN
STOP
RTN
.END.

with

Code:

FC? 55
STOP
.END.

[Dinamarco]

Is it correct?


LBL "STAT"
FIX 3
BEEP
CLRG
"CL SIGMA" -----> key "F"
LBL 00
TONE 5
"ENTER DATA"
CF 22
PROMPT
PRX
FC? 22 // If input was entered, F22 will be set
GTO 01
"SIGMA +" --------> key "A"
GTO 00
LBL 01
MEAN
XEQ 02
"MEAN="
XEQ 03
SDEV
CLA
XEQ 02
"SDEV="
XEQ 03
XEQ 02
RCL 16
1
-
SQRT
/
"SE="
XEQ 03
FIX 0
CLA
RCL 16
XEQ 02
"N="
XEQ 03
GTO "STAT"
LBL 02
TONE 9
TONE 9
RTN
LBL 03
ARCL X
AVIEW
FC? 55
STOP
.END.

[Dinamarco]

Ok... done

But (that's the problem...)

the printer shows after enter the numbers:

1,470 ***
1,480 ***
1,740 ***
1,478 ***
1,500 ***
5. *** ------->>>>> is possible not to appear (be printed)?

mean= 1,534
SDEV= 116
SE= 58
NUMBER= 5

I wood like print just the number, at the end the "5, ***" just not appear.

Could you help me?