**TI86** © ™TESTNORM™—ClLCDÖMenu(1,"MN,DEV",A,2,"MEAN",B,3,"DEV",C,4,"NEITHER",D,5,"QUIT",E)ÖLbl AÖDisp "MEAN"ÖInput XÖDisp "STANDARD DEV."ÖInput SÖ0YÖGoto KÖLbl BÖDisp "MEAN"ÖInput XÖOneVar L1Ö(sum(seq((L1(I)-X),I,1,n))/n)S:1YÖGoto KÖLbl CÖDisp "STANDARD DEV."ÖInput SÖOneVar L1ÖËX:1YÖGoto KÖLbl DÖOneVar L1ÖËX:ÇxS:2YÖGoto KÖLbl EÖStopÖLbl KÖDisp "NUMBER OF BINS"ÖInput MÖM-1-YLÖsortA L1L1ÖOneVar L1Ö0dimL L2Ö0dimL L3Öy2=3-6/(M-2)+6x/(M-2)Ö0J:0KÖLbl GÖIf (L1(J+K+1)-X)/Sy2(1)ÖThenÖK+1KÖGoto GÖEndÖKL2(1)ÖKJÖ2IÖLbl HÖIf M>IÖThenÖ0KÖLbl IÖIf J+K+1nÖThenÖIf (L1(J+K+1)-X)/S>y2(I-1) and (L1(J+K+1)-X)/Sy2(I)ÖThenÖK+1KÖGoto IÖElseÖKL2(I)ÖJ+KJÖI+1IÖGoto HÖEndÖElseÖKL2(I)ÖJ+KJÖI+1IÖGoto HÖEndÖElseÖn-JL2(I)ÖEndÖn(.5-nmcdf(0,3,0,1))L3(1)Ö1JÖWhile JM-2Ön*nmcdf(y2(J),y2(J+1),0,1)L3(J+1)ÖJ+1JÖEndÖL3(1)L3(M)Ösum(seq((L2(I)-L3(I))/(L3(I)),I,1,M))ZÖ1-chicdf(0,Z,L)BÖClLCDÖDisp "TEST STAT",ZÖDisp "P VALUE",BÖÄ+