**TI85** ž’RSUM’Disp "Enter f(x)"ÖInpSt FUNCTIONÖStEq(FUNCTION,y50) ÖDisp "Enter a"ÖInput AÖDisp "Enter b"ÖInput BÖDisp "Enter n"ÖInput NÖ(B-A)/NDÖAxÖ0L:0M:0R:0T:0SÖ1IÖLbl LOOPÖL+y50*DLÖx+D/2xÖM+y50*DMÖx+D/2xÖR+y50*DRÖIf I==NÖGoto FINISHÖI+1IÖGoto LOOPÖLbl FINISHÖDisp "Left="ÖDisp LÖDisp "Middle="ÖDisp MÖDisp "Right="ÖDisp RÖPauseÖClLCDÖT=(L+R)/2ÖDisp "Trap="ÖDisp TÖS=(2M+T)/3ÖDisp "Simp="ÖDisp SÖØŒ