home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Educational / MATH-A-FIGURE (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  1KB  |  82 lines
  1. 10 PRINTCHR$(147)
  2. 20 PRINT
  3. 30 PRINT"          MATH-A-FIGURE"
  4. 40 PRINT
  5. 50 PRINT"1.ADDITION"
  6. 60 PRINT"2.SUBTRACTION"
  7. 70 PRINT"3.MULTIPLICATION"
  8. 80 PRINT"4.DIVISION"
  9. 85 PRINT"5.QUIT"
  10. 90 PRINT
  11. 100 PRINT"SELECT ONE"
  12. 110 INPUT A$
  13. 111 IF A$="1" GOTO 200
  14. 112 IF A$="2" GOTO 300
  15. 113 IF A$="3" GOTO 400
  16. 114 IF A$="4" GOTO 500
  17. 115 IF A$="5" GOTO 1000
  18. 200 PRINTCHR$(147)
  19. 210 PRINT
  20. 211 PRINT"             ADDITION"
  21. 212 PRINT
  22. 215 INPUT"WHAT IS THE FIRST NUMBER";N
  23. 217 INPUT"WHAT IS THE SECOND NUMBER";X
  24. 220 C=N+X
  25. 240 PRINT
  26. 245 PRINT"THE ANSWER IS ";C
  27. 250 PRINT
  28. 255 PRINT"DO YOU WANT ANOTHER"
  29. 260 INPUT D$
  30. 265 IF D$="Y" GOTO 200
  31. 270 IF D$="N" GOTO 10
  32. 275 IF D$="" GOTO 255
  33. 290 END
  34. 300 PRINT CHR$(147)
  35. 305 PRINT
  36. 310 PRINT"             SUBTRACTION"
  37. 315 PRINT
  38. 320 INPUT"WHAT IS THE FIRST NUMBER";N
  39. 325 INPUT"WHAT IS THE SECOND NUMBER";X
  40. 330 C=N-X
  41. 335 PRINT
  42. 340 PRINT"THE ANSWER IS ";C
  43. 350 PRINT
  44. 355 PRINT"DO YOU WANT ANOTHER"
  45. 360 INPUT D$
  46. 365 IF D$="Y" GOTO 300
  47. 370 IF D$="N" GOTO 10
  48. 375 IF D$="" GOTO 355
  49. 390 END
  50. 400 PRINTCHR$(147)
  51. 405 PRINT
  52. 410 PRINT"                MULTIPLICATION"
  53. 415 PRINT
  54. 420 INPUT"WHAT IS THE FIRST NUMBER";N
  55. 425 INPUT"WHAT IS THE SECOND NUMBER";X
  56. 430 C=N*X
  57. 435 PRINT
  58. 440 PRINT"THE ANSWER IS ";C
  59. 445 PRINT
  60. 450 PRINT"DO YOU WANT ANOTHER"
  61. 460 INPUT D$
  62. 465 IF D$="Y" GOTO 400
  63. 470 IF D$="N" GOTO 10
  64. 475 IF D$="" GOTO 450
  65. 490 END
  66. 500 PRINT CHR$(147)
  67. 510 PRINT"                DIVISION"
  68. 515 PRINT
  69. 9 INPUT"WHAT IS THE FIRST NUMBER";N
  70. 525 INPUT"WHAT IS THE SECOND NUMBER";X
  71. 530 C=N/X
  72. 535 PRINT
  73. 540 PRINT"THE ANSWER IS ";C
  74. 545 PRINT
  75. 550 PRINT"DO YOU WANT ANOTHER"
  76. 555 INPUT D$
  77. 560 IF D$="Y" GOTO 500
  78. 565 IF D$="N" GOTO 10
  79. 576 IF D$="" GOTO 550
  80. 590 END
  81. 1000 END
  82.