home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Educational / MATH-HELPER (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  1KB  |  56 lines
  1. 10 PRINT"[147]":GOTO20
  2. 15 PRINT"[147]":END
  3. 20 POKE 53280,14
  4. 30 POKE 53281,0
  5. 40 POKE 646,14
  6. 45 PRINT"             [213][195][195][195][195][195][195][195][195][195][195][195][201]"
  7. 50 PRINT"             [194]MATH HELPER[194]"
  8. 60 PRINT"             [202][195][195][195][195][195][195][195][195][195][195][195][203]"
  9. 70 INPUT"WHAT DO YOU WANT TO DO (*,+,-,/,Q)";A$
  10. 80 IFA$<>"*"ANDA$<>"+"ANDA$<>"-"ANDA$<>"/"ANDA$<>"Q"THEN10
  11. 90 IFA$="*"THEN345
  12. 100 IFA$="+"THEN186
  13. 110 IFA$="-"THEN250
  14. 120 IFA$="/"THEN130
  15. 125 IFA$="Q"THENPRINT"[147]":NEW:END
  16. 130 PRINT"[147]"
  17. 135 PRINT"PRESS 00 FOR MAIN MENU"
  18. 140 PRINT"NUMBER TO BE DIVIDED FROM"
  19. 150 INPUTB
  20. 151 IFB=00THEN10
  21. 155 PRINT"NUMBER DIVIDING"
  22. 160 INPUTC
  23. 161 IFC=00THEN10
  24. 170 PRINT"THE ANSWER IS"B/C
  25. 180 GOTO135
  26. 185 PRINT"PRESS 00 FOR MAIN MENU"
  27. 186 PRINT"[147]"
  28. 190 PRINT"ADD"
  29. 200 INPUTD
  30. 205 IFD=00THEN10
  31. 210 PRINT"TO"
  32. 220 INPUTE
  33. 225 IFE=00THEN10
  34. 230 PRINT"THE ANSWER IS"D+E
  35. 240 GOTO190
  36. 250 PRINT"[147]"
  37. 260 PRINT"PRESS 00 FOR MAIN MENU"
  38. 270 PRINT"NUMBER TO BE SUBTRACTED FROM"
  39. 280 INPUTF
  40. 290 IFF=00THEN10
  41. 300 PRINT"NUMBER SUBTRACTING"
  42. 310 INPUTG
  43. 320 IFG=00THEN10
  44. 330 PRINT"THE ANSWER IS"F-G
  45. 340 GOTO 260
  46. 345 PRINT"[147]"
  47. 350 PRINT"PRESS 00 FOR MAIN MENU"
  48. 370 PRINT"MULTIPLY"
  49. 380 INPUTH
  50. 390 IFH=00THEN10
  51. 400 PRINT"BY"
  52. 410 INPUTI
  53. 420 IFI=00THEN10
  54. 430 PRINT"THE ANSWER IS"H*I
  55. 440 GOTO 350
  56.