| Line | Command or Statement | Comments |
| 1. | Fix 8 | |
| 2. | "LENGTH= ->Str1 | |
| 3. | "WIDTH= ->Str2 | |
| 4. | "HEIGHT ->Str3 | |
| 5. | "SURFACE "->Str4 | |
| 6. | "AREA= ->Str5 | |
| 7. | "SIDE "->Str6 | |
| 8. | "SLANT "->Str7 | |
| 9. | "RADIUS= ->Str8 | |
| 10. | "VOLUME= ->Str9 | |
| 11. | "LATERAL ->Str0 | |
| 12. | Lbl 00 | |
| 13. | ClrHome | |
| 14. | Menu("AREA AND VOLUME","VOLUME",2,"SURFACE
AREA",1, "LAT SURFACE AREA",3,"QUIT",24) | |
| 15. | Lbl 1 | |
| 16. | Menu("SURFACE AREA","PRISM",4,"PYRAMID",5,"CYLINDER",6, "SPHERE",7,"CONE",8) | |
| 17. | Lbl 4 | SA OF PRISM |
| 18. | Disp " SA OF PRISM | |
| 19. | Input Str1,L | LENGTH |
| 20. | Input Str2,W | WIDTH |
| 21. | Input Str3,H | HEIGHT |
| 22. | 2(LW+LH+WH)->D | |
| 23. | Disp Str4+Str5,D | SURFACE
AREA |
| 24. | D/pi->E | |
| 25. | Output(7,5,E | |
| 26. | Output(7,16,"p | |
| 27. | Output(8,3,"A=2(LW+LH+WH) | FORMULA |
| 28. | Pause | |
| 29. | Goto 00 | |
| 30. | Lbl 5 | SA OF PYRAMID |
| 31. | Menu("WHAT DO YOU NO","HEIGHT",9,"SLANT
HEIGHT",10, "RECTANGLE",26) | |
| 32. | Lbl 9 | (HEIGHT) PYRAMID |
| 33. | Disp " SA OF PYRAMID | |
| 34. | Input Str6+Str1,S | SIDE LENGTH |
| 35. | Input "NO SIDES=",N | NO OF SIDES |
| 36. | Input Str3+"=",H | HEIGHT |
| 37. | sqrt((S/2)^2+H^2)->D | SLANT HEIGHT |
| 38. | (1/2)(D)(SN)->F | LATERAL AREA |
| 39. | 1/4(S^2)->G | |
| 40. | ((pi(N-2))/(2N)->I | |
| 41. | (G)Ntan(I)->J | BASE AREA |
| 42. | F+J->K | |
| 43. | Output(5,1," SA=" | SURFACE AREA |
| 44. | Output(5,5,K" | |
| 45. | Output(6,1,"SA=1/4(S^2)Ntan(( | FORMULA |
| 46. | Output(7,1," (pi(N-2))/(2N))+ | |
| 47. | Output(8,1,"1/2sqrt((S/2)^2+H^2)SN | |
| 48. | Pause | |
| 49. | Goto 00 | |
| 50. | Lbl 10 | PYRAMID (SLANT HEIGHT) |
| 51. | Disp "SA OF PYRAMID" | |
| 52. | Input Str6+Str1,S | SIDE LENGTH |
| 53. | Input "NO OF SIDES=",N | NO OF SIDES |
| 54. | Input Str7+Str3+"=",L | SLANT HEIGHT |
| 55. | (1/2)(L)(SN)->D | LATERAL AREA |
| 56. | 1/4(S^2)->G | |
| 57. | ((pi(N-2))/(2N))->I | |
| 58. | (G)Ntan(I)->J | BASE AREA |
| 59. | D+J->K | |
| 60. | Output(5,1," SA=" | SURFACE AREA |
| 61. | Output(5,5,K | |
| 62. | Output(6,1,"SA=1/4(S^2)Ntan(( | FORMULA |
| 63. | Output(7,1,"(pi(N-2))/(2N))+ | |
| 64. | Output(8,1,"1/2(L)SN | |
| 65. | Pause | |
| 66. | Goto 00 | |
| 67. | Lbl 6 | SA OF CYLINDER |
| 68. | Input Str8,R | RADIUS |
| 69. | Input Str3,H | HEIGHT |
| 70. | 2piR(H+R)->C | |
| 71. | C/pi->E | |
| 72. | Disp Str4+Str5,C | SURFACE AREA |
| 73. | Output(6,5,E | |
| 74. | Output(6,16,"pi | |
| 75. | Output(8,4,"A=2piR(R+H) | FORMULA |
| 76. | Pause | |
| 77. | Goto 00 | |
| 78. | Lbl 7 | SA OF SPHERE |
| 79. | Disp " SA OF SPHERE" | |
| 80. | Input Str8,R | RADIUS |
| 81. | 4piR^2->B | |
| 82. | Disp Str4+Str5,B | SURFACE AREA |
| 83. | B/pi->C | |
| 84. | Output(5,5,C | |
| 85. | Output(5,16,"pi | |
| 86. | Output(8,4,A=4piR^2 | FORMULA |
| 87. | Pause | |
| 88. | Goto 00 | |
| 90. | Lbl 8 | SA OF CONE |
| 91. | Menu("WHAT DO YOU NO","HEIGHT",12,"SLANT HEIGHT",13) | |
| 92. | Lbl 12 | HEIGHT OF CONE |
| 93. | Disp " SA OF CONE" | |
| 94. | Input Str8,R | RADIUS |
| 95. | Input Str3,H | HEIGHT |
| 96. | sqrt(R^2+H^2)->C | SLANT HEIGHT |
| 97. | piR(C+R)->D | |
| 98. | Disp Str4+Str5,D | SURFACE AREA |
| 99. | D/pi->E | |
| 100. | Output(6,5,E | |
| 101. | Output(6,16,"pi | |
| 102. | Output(8,1,"A=piR^2+sqrt(R^2+H^2) | FORMULA |
| 103. | Pause | |
| 104. | Goto 00 | |
| 105. | Lbl 13 | SLANT HEIGHT OF CONE |
| 106. | Disp " SA OF CONE" | |
| 107. | Input Str8,R | RADIUS |
| 108. | Input Str7+Str3,H | SLANT HEIGHT |
| 109. | pi*R*(R+H)->C | |
| 110. | Disp Str4+Str5,C | SURFACE AREA |
| 111. | C/pi->D | |
| 112. | Output(6,5,D | |
| 113. | Output(6,16,"pi | |
| 114. | Output(8,4,"A=piR(R+H) | FORMULA |
| 115. | Pause | |
| 116. | Goto 00 | |
| 117. | Lbl 2 | VOLUME |
| 118. | Menu("VOLUME","PYRAMID",14,"CYLINDER",15,"SPHERE",16, "PRISM",17,"CONE",18,"TRI
PRISM",19) | |
| 119. | Lbl 14 | VOL. OF PYRAMID |
| 120. | Disp "VOLUME OF PYRAMID" | |
| 121. | Input Str6+Str1,A
| SIDE LENGTH |
| 122. | Input "NO OF SIDES=",B | NO OF SIDES |
| 123. | Input Str3,C | HEIGHT |
| 124. | (360/B)/2->D | |
| 125. | A/tan(D)/2->E | |
| 126. | (1/2)(E)(A)->F | |
| 127. | FB->G | |
| 128. | (1/3)GC->V | |
| 129. | Disp Str9,V | |
| 130. | V/pi->I | |
| 131. | Output(7,5, I | |
| 132. | Output(7,16,"pi" | |
| 133. | Pause | |
| 134. | Goto 00 | |
| 135. | Lbl 15 | VOL OF CYLINDER |
| 135. | Disp "VOL OF CYLINDER" | |
| 136. | Input Str8,R | RADIUS |
| 137. | Input Str3,H | HEIGHT |
| 138. | piR^2H->V | |
| 139. | Disp Str9,V | |
| 140. | V/pi->E | |
| 141. | Output(6,5, E | |
| 142. | Output(6,16,"pi" | |
| 143. | Output(8,4,"V=piR^2H | FORMULA |
| 144. | Pause | |
| 145. | Goto 00 | |
| 146. | Lbl 16 | VOL OF SPHERE |
| 147. | Disp "VOL OF SPHERE" | |
| 148. | Input Str8,R | RADIUS |
| 149. | (4/3)pi(R^3)->V | |
| 150. | Disp Str9,V | |
| 151. | V/pi->C | |
| 152. | Output(5,5,C | |
| 153. | Output(5,16,"pi" | |
| 154. | Output(8,4,"V=4/3piR^3 | FORMULA |
| 155. | Pause | |
| 156. | Goto 00 | |
| 157. | Lbl 17 | |
| 158. | Disp "VOL OF PRISM" | |
| 159. | Input Str1,L | LENGTH |
| 160. | Input Str2,W | WIDTH |
| 161. | Input Str3,H | HEIGHT |
| 162. | LWH->V | |
| 163. | Disp Str9,V | VOLUME |
| 164. | V/pi->E | |
| 165. | Output(7,5,E | |
| 166. | Output(7,16,"pi" | |
| 167. | Output(8,4,"V=LWH" | FORMULA |
| 168. | Pause | |
| 169. | Goto 00 | |
| 170. | Lbl 18 | |
| 171. | Disp "VOL OF A CONE" | |
| 172. | Input Str8,R | RADIUS |
| 173. | Input Str3,H | HEIGHT |
| 174. | (1/3)piR^2H->V | |
| 175. | Disp Str9,V | VOLUME |
| 176. | V/pi->D | |
| 177. | Output(6,5,D | |
| 178. | Output(6,16,"pi" | |
| 179. | Output(8,4,"V=(1/3)piR^2H" | FORMULA |
| 180. | Pause | |
| 181. | Goto 00 | |
| 182. | Lbl 19 | |
| 183. | Disp "VOL OF TRI PRISM" | |
| 184. | Input Str6+Str1,A | SIDE LENGTH |
| 185. | Input "BASE"+Str3,B | BASE HEIGHT |
| 186. | Input Str3,C | HEIGHT |
| 187. | (1/2)AB->D | |
| 188. | DC->E | |
| 189. | Disp Str9,E | |
| 190. | Pause | |
| 191. | Goto 00 | |
| 192. | Lbl 3 | |
| 193. | Menu("LAT SURFACE AREA","PYRAMID",20,"CYLINDER",21,"CONE",22,"TRI
PRISM",23) | |
| 194. | Lbl 20 | |
| 195. | Disp "LAT AREA PYRAMID" | |
| 196. | Input Str7+Str3,A | SLANT HEIGHT |
| 197. | Input "NO OF SIDES=",B | |
| 198. | Input Str6+Str1,C | SIDE LENGTH |
| 199. | CB->D | |
| 200. | (1/2)AD->E | |
| 201. | Disp "LAT AREA",E | |
| 202. | Pause | |
| 203. | Goto 00 | |
| 204. | Lbl 21 | |
| 205. | Disp "LAT AREA CYLINDER" | |
| 206. | Input Str8,A | RADIUS |
| 207. | Input Str3,B | HEIGHT |
| 208. | 2piAB->C | |
| 209. | Disp "LAT AREA",C | |
| 210. | Pause | |
| 211. | Goto 00 | |
| 212. | Lbl 22 | |
| 213. | Disp "LAT AREA CONE" | |
| 214. | Input Str8,A | RADIUS |
| 215. | Input Str7+Str3,B | SLANT HEIGHT |
| 216. | piAB->C | |
| 217. | Disp "LAT AREA",C | |
| 218. | Pause | |
| 219. | Goto 00 | |
| 220. | Lbl 23 | |
| 221. | Disp "LAT AREA TRI PRSM" | |
| 222. | Input Str6+Str1,A | SIDE LENGTH |
| 223. | Input "BASE"+Str3,B | BASE HEIGHT |
| 224. | Input Str3,C | HEIGHT |
| 225. | A3->D | |
| 226. | DC->E | |
| 227. | Disp "LAT AREA",E | |
| 228. | Pause | |
| 229. | Goto 00 | |
| 230. | Lbl 26 | |
| 231. | Disp "NON-REGULAR PYR" | |
| 232. | Input "SIDE 1?? ",A | SIDE 1 |
| 233. | Input "SIDE 2?? ",B | SIDE 2 |
| 234. | Input "SLANT HEIGHT?? ",C | SLANT HEIGHT |
| 235. | (A*B)+((1/2)(A+A+B+B)(C))->D | |
| 236. | Disp "SURFACE AREA",D | SURFACE AREA |
| 237. | Pause | |
| 238. | Goto 00 | |
| 239. | Lbl 24 | |
| 240. | ClrHome | |