home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Educational / AREA2 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  5.6 KB  |  182 lines
  1. 10 PRINT"[147]"
  2. 20 POKE53280,1:POKE53281,1
  3. 30 PRINT"AREA OF BASIC SHAPES BY ROD HOUSTON"
  4. 40 PRINT"<1>[146] RIGHT TRIANGLE"
  5. 50 PRINT"<2>[146] ANY TRIANGLE"
  6. 60 PRINT"<3>[146] PARALLELOGRAM"
  7. 70 PRINT"<4>[146] TRAPEZOID"
  8. 80 PRINT"<5>[146] CIRCLE"
  9. 85 PRINT"ENTER PROGRAM NUMBER"
  10. 87 PRINT"PRESS RUN/STOP[146] AND RESTORE[146] TO QUIT"
  11. 90 GETAN$:IFAN$=""THEN90
  12. 91 IFAN$="1"THEN1000
  13. 92 IFAN$="2"THEN2000
  14. 93 IFAN$="3"THEN3000
  15. 94 IFAN$="4"THEN4000
  16. 95 IFAN$="5"THEN5000
  17. 96 IFAN$<1ORAN$>5THEN10
  18. 100 PRINT"[147]"
  19. 110 PRINT"ANY TRIANGLE"
  20. 120 PRINT"TYPE IN THE DATA ON YOUR TRIANGLE"
  21. 130 PRINT"B= ";:INPUTB
  22. 140 PRINT"H= ";:INPUTH
  23. 150 AR=.50*(B*H)
  24. 151 PRINT"WHAT DO YOU THINK";:INPUTAN
  25. 152 IFAN=ARTHEN154
  26. 153 IFAN<>ARTHEN160
  27. 154 PRINT"YOU ARE CORRECT![146]":GOTO170
  28. 160 PRINT"THE CORRECT ANSWER IS";AR:GOTO170
  29. 170 FORRH=1TO3000:NEXTRH
  30. 180 PRINT"CALCULATE ANOTHER (Y[146]/N[146])?"
  31. 185 GETAN$:IFAN$=""THEN185
  32. 190 IFAN$="Y"THEN10
  33. 195 IFAN$="N"THEN6000
  34. 200 PRINT"[147]"
  35. 210 PRINT"RIGHT TRIANGLE"
  36. 220 PRINT"TYPE IN THE DATA ON YOUR TRIANGLE"
  37. 230 PRINT"B= ";:INPUTB
  38. 240 PRINT"H= ";:INPUTH
  39. 250 AR=.50*(B*H)
  40. 251 PRINT"WHAT DO YOU THINK" ;:INPUTAN
  41. 252 IFAN=ARTHEN254
  42. 253 IFAN<>ARTHEN260
  43. 254 PRINT"YOU ARE CORRECT![146]":GOTO270
  44. 260 PRINT"THE CORRECT ANSWER IS";AR:GOTO270
  45. 270 FORRH=1TO3000:NEXTRH
  46. 280 PRINT"CALCULATE ANOTHER (Y[146]/N[146])?"
  47. 283 GETAN$:IFAN$=""THEN283
  48. 285 IFAN$="Y"THEN10
  49. 290 IFAN$="N"THEN6000
  50. 300 PRINT"[147]"
  51. 310 PRINT"PARALLOGRAM"
  52. 320 PRINT"TYPE IN THE DATA ON THE PARALLOGRAM"
  53. 330 PRINT"B= ";:INPUTB
  54. 340 PRINT"A= ";:INPUTA
  55. 350 AR=B*A
  56. 351 PRINT"WHAT DO YOU THINK";:INPUTAN
  57. 352 IFAN=ARTHEN354
  58. 353 IFAN<>ARTHEN360
  59. 354 PRINT"YOU ARE CORRECT![146]":GOTO370
  60. 360 PRINT"THE CORRECT ANSWER IS";AR:GOTO370
  61. 370 FORRH=1TO3000:NEXTRH
  62. 380 PRINT"CALCULATE ANOTHER (Y[146]/N[146])?"
  63. 382 GETAN$:IFAN$=""THEN382
  64. 385 IFAN$="Y"THEN10
  65. 390 IFAN$="N"THEN6000
  66. 400 PRINT"[147]"
  67. 410 PRINT"TRAPEZOID"
  68. 420 PRINT"TYPE IN THE DATA ON YOUR TRAPEZOID"
  69. 430 PRINT"B= ";:INPUTB
  70. 440 PRINT"H= ";:INPUTH
  71. 445 PRINT"A= ";:INPUTA
  72. 450 AR=.50*H*(A+B)
  73. 451 PRINT"WHAT DO YOU THINK";:INPUTAN
  74. 452 IFAN=ARTHEN454
  75. 453 IFAN<>ARTHEN460
  76. 454 PRINT"YOU ARE CORRECT![146]":GOTO470
  77. 460 PRINT"THE CORRET ANSWER IS";AR:GOTO470
  78. 470 FORRH=1TO3000:NEXTRH
  79. 480 PRINT"CALCULATE ANOTHER (Y[146]/N[146])?"
  80. 485 GETAN$:IFAN$=""THEN485
  81. 490 IFAN$="Y"THEN10
  82. 495 IFAN$="N"THEN6000
  83. 500 PRINT"[147]"
  84. 510 PRINT"CIRCLE"
  85. 520 PRINT"TYPE IN THE DATA ON YOUR CIRCLE"
  86. 530 PRINT"R= ";:INPUTR
  87. 550 AR=3.1416*(R*R)
  88. 551 PRINT"WHAT DO YOU THINK";:INPUTAN
  89. 552 IFAN=ARTHEN554
  90. 553 IFAN<>ARTHEN560
  91. 554 PRINT"YOU ARE CORRECT![146]":GOTO570
  92. 560 PRINT"THE CORRECT ANSWER IS";AR:GOTO570
  93. 570 FORRH=1TO3000:NEXTRH
  94. 580 PRINT"CALCULATE ANOTHER (Y[146]/N[146])?"
  95. 582 GETAN$:IFAN$=""THEN582
  96. 585 IFAN$="Y"THEN10
  97. 590 IFAN$="N"THEN6000
  98. 1000 PRINT"[147]"
  99. 1010 PRINT" THE AREA OF A RIGHT TRIANGLE[146] IS"
  100. 1020 PRINT" THE SUM OF ONE HALF OF THE HEIGHT A[146]"
  101. 1030 PRINT" TIMES THE BASE B[146].
  102. 1100 [151]1436,66:[151]1476,66:[151]1516,66:[151]1556,66:[151]1596,66
  103. 1105 [151]1636,66:[151]1676,109
  104. 1110 [151]1677,67:[151]1678,67:[151]1679,67:[151]1680,67:[151]1681,67
  105. 1120 [151]1682,67
  106. 1130 [151]1437,77:[151]1478,77:[151]1519,77:[151]1560,77
  107. 1140 [151]1601,77:[151]1642,77:[151]1720,2:[151]1555,1
  108. 1150 [153]"PRESS CWAIT TO CONTINUE"
  109. 1160 [161]AN$:[139]AN$[178]""[167]1160
  110. 1170 [139]AN$[178]"C"[167]200:[139]AN$[179][177]"C"[167]1010
  111. 2000 [153]"LOAD"
  112. 2010 [153]"THE AREA OF ANY TRIANGLEWAIT IS THE SUM OF"
  113. 2020 [153]" ONE HALF THE BASE BWAIT TIMES THE HEIGHT HWAIT."
  114. 2100 [151]1434,78:[151]1473,78:[151]1512,78:[151]1551,78:[151]1590,78
  115. 2110 [151]1435,77:[151]1477,77:[151]1519,77:[151]1561,77:[151]1603,77
  116. 2120 [151]1474,66
  117. 2130 [151]1514,66:[151]1554,66:[151]1594,66
  118. 2140 [151]1629,67:[151]1630,67:[151]1631,67:[151]1632,67:[151]1633,67
  119. 2150 [151]1634,67:[151]1635,67:[151]1636,67:[151]1637,67:[151]1638,67
  120. 2160 [151]1639,67:[151]1640,67:[151]1641,67:[151]1642,67:[151]1643,67
  121. 2162 [151]1644,67:[151]1677,2:[151]1556,8
  122. 2165 [153]"PRESS CWAIT TO CONTINUE"
  123. 2168 [161]AN$:[139]AN$[178]""[167]2168
  124. 2189 [139]AN$[178]"C"[167]100:[139]AN$[179][177]"C"[167]2010
  125. 3000 [153]"LOAD"
  126. 3010 [153]"THE FORMULA FOR CALCULATING THE AREA"
  127. 3020 [153]"OF A PARALLELOGRAMWAIT IS THE SUM  OF AWAIT"
  128. 3030 [153]"TIMES BWAIT AS SHOWN BELOW"
  129. 3100 [151]1434,67:[151]1435,67:[151]1436,67:[151]1437,67:[151]1438,67
  130. 3110 [151]1439,67:[151]1440,67:[151]1441,67:[151]1442,67:[151]1443,67
  131. 3120 [151]1444,67:[151]1445,67:[151]1446,67:[151]1447,67:[151]1448,67
  132. 3130 [151]1708,67:[151]1709,67:[151]1710,67:[151]1711,67:[151]1712,67
  133. 3140 [151]1713,67:[151]1714,67:[151]1715,67:[151]1716,67:[151]1717,67
  134. 3150 [151]1718,67:[151]1719,67:[151]1720,67:[151]1721,67:[151]1722,67
  135. 3160 [151]1488,78:[151]1527,78:[151]1566,78:[151]1605,78
  136. 3170 [151]1644,78:[151]1683,78:[151]1473,78:[151]1512,78:[151]1551,78
  137. 3180 [151]1590,78:[151]1629,78:[151]1668,78:[151]1755,1:[151]1557,2
  138. 3190 [151]1476,66:[151]1516,66:[151]1556,66:[151]1596,66:[151]1636,66
  139. 3200 [151]1676,66
  140. 3210 [153]"PRESS CWAIT TO CONTINUE"
  141. 3220 [161]AN$:[139]AN$[178]""[167]3220
  142. 3230 [139]AN$[178]"C"[167]300:[139]AN$[179][177]"C"[167]3010
  143. 4000 [153]"LOAD"
  144. 4010 [153]"THE FORMULA FOR THE AREA OF A TRAPEZOIDWAIT"
  145. 4020 [153]"IS ONE HALF THE HEIGHT HWAIT TIMES THE SUM"
  146. 4030 [153]"OF PARTS AWAIT AND BWAIT"
  147. 4100 [151]1434,67:[151]1435,67:[151]1436,67:[151]1437,67:[151]1438,67
  148. 4110 [151]1439,67:[151]1440,67:[151]1441,67:[151]1442,67:[151]1443,67
  149. 4115 [151]1445,67:[151]1630,67
  150. 4120 [151]1444,67:[151]1631,67:[151]1632,67:[151]1633,67:[151]1634,67
  151. 4130 [151]1635,67:[151]1636,67:[151]1637,67:[151]1639,67:[151]1640,67
  152. 4140 [151]1641,67:[151]1642,67:[151]1643,67:[151]1644,67:[151]1645,67
  153. 4150 [151]1646,67:[151]1647,67
  154. 4160 [151]1648,67:[151]1649,67:[151]1650,67:[151]1478,66:[151]1518,66
  155. 4170 [151]1558,66:[151]1598,66:[151]1473,78:[151]1512,78:[151]1551,78
  156. 4180 [151]1590,78:[151]1486,77:[151]1527,77:[151]1568,77:[151]1609,77
  157. 4190 [151]1399,1:[151]1519,8:[151]1680,2:[151]1638,67
  158. 4200 [153]"PRESS CWAIT TO CONTINUE"
  159. 4210 [161]AN$:[139]AN$[178]""[167]4210
  160. 4220 [139]AN$[178]"C"[167]400:[139]AN$[179][177]"C"[167]4010
  161. 5000 [153]"LOAD"
  162. 5010 [153]"THE FORMULA FOR THE AREA OF A CIRCLEWAIT"
  163. 5020 [153]"IS (null)R2. PI IS 3.1416 AND R2 MEANS THE"
  164. 5030 [153]"RADIUS RWAIT SQUARED. DATA IS THE RADIUS"
  165. 5040 [153]"OF THE CIRCLE."
  166. 5100 [151]1399,108:[151]1400,108:[151]1401,108:[151]1437,108:[151]1438,108
  167. 5110 [151]1442,108:[151]1443,108:[151]1476,108:[151]1484,108:[151]1515,108
  168. 5120 [151]1523,108:[151]1525,108:[151]1554,108:[151]1562,108:[151]1566,108
  169. 5130 [151]1594,108:[151]1640,108:[151]1601,108:[151]1606,108:[151]1634,108
  170. 5140 [151]1646,108:[151]1675,108:[151]1685,108:[151]1715,108:[151]1725,108
  171. 5150 [151]1756,108:[151]1764,108:[151]1797,108:[151]1798,108:[151]1802,108
  172. 5160 [151]1803,108:[151]1839,108:[151]1840,108:[151]1841,108:[151]1564,18
  173. 5170 [153]"PRESS CWAIT TO CONTINUE"
  174. 5180 [161]AN$:[139]AN$[178]""[167]5180
  175. 5190 [139]AN$[178]"C"[167]500:[139]AN$[179][177]"C"[167]5010
  176. 6000 [153]"LOAD"
  177. 6010 [153]"ONTERMINATION AT THIS POINT WILL REMOVE "
  178. 6011 [153]"THE ENTIRE PROGRAM FROM MEMORY. [Y/N]?"
  179. 6020 [161]A$:[139]A$[178]""[167]6020
  180. 6030 [139]A$[178]"Y"[167][158]64760
  181. 6040 [139]A$[178]"N"[167]10
  182.