| Line | Command or Statement | Comments |
| 1. | MEM = 2102 | |
| 2. | ClrHome | ClrHome |
| 3. | Float | |
| 4. | "PRIN= ->Str1 | PRINCIPLE |
| 5. | "RATE = ->Str2 | RATE |
| 6. | "TIME = ->Str3 | TIME |
| 7. | "INT= ->Str4 | INTEREST |
| 8. | "PER = ->Str5 | PERIODS |
| 9. | "AMT = ->Str6 | AMOUNT |
| 10. | "PMTS/YR = ->Str7 | PAYMENTS/YEAR |
| 11. | "FUT VAL = ->Str8 | FUTURE VALUE |
| 12. | "PRES VAL = ->Str9 | PRESENT VALUE |
| 13. | "PYMT = ->Str0 | PAYMENT |
| 14. | Lbl 0 | |
| 15. | Menu("FINANCE","SIMPLE INT",1,"COMPOUND INT",2,"FUTURE VALUE",3,"PRESENT VALUE",4,"QUIT",5) | Menu Finance |
| 16. | Lbl 1 | |
| 17. | Menu("SIMPLE INT","INTEREST",A,"PRINCIPAL",B,"RATE",C,"TIME",D,"QUIT",0) | Menu Simple |
| 18. | Lbl 2 | |
| 19. | Menu("COMPOUND INT","AMOUNT",G,"PRINCIPAL",H,"PER RATE",I,"PERIODS",J,"EFF. RATE",K,"QUIT",0) | Menu Compound |
| 20. | Lbl 3 | |
| 21. | Menu("FUTURE VALUE","FUTURE VALUE",N,"PAYMENT",O,"PERIODS",P,"RATE",Q,"QUIT",0) | Menu Future |
| 22. | Lbl 4 | |
| 23. | Menu("PRESENT VALUE","PRESENT VALUE",T,"PAYMENT",U,"PERIODS",V,"RATE",W,"QUIT",0) | Menu Present |
| 24. | Lbl 5 | |
| 25. | Stop | |
| 26. | Lbl A | Interest |
| 27. | Input Str1,P: Input Str2,R: Input Str3,T | |
| 28. | round(PRT,2)->I | I = PRT |
| 29. | Disp Str4 | Interest |
| 30. | Pause I | |
| 31. | Goto 1 | |
| 32. | Lbl B | Principle |
| 33. | Input Str4,I: Input Str2,R: Input Str3,T | |
| 34. | round(I/(RT),2)->P | P = I/(RT) |
| 35. | Disp Str1 | Principle |
| 36. | Pause P | |
| 37. | Goto 1 | |
| 38. | Lbl C | Rate |
| 39. | Input Str1,P: Input Str4,I: Input Str3,T | |
| 40. | I/(PT)->R | R = I/(PT) |
| 41. | Disp Str2 | Rate |
| 42. | Pause R | |
| 43. | Goto 1 | |
| 44. | Lbl D | Time |
| 45. | Input Str1,P: Input Str4,I: Input Str2,R | |
| 46. | round(I/(PR),2)->T | T = I/(PR) |
| 47. | Disp Str3 | Time |
| 48. | Pause T | |
| 49. | Goto 1 | |
| 50. | Lbl G | Amount |
| 51. | Input Str1,P: Input Str2,I: Input Str5,N | |
| 52. | round(P(1+I)^N,2)->A | A = P(1 + I)^N |
| 53. | Disp Str6 | Amount |
| 54. | Pause A | |
| 55. | Goto 2 | |
| 56. | Lbl H | Principle |
| 57. | Input Str6,A: Input Str2,I: Input Str5,N | |
| 58. | round(A/(1+I)^N,2)->P | P = A/(1 + I)^N |
| 59. | Disp Str1 | Principle |
| 60. | Pause P | |
| 61. | Goto 2 | |
| 62. | Lbl I | Rate |
| 63. | Input Str1,P: Input Str6,A: Input Str5,N | |
| 64. | Nsqrt(A/P)-1->I | I = Nsqrt(A/P)-1 |
| 65. | Disp Str2 | Rate |
| 66. | Pause I | |
| 67. | Goto 2 | |
| 68. | Lbl J | Periods |
| 69. | Input Str1,P: Input Str6,A: Input Str2,I | |
| 70. | round(ln(A/P)/ln(1+I),2)->N | N = In(A/P)/In (1+ I) |
| 71. | Disp Str5 | Periods |
| 72. | Pause N | |
| 73. | Goto 2 | |
| 74. | Lbl K | Eff. Rate |
| 75. | Input "NOM RATE=",R: Input Str7,M | |
| 76. | (1+R/M)^M-1->E | E = (1+R/M)^(M-1) |
| 77. | Disp "EFF RATE=" | Eff. Rate |
| 78. | Pause E | |
| 79. | Goto 2 | |
| 80. | Lbl N |
Future Value |
| 81. | Input Str0,A: Input Str2,I: Input Str5,N | |
| 82. | round(A((1+I)^N-1)/I,2)->F | F = (A((1+I)^N-1)/I |
| 83. | Disp Str8 | Future Value |
| 84. | Pause F | |
| 85. | Goto 3 | |
| 86. | Lbl O | Payment |
| 87. | Input Str8,F: Input Str2,I: Input Str5,N | |
| 88. | round(FI/((1+I)^N-1),2)->A | A = FI/(1+I)^(N-1) |
| 89. | Disp Str0 | Payment |
| 90. | Pause A | |
| 91. | Goto 3 | |
| 92. | Lbl P | Periods |
| 93. | Input Str0,A: Input Str8,F: Input Str2,I | |
| 94. | round(ln(1+FI/A)/ln(1+I),2)->N | N = ln(1+FI/A)/ln(1+I) |
| 95. | Disp Str5 | Periods |
| 96. | Pause N | |
| 97. | Goto 3 | |
| 98. | Lbl Q | Rate |
| 99. | Input Str0,A: Input Str8,F: Input Str5,N | |
| 100. | solve(((1+I)^N-1)/I-F/A,I,NÍsqrt(F/A)-1)->I | I = ((1+I)^N-1)/I-F/A,I,NÍsqrt(F/A)-1 |
| 101. | Disp Str2 | Rate |
| 102. | Pause I | |
| 103. | Goto 3 | |
| 104. | Lbl T | Present Value |
| 105. | Input Str0,A: Input Str2,I: Input Str5,N | |
| 106. | round(A(1-(1+I)^-N)/I,2)->P | neg N |
| 107. | Disp Str9 | Present Value |
| 108. | Pause P | |
| 109. | Goto 4 | |
| 110. | Lbl U | Payment |
| 111. | Input Str9,P: Input Str2,I: Input Str5,N | |
| 112. | round(PI/(1-(1+I)^-N),2)->A | neg N |
| 113. | Disp Str0 | Payment |
| 114. | Pause A | |
| 115. | Goto 4 | |
| 116. | Lbl V | Periods |
| 117. | Input Str9,P: Input Str0,A: Input Str2,I | |
| 118. | round(-ln(1-PI/A)/ln(1+I),2)->N | neg In |
| 119. | Disp Str5 | Periods |
| 120. | Pause N | |
| 121. | Goto 4 | |
| 122. | Lbl W | Rate |
| 123. | Input Str9,P: Input Str0,A: Input Str5,N | |
| 124. | solve((1-(1+I)^(-N))/I-P/A,I,AN/P-1)->I | neg N |
| 125. | Disp Str2 | Rate |
| 126. | Pause I | |
| 127. | Goto 4 | |