| Line | Command or Statement | Comments |
| 1. | "LENGTH ->Str1 | Strings are used for storing a |
| 2. | "WIDTH ->Str2 | sequence of characters (text). |
| 3. | "HEIGHT ->Str3 | |
| 4. | "AREA= ->Str4 | |
| 5. | "RADIUS ->Str5 | |
| 6. | "BASE ->Str6 | |
| 7. | "SIDE ->Str7 | |
| 8. | "VOLUME= ->Str8 | |
| 9. | ClrHome | |
| 10. | Output(3,3,"MATH MASTER | Leave off ending quotes |
| 11. | Output(4,5,"BY BENDL | and parentheses. |
| 12. | Output(6,3,"VERSION 2.2 | |
| 13. | PAUSE | |
| 14. | Lbl A | |
| 15. | ClrHome | |
| 16. | Menu("MAIN MENU","AREA/VOLUME",1,"QUIT",X | |
| 17. | Lbl 1 | |
| 18. | 1->P | |
| 19. | ClrHome | |
| 20. | Menu("WELCOME","AREA",B,"VOLUME",C,"QUIT",X,
"MAIN MENU",A) | |
| 21. | Lbl B | |
| 22. | Menu("TYPE","RECTANGLE",D,"CIRCLE",E,"TRIANGLE",F,
"TRAPEZOID",G,"ELLIPSE",H,"BACK",1) | |
| 23. | Lbl C | |
| 24. | Menu("TYPE","RECT. PRISM",I,"CYLINDER",J,"PYRAMID",K,"CONE",L,"SPHERE",M,
"ELLIPSOID",N,"BACK,1) | |
| 25. | Lbl D | |
| 26. | 1->T | |
| 27. | Disp " RECTANGLE", Str4+"LW | RECTANGLE |
| 28. | Input Str1+"=",L | LENGTH= |
| 29. | Input Str2+"=",W | WIDTH= |
| 30. | LW->A | AREA |
| 31. | Lbl 20 | |
| 32. | If T=8 of T=9 | Pyramid - no area |
| 33. | Goto 22 | skip area |
| 36. | Disp " "+Str4 | AREA= |
| 37. | Pause A | :Disp A
:Pause can be :Pause A |
| 38. | If T < 6 | Does not display VOLUME |
| 39. | Goto θ | |
| 40. | Lbl 22 | |
| 41. | Disp " "+Str8 | VOLUME= |
| 42. | Pause V | |
| 43. | If T=8 or T=9 | Pyramid - only volume |
| 44. | Goto θ | |
| 47. | Lbl 21 | |
| 48. | Goto θ | |
| 49. | Lbl E | |
| 50. | 2->T | |
| 51. | Disp " CIRCLE"," A=πR² | CIRCLE |
| 52. | Input Str5+"=",R | RADIUS |
| 53. | πR²->A | AREA |
| 54. | Goto 20 | |
| 55. | Lbl F | |
| 56. | 3->T | |
| 57. | Disp " TRIANGLE"," A=.5BH | TRIANGLE |
| 58. | Input Str6+"=",B | BASE |
| 59. | Input Str3+"=",H | HEIGHT |
| 60. | .5BH->A | AREA |
| 61. | Goto 20 | |
| 62. | Lbl G | |
| 63. | 4->T | |
| 64. | Disp " TRAPEZOID"," A=.5H(B+C
', | TRAPEZOID |
| 65. | Input Str3+"=",H | HEIGHT |
| 66. | Input Str6+"1=",B | BASE 1 |
| 67. | Input Str6+"2=",C | BASE 2 |
| 68. | .5H(B+C)->A | AREA |
| 69. | Goto 20 | |
| 70. | Lbl H | |
| 71. | 5->T | |
| 72. | Disp " ELLIPSE"," A=πRS | ELLIPSE |
| 73. | Input Str5+"1=",R | RADIUS 1 |
| 74. | Input Str5+"2=",S | RADIUS 2 |
| 75. | πRS->A | AREA |
| 76. | Goto 20 | |
| 77. | Lbl I | |
| 78. | 6->T | |
| 79. | Disp " RECTANGULAR PRISM | RECT. PRISM |
| 80. | Disp " A=2(LW+LH+WH)"," V=LWH | |
| 81. | Input Str1+"=",L | LENGTH |
| 82. | Input Str2+"=",W | WIDTH |
| 83. | Input Str3+"=",H | HEIGHT |
| 84. | 2(LW+LH+WH->A | AREA |
| 85. | LWH->V | VOLUME |
| 86. | Goto 20 | |
| 87. | Lbl J | |
| 88. | 7->T | |
| 89. | Disp " CYLINDER | CYLINDER |
| 90. | Disp " A=2πR²+2πRH | |
| 91. | Disp " V=πR²H | |
| 92. | Input Str5+"=",R | RADIUS |
| 93. | Input Str3+"=",H | HEIGHT |
| 94. | (2πR²)+(2πRH)->A | AREA |
| 95. | (πR²)H->V | VOLUME |
| 96. | Goto 20 | |
| 97. | Lbl K | |
| 98. | Menu("TYPE","SQUARE",O,"TRIANGLE",P) | PYRAMID |
| 99. | Lbl O | |
| 100. | 8->T | |
| 101. | ClrHome | |
| 102. | Disp " SQUARE PYRAMID | SQ. PYRAMID |
| 103. | Dist " V=(LW)H/3 | |
| 104. | Input Str6+" "Str1+"=",L | BASE LENGTH |
| 105. | Input Str6+" "Str2+"=",W | BASE WIDTH |
| 106. | Input Str5+"=",H | HEIGHT |
| 107. | (LW)H/3->V | VOLUME |
| 108. | Goto 20 | |
| 109. | Lbl P | |
| 110. | 9->T | |
| 111. | Disp " TRIANGLE PYRAMID | TRI. PYRAMID |
| 112. | Disp " V=(.5BH)H/3 | |
| 113. | Inpur Str6+" "Str6+"=",B | BASE BASE |
| 114. | Input Str6+" "Str3+"=",H | BASE HEIGHT |
| 115. | Input Str3+"=",F | HEIGHT |
| 116. | (.5BH)F/3->V | VOLUME |
| 117. | Goto 20 | |
| 118. | Lbl L | |
| 119. | 10->T | |
| 120. | Disp " CONE | CONE |
| 121. | Disp " A=(πR²)+πr(sqrt(r²+h²)) | |
| 122. | Disp " V=(πR²)H/3 | |
| 123. | Input Str6+" "Str5+"=",R | BASE RADIUS |
| 124. | Input Str3+"=",H | HEIGHT |
| 125. | (πR²)+πr(sqrt(r²+h²))->A | AREA |
| 126. | (πR²)H/3->V | VOLUME |
| 127. | Goto 20 | |
| 128. | Lbl M | |
| 129. | 11->T | |
| 130. | Disp " SPHERE | SPHERE |
| 131. | Disp " A=4πR² | |
| 132. | Disp " V=4/3πR³ | |
| 133. | Input Str5+"=",R | RADIUS |
| 134. | 4πR²->A | AREA |
| 135. | 4/3πR³->V | VOLUME |
| 136. | Goto 20 | |
| 137. | Lbl θ | |
| 138. | ClrHome | |
| 139. | Menu("ANOTHER","YES",13,"QUIT",X,"BACK TO CATEGORY",14,"MAIN MENU",A) | |
| 140. | Lbl 14 | |
| 141. | If P=1 Goto1 | |
| 142. | Lbl 13 | |
| 143. | If T=1 Goto D | RECTANGLE |
| 144. | If T=2 Goto E | CIRCLE |
| 145. | If T=3 Goto F | TRIANGLE |
| 146. | If T=4 Goto G | TRAPEZOID |
| 147. | If T=5 Goto H | ELLIPSE |
| 148. | If T=6 Goto I | PRISM |
| 149. | If T=7 Goto J | CYLINDER |
| 150. | If T=8 Goto O | SQ PYRAMID |
| 151. | If T=9 Goto P | TRI PYRAMID |
| 152. | If T=10 Goto L | CONE |
| 153. | If T=11 Goto M | SPHERE |
| 154. | | |
