**TI86**  AMORT ClLCDÖInput "STARTING BALANCE?",BÖInput "RATE PER PERIOD?",IÖInput "PAYMENT?",PÖInput "NUMBER OF PYMTS?",NÖ{N,5}dim AÖ1KÖ0WÖLbl LB1ÖIf K==N+1ÖThenÖPause AÖClLCDÖDisp "TOTAL PAYMENTS"ÖDisp (J-1)*P+A(J,2)ÖDisp "TOTAL INTEREST"ÖDisp W+A(J,3)ÖStopÖEndÖKA(K,1)ÖPA(K,2)Öround(I*B,2)A(K,3)ÖA(K,3)+WWÖP-A(K,3)A(K,4)ÖB-A(K,4)A(K,5)ÖA(K,5)BÖK+1KÖIf K==NÖGoto LB2ÖIf BPÖGoto LB2ÖGoto LB1ÖLbl LB2ÖKA(K,1)ÖB+round(I*B,2)A(K,2)Öround(I*B,2)A(K,3)ÖA(K,2)-A(K,3)A(K,4)ÖB-A(K,4)A(K,5)Ö{K,5}dim AÖKJÖN+1KÖGoto LB1ÖŽ¡