P53280,0:53281,0:646,1+ZSA(300)1_\x"":214,10::211,14:"STATISTICS"{214,12::211,17:"FOR"214,14::211,10:"NON-STATISTICIANS"K12000:"":214,4::211,14:"THIS PROGRAM" 214,5::211,13:"CALCULATES THE"4 214,6::211,12:"FOLLOWING VALUES:"U 214,10::211,15:"1. MEAN"z 214,12::211,15:"2. STANDARD" 214,13::211,18:"DEVIATION" "214,15::211,15:"3. MEDIAN" ,214,17::211,15:"4. RANGE" 6214,22::211,10:"PRESS 'C' TO CONTINUE"' @Z$:Z$"C" 320- BQ ESUM0:MEAN0:DFF0:SDDEV0:RG0 J"":214,12::211,5:"DO YOU NEED INSTRUCTIONS (Y/N)?" T7010 ^ Z$"Y"5010 c "":214,10::211,6:"ENTER SAMPLE SIZE";N N300N1 I14881498:I,32::410 ""Q 214,2::211,1:"IF YOU MAKE AN ERROR, CONTINUE WITH" 214,4::211,1:"DATA ENTRY. YOU CAN CORRECT LATER." I1N 214,9::211,10:"DATA ENTRY # ";I;:R$ SA(I)(R$) &J14501468:J,32:J: I + 0"":214,12::211,2C 1"WISH TO MAKE ANY CORRECTIONS (Y/N)?"N : 7010f DZ$"Y" "":6000l I K"":214,11::211,14:"PLEASE WAIT" L214,13::211,6:"STATISTICS BEING CALCULATED" NI1 N XSUMSUMSA(I) bI lMEANSUMN vI1N' DFFDFF(SA(I)MEAN)2. IE SDDEV(DFF(N1))K T FLOa I1N1y SA(I)SA(I1)740 QSA(I) SA(I)SA(I1) SA(I1)Q FL1  I  FL1670  RGSA(N)SA(1) LRSA(1) HRSA(N) %*N2(N2)8146+SA(N2)SA(N21)MDDSA(N2)i, SA(N2)SA(N21)MDD(SA(N2)SA(N21))2s-1310.MDDSA((N21)) "HARDCOPY (Y/N)";HY$HY$"Y""HEADING";HG$ HY$"Y"4,4:4,HG$&"":214,3::211,10:"CALCULATION RESULTS"4'HY$"Y"4,"CALCULATION RESULTSa(214,4::211,9:"*********************")HY$"Y"4,"***************************************"2214,6::211,7:"SAMPLE SIZE";10);N3HY$"Y"4,"SAMPLE SIZE";10);N<214,8::211,78=HY$"Y"4,"MEAN(X BAR)";10);(MENA10000.5)10000gA"MEAN(X BAR)";10);(MEAN10000.5)10000|F214,10::211,7K"STD. DEVIATION";7);(SDDEV10000.5)10000LHY$"Y"4,"STD. DEVIATION";7);(SDDEV10000.5)10000P214,12::211,7)U"MEDIAN";15);(MDD10000.5)10000]VHY$"Y"4,"MEDIAN";15);(MDD10000.5)10000Z214,14::211,7:"RANGE";16);RG[HY$"Y"4,"RANGE";16);RG_214,16::211,7:"LOWEST SAMPLE VALUE";2);LR`HY$"Y"4,"LOWEST SAMPLE VALUE";2);LR7a214,18::211,7:"HIGHEST SAMPLE VALUE";1);HRebHY$"Y"4,"HIGHEST SAMPLE VALUE";1);HR{cHY$"Y"4:4:4214,22::211,13:"PRESS ANY KEY"A$:A$""1490"":214,12::211,3"WISH TO PROCESS MORE DATA (Y/N)?" 7010'Z$"N""":"MENU",8AI1N:SA(I)0::325G$x"THE MAXIMUM NUMBER OF ENTRIES YOU CAN"MAKE IS 300. THE MINIMUM NUMBER IS 2.""THE MEAN IS THE ARITHMETIC AVERAGE OF ""THE NUMBERS YOU ENTER."!"STANDARD DEVIATION IS A MEASURE OF HOW"M"WIDELY YOUR NUMBERS SPREAD FROM THE "]"AVERAGE."9);"PRESS ANY KEY FOR MORE"A$: A$"" 5150#""("SINCE THE VALUES YOU ENTER TEND TO FORM"2"A BELL CURVE (NORMAL DIST.), THE"*<"STANDARD DEVIATION IS A MEASURE OF THE "LF"AREA UNDER THE BELL CURVE."on"NO.OF STD.DEV.";6);"% AREA"}"--------------";6);"------"10);"1";15);"68.3"10);"2";15);"95.5"10);"3";15);"99.7"10);"4";15);"99.9"&9);"PRESS ANY KEY FOR MORE":A$:A$""5300C6""t;"THE MEDIAN IS THE VALUE AT THE MID-POINT";r"OF YOUR DATA."w"THE RANGE IS THE DIFFERENCE BETWEEN YOUR";"YOUR LOWEST DATA VALUE AND THE HIGHEST.""THE RANGE IS A QUICK-AND-DIRTY ESTIMATE"D"OF THE SPREAD. THE STD.DEV. IS MORE "Z"MORE RELIABLE."4);"PRESS 'S' TO START THE PROGRAM"A$: A$""(A$"S")5600Z$:Z$""(Z$"C"Z$"N"Z$"Q")5810FL0:Z$"N"FL1:6130 Z$"Q"587"" Sp214,12::211,3:"REMEMBER INCORRECT SAMPLE # (Y/N)?"]z7010nZ$"N"6130"":214,6::211,6:"WHAT IS THE SAMPLE NUMBER";EN$EN(EN$):ENNEN1EN(EN)6030214,8::211,6:"SAMPLE";EN;5);"VALUE=";SA(EN)4214,11::211,6:"ENTER YOUR NEW VALUE";CASA(EN)Cq214,14::211,6:"ANY MORE CHANGES (Y/N)?"{7010Z$"Y""":6000587""214,21::211,0" C=CHANGE DATA N=NEXT TABLE Q=QUIT";214,2::211,55FL0"THESE ARE THE FIRST TEN VALUES.":K1:6150["THESE ARE THE NEXT TEN VALUES."214,6::211,10:"ENTRY";12);"VALUE"FF0:KKK9:FFFF1K300KK9::587214,FF7::211,10:K;27);SA(K)$K.5810bZ$:Z$""(Z$"Y"Z$"N")7010l