**TI86** ã ÓCORRTESTÓÑClLCDÖMenu(1,"DATA",A,2,"STATS",B,3,"QUIT",C)ÖLbl AÖDisp "LEVEL OF SIG."ÖInput AÖFnOff ÖTwoVar xStat,yStatÖminXxMinÖmaxXxMaxÖ(maxX-minX)/10xSclÖminYyMinÖmaxYyMaxÖ(maxY-minY)/10ySclÖPlOffÖPlOn 1ÖPlot1(1,xStat,yStat,1)ÖLinRÖy1=a+b*xÖnNÖcorrCÖGoto DÖLbl BÖDisp "SAMPLE SIZE"ÖInput NÖDisp "SAMPLE CORR."ÖInput CÖDisp "LEVEL OF SIG."ÖInput AÖLbl DÖC*(N-2)/(1-C)ZÖtcdf(0,Z,N-2)BÖB+.5LÖ.5-BRÖClLCDÖIf A>RÖThenÖDisp "REJECT CORR.  0"ÖElseÖDisp "ACCEPT CORR.  0"ÖEndÖIf A>LÖThenÖDisp "REJECT CORR.  0"ÖElseÖDisp "ACCEPT CORR.  0"ÖEndÖIf (A/2>R) or (A/2>L)ÖThenÖDisp "REJECT CORR. = 0"ÖElseÖDisp "ACCEPT CORR. = 0"ÖEndÖDisp ZÖDisp "TAIL VALUES",{round(L,4),round(R,4)}ÖOutpt(8,1,"R = ")ÖOutpt(8,5,C)ÖLbl CÖStopÖWõ