home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Educational / MATH-WIZ (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  2.6 KB  |  80 lines
  1. 5 PRINT"ô"
  2. 6 A$="":B$="":N$=""
  3. 7 A=0:B=O:C=O
  4. 10 PRINT "DO YOU WANT TO:"
  5. 15 PRINT:PRINT:PRINT
  6. 20 PRINT"   1.  ADD"
  7. 30 PRINT"   2.  SUBTRACT"
  8. 40 PRINT"   3.  MULTIPLY"
  9. 50 PRINT"   4.  DIVIDE"
  10. 51 PRINT"   5.  AREA"
  11. 52 PRINT"   6.  VOLUME"
  12. 53 PRINT"   7.  PERIMETER"
  13. 54 PRINT"   8.  POWERS"
  14. 55 PRINT"   9.  SEE NEXT PAGE"
  15. 59 PRINT:PRINT
  16. 60 PRINT"     PICK A NUMBER"
  17. 65 GETN$:IF N$="" GOTO 65
  18. 67 IF VAL(N$)<1 OR VAL(N$)>9 GOTO 65
  19. 70 IF N$= "1" GOTO 104
  20. 80 IF N$= "2" GOTO 200
  21. 90 IF N$= "3" GOTO 300
  22. 95 IF N$= "4" GOTO 400
  23. 96 IF N$="5" GOTO 490
  24. 97 IF N$= "6" GOTO 560
  25. 98 IF N$= "7" GOTO 640
  26. 99 IF N$= "8" GOTO 770
  27. 100 IF N$= "9" GOTO 830
  28. 104 PRINT"ô":PRINT:PRINT:PRINT:PRINT:PRINT
  29. 105 INPUT "NUMBER";A:PRINT
  30. 110 INPUT "NUMBER";B:PRINT
  31. 115 C=A+B
  32. 116 PRINT"IS THERE ANOTHER NUMBER?  (Y OR N)"
  33. 117 GET Y$:IFY$=""GOTO117
  34. 118 IFY$="Y"GOTO190
  35. 120 PRINT:PRINT"   THE ANSWER IS  ";C
  36. 170 PRINT:PRINT:PRINT"     HIT ANY KEY TO CONTINUE"
  37. 175 GET B$:IF B$=""GOTO175
  38. 180 GOTO5
  39. 190 Y$="":A=C:GOTO110
  40. 200 PRINT"ô":PRINT:PRINT:PRINT:PRINT:PRINT
  41. 205 INPUT "TOP NUMBER";A:PRINT
  42. 210 INPUT "BOTTOM NUMBER";B:PRINT
  43. 220 PRINT:PRINT"   THE ANSWER IS  ";A-B
  44. 270 PRINT:PRINT:PRINT"     HIT ANY KEY TO CONTINUE"
  45. 275 GET A$:IF A$=""GOTO275
  46. 280 GOTO5
  47. 300 PRINT"ô":PRINT:PRINT:PRINT:PRINT:PRINT
  48. 305 INPUT "MULTIPLICAND";A:PRINT
  49. 310 INPUT "MULTIPLIER";B:PRINT
  50. 320 PRINT:PRINT"   THE ANSWER IS  ";A*B
  51. 370 PRINT:PRINT:PRINT"     HIT ANY KEY TO CONTINUE"
  52. 375 GET A$:IF A$=""GOTO375
  53. 380 GOTO5
  54. 400 PRINT"ô":    
  55. 405 INPUT "DIVIDEND";A:PRINT
  56. 410 INPUT "DIVISOR";B:PRINT
  57. 416 C=INT(A/B)
  58. 417 R=A-(INT(A/B)*B)
  59. 420 PRINT:PRINT" THE QUOTIENT IS ";C;"R";R
  60. 470 PRINT:PRINT:PRINT"     HIT ANY KEY TO CONTINUE"
  61. 475 GET A$:IF A$=""GOTO475
  62. 480 GOTO5
  63. 490 PRINT"ô":PRINT:PRINT:PRINT:PRINT:PRINT
  64. 500 INPUT "LENGTH";A:PRINT
  65. 510 INPUT "WIDTH";B:PRINT
  66. 520 LET C=A*B
  67. 530 PRINT:PRINT"   THE ANSWER IS";C;"SQ. INCHES"
  68. 540 GOTO 270
  69. 560 PRINT"ô":PRINT:PRINT:PRINT:PRINT:PRINT
  70. 570 INPUT "HIGHT";A:PRINT
  71. 580 INPUT "WIDTH";B:PRINT
  72. 590 INPUT "LENGTH";D:PRINT
  73. 600 LET C=A*B
  74. 610 LET E=D*C
  75. 620 PRINT:PRINT"   THE ANSWER IS";E;"CUBIC FEET"
  76. 630 GOTO 270
  77. 640 PRINT"ô":PRINT:PRINT:PRINT:PRINT:PRINT
  78. 650 INPUT "NUMBER";A:PRINT
  79. 660 INPUT "NUMBER";B:PRINT
  80.