**TI86** ã ÕTSCOREÕÓClLCDÖDisp "1 = LEFT PROB","2 = RIGHT PROB","3 = MIDDLE PROB"ÖInput CÖClLCDÖIf C==1ÖThenÖDisp "LEFT PROB"ÖElseÖIf C==2ÖThenÖDisp "RIGHT PROB"ÖElseÖDisp "MIDDLE PROB"ÖEndÖEndÖInput RÖDisp "DEG. OF FREEDOM"ÖInput MÖy1=tcdf(0,x,M)ÖIf C==3ÖThenÖSolver(y1-R/2,x,2)ÖxQÖElseÖIf R.5ÖThenÖSolver(y1-(R-.5),x,2)ÖxQÖElseÖSolver(y1-(.5-R),x,2)ÖxQÖEndÖIf C==2ÖThenÖQQÖEndÖEndÖIf C==3ÖThenÖDisp "T SCORES"ÖDisp round(Q,3),round(Q,3)ÖElseÖDisp "T SCORE"ÖDisp round(Q,3)ÖEndȤ