| Line | Command or Statement | Comments |
| 1. | "VOLUME= ->Str1 | |
| 2. | "SURFACE AREA= ->Str2 | |
| 3. | "LENGTH= ->Str3 | |
| 4. | "WIDTH= ->Str4 | |
| 5. | "HEIGHT= ->Str5 | |
| 6. | "RADIUS= ->Str6 | |
| 7. | "AREA= ->Str7 | |
| 8. | "PERIMETER= ->Str8 | |
| 9. | Lbl Z | |
| 10. | ClrHome | |
| 11. | Menu("MATH PROG","3-D",1,"2-D",2,"QUIT",4 | |
| 12. | Lbl 4 | |
| 13. | ClrHome | |
| 14. | Stop | |
| 15. | Lbl 1 | |
| 16. | Menu("3-D","CUBE",CU,"BOX",BO,"PYRAMID",PY, | |
| | "CYLINDER",CY,"SPHERE",SP,"CONE",CO,"MORE",5 | |
| 17. | Lbl 5 | |
| 18. | Menu("MORE 3-D","SPHERICAL SECTOR",SS, | |
| | "SPHERICAL CONE",SC, | |
| | "2 BASE SEGMENT OF SPHERE",2S,"TOPLESS CONE",TC, | |
| | "PRISM",PR, "TOPLESS PYRAMID",TP,"BACK",Z | |
| 19. | Lbl CU | CUBE |
| 20. | Input "SIDE LENGTH=",S | |
| 21. | S³->Z | VOLUME |
| 22. | 6S²->X | SURFACE AREA |
| 23. | Lbl V:Fix 3 | |
| 24. | Disp Str1,Z | Disp VOLUME |
| 25. | Disp Str2 | Disp SURFACE AREA |
| 26. | Pause X | |
| 27. | DelVar ZDelVar X:ClrHome:Float | |
| 28. | Goto Z | |
| 29. | Lbl BO | BOX |
| 30. | Input Str3,A:Input Str4,B:Input Str5,C | |
| 31. | ABC->Z | VOLUME |
| 32. | 2(AB+BC+AC)->X | SURFACE AREA |
| 33. | Goto V | |
| 34. | Lbl PY | PYRAMID |
| 35. | Input Str3,A | |
| 36. | Input Str4,B | |
| 37. | Input Str5,H | |
| 38. | ABH/3->Z | VOLUME |
| 39. | √(A²+B²)->C | |
| 40. | √((.5C)²+H²)->D | |
| 41. | √((D²-(.5A)²)->E | |
| 42. | √((D²-(.5B)²)->F | |
| 43. | EH+FH+AB->X | SURFACE AREA |
| 44. | Goto V | |
| 45. | Lbl CY | CYLINDER |
| 46. | Input Str6,R | |
| 47. | Input Str5,H | |
| 48. |  πR²H->Z | VOLUME |
| 49. | 2πR(R+H)->X | SURFACE AREA |
| 50. | Goto V | |
| 51. | Lbl SP | SPHERE |
| 52. | Input Str6,R | |
| 53. | (4/3)(πR³)->Z | VOLUME |
| 54. | 4πR²->X | SURFACE AREA |
| 55. | Goto V | |
| 56. | Lbl CO | CONE |
| 57. | Input Str6,R | |
| 58. | πR²->A | |
| 59. | Input Str5,H | |
| 60. | AH/3->Z | VOLUME |
| 61. | π(H²+R²)->S | |
| 62. | A+πRS->X | SURFACE AREA |
| 63. | Goto V | |
| 64. | Lbl SS | SPHERICAL SECTOR |
| 65. | Input Str6,R | |
| 66. | Input Str5,H | |
| 67. | (πR²H)(2/3)->Z | VOLUME |
| 68. | Goto V | |
| 69. | Lbl 1H | 1 BASE SEGMENT OF SPHERE |
| 70. | Input Str6,R | |
| 71. | Input Str5,H | |
| 72. | (πH²(3R-H))/3->Z | VOLUME |
| 73. | 2πRH->X | SURFACE AREA |
| 74. | Goto V | |
| 75. | Lbl 2S | 2 BASE SEGMENT OF SPHERE |
| 76. | Prompt A,B,H | |
| 77. | (πH(3A²+3B²+H²))/6->Z | VOLUME |
| 78. | Input Str6,R | |
| 79. | 2πRH->X | SURFACE AREA |
| 80. | Goto V | |
| 81. | Lbl TC | TOPLESS CONE |
| 82. | Input Str6 "1=",R | |
| 83. | Input Str6 "2=",A | |
| 84. | Input Str5,H | |
| 85. | (H/3)((πR²)²+(πA²)²+√((πR²)(πA²)->Z | VOLUME |
| 86. | π(R²+A²+(R+A)√(R-A)²+H))->X | SURFACE AREA |
| 87. | Goto V | |
| 88. | Lbl 1K | PRISM |
| 89. | Input "AREA OF BASE=",B | |
| 90. | Input "ALTITUDE=",A | |
| 91. | AB->Z | VOLUME |
| 92. | Input "NUMBER OF SIDES=",N | |
| 93. | Input "AREA OF SIDE=",S | |
| 94. | 2B+SN->X | SURFACE AREA |
| 95. | Goto V | |
| 96. | Lbl TP | TOPLESS PYRAMID |
| 97. | Input "BASE 1" Str3,A | |
| 98. | Input "BASE 1" Str4,B | |
| 99. | Input "BASE 2" Str3,C | |
| 100. | Input "BASE 2" Str4,D | |
| 101. | Input Str5,H | |
| 105. | (2(A+C)H/2)+(2(B+D)H/2)+AB+CD->X | SURFACE AREA |
| 108. | (H/3)(AB+CD+√(ABCD)->Z | VOLUME |
| 109. | Goto V | |
| 110. | Lbl 2 | |
| 111. | Menu("2-D","RIGHT TRI",2A,"EQUAL TRI",2B, | |
| | "TRIANGLE",2C,"DIAGNOL PERP",2D, | |
| | "RECTANGLE",2E,"RHOMBUS",2F,"MORE",7 | |
| 112. | Lbl 7 | |
| 113. | Menu("MORE 2-D","TRAPEZIOD",2G,"QUAD",2H, | |
| . | "POLYGON",2I,"CIRCLE",2J,"BACK",8 | |
| 114. | Lbl 8 | |
| 115. | Goto Z | |
| 116. | Lbl 2A | RIGHT TRI |
| 117. | Prompt A,B | |
| 118. | (AB)/2->Z | |
| 119. | Lbl A | |
| 120. | Disp Str7,Z | |
| 121. | Disp Str8 | |
| 122. | Pause X | |
| 123. | DelVar ZDelVar X:ClrHome | |
| 124. | Goto 2 | |
| 125. | Lbl 2B | EQUAL TRI |
| 126. | Input "SIDE",S | |
| 127. | √(3S)/4->Z | AREA |
| 128. | Goto A | |
| 129. | Lbl 2C | TRIANGLE |
| 130. | Prompt A,B,C | |
| 131. | A+B+C->X | PERIMETER |
| 132. | (A+B+C)/2->S | |
| 133. | √(S(S-A)(S-B)(S-C))->Z | AREA |
| 134. | Goto A | |
| 135. | Lbl 2D | DIAGNOL PERP |
| 136. | Input "DIAGNOL 1=",D | |
| 137. | Input "DIAGNOL 2=",A | |
| 138. | (DA)/2->Z | |
| 139. | Goto A | |
| 140. | Lbl 2E | RECTANGLE |
| 141. | Prompt B,H | |
| 142. | 2B+2H->X | PERIMETER |
| 143. | BH->Z | AREA |
| 144. | Goto A | |
| 145. | Lbl 2F | RHOMBUS |
| 146. | Input "DIAGONAL 1=",D | |
| 147. | Input "DIAGONAL 2=",A | |
| 148. | (AD)/2->Z | AREA |
| 149. | Goto A | |
| 150. | Lbl 2G | TRAPEZIOD |
| 151. | Prompt A,B,H | |
| 152. | ((A+B)H)/2->Z | AREA |
| 153. | Goto A | |
| 154. | Lbl 2H | QUAD |
| 155. | Prompt A,B,C,D | |
| 156. | Input "DIAGNOL 1=",E | |
| 157. | Input "DIAGNOL 2=",F | |
| 158. | (√(4E²F²-(B²+D²-A²-C²)²))/4->Z | AREA |
| 159. | Goto A | |
| 160. | Lbl 2I | POLYGON |
| 161. | Input Str4,R | |
| 162. | Input "NUMBER OF SIDES=",N | |
| 163. | ((NR²)(sin(360/N))/2->Z | AREA |
| 164. | Goto A | |
| 165. | Lbl 2J | CIRCLE |
| 166. | Input Str4,R | |
| 167. | πR²->Z | AREA |
| 168. | 2piR->X | |
| 169. | Disp "CIRCUMFERANCE=",X | CIRCUMFERANCE |
| 170. | Goto A | |