**TI85** i]LSUM][ClLCDÖPrompt AÖPrompt BÖPrompt NÖ(B-A)/NDÖ0SÖFor(K,0,N-1,1)ÖA+K*DxÖy1+SSÖEndÖDisp S*DÖˆ"