home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Educational / FINGER-MULTIPLY (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  1.5 KB  |  79 lines
  1. 10 REM ''FINGER-MULTIPLY''
  2. 20 REM 11/1/1983 F H SHEDD
  3. 30 REM REFERENCE ENCYCLOPEDIA BRITANNICA - FINGER MULTIPLICATION
  4. 90 CL$=CHR$(147)
  5. 100 PRINT CL$
  6. 120 PRINT"MULTIPLY USING       "
  7. 130 PRINT"FINGERS KNOWING "
  8. 140 PRINT"ONLY MULTIPLICATION"
  9. 150 PRINT"    TABLE"
  10. 160 PRINT"THRU 5 TIMES 5":GOSUB 1000
  11. 170 PRINT"FOR NUMBERS 6 "
  12. 180 PRINT"THRU 9 ONLY"
  13. 200 INPUT"  MULTIPLIER =";A
  14. 210 I=A-5:J=5-I
  15. 220 PRINT"ON RIGHT HAND (RH)"
  16. 230 PRINT"PUT";I;" FINGERS DOWN"
  17. 240 PRINT"(";A;" MINUS 5)"
  18. 250 PRINT J;" FINGERS ARE UP"
  19. 260 PRINT"( 5 MINUS";I;")"
  20. 270 PRINT
  21. 280 INPUT"MULTIPLICAND =";B
  22. 290 X=B-5:Y=5-X
  23. 300 PRINT"ON LEFT HAND (LH)"
  24. 310 PRINT "PUT";X;" FINGERS DOWN"
  25. 320 PRINT"(";B;" MINUS 5)"
  26. 330 PRINT Y;" FINGERS ARE UP"
  27. 335 PRINT"( 5 MINUS";X;")"
  28. 337 PRINT
  29. 340 PRINT"ADD THE DOWN FINGERS"
  30. 350 PRINT"MULTIPLY THE UP"
  31. 360 PRINT"10 TIMES THE SUM OF"
  32. 370 PRINT"OF THE DOWN FINGERS"
  33. 380 PRINT"PLUS THE PRODUCT OF"
  34. 390 PRINT"OF THE UP GIVES THE"
  35. 400 PRINT"THE DESIRED PRODUCT"
  36. 410 Z=A*B:PRINT"   ";Z
  37. 420 GOSUB 1000
  38. 430 PRINT"TO ILLUSTRATE"
  39. 440 PRINT"THE FOREGOING"
  40. 450 PRINT A;" TIMES ";B;" =";Z
  41. 455 PRINT
  42. 460 PRINT"RIGHT HAND":V=A
  43. 470 GOSUB 2000
  44. 475 PRINT
  45. 480 PRINT:PRINT"LEFT HAND":V=B
  46. 490 GOSUB 2000
  47. 500 PRINT:PRINT"ADD DOWN I'S"
  48. 520 PRINT"MULTIPLY BY 10"
  49. 530 PRINT"ADD PRODUCT OF"
  50. 540 PRINT"UP I'S"
  51. 550 PRINT"RESULTING PRODUCT"
  52. 560 PRINT"IS";Z
  53. 570 STOP    
  54. 39170 " IIII"
  55. 610 PRINT"------"
  56. 620 PRINT"  I"
  57. 630 RETURN
  58. 700 PRINT" III"
  59. 710 PRINT"------"
  60. 720 PRINT" II"
  61. 730 RETURN
  62. 800 PRINT"  II"
  63. 810 PRINT"------"
  64. 820 PRINT" III"
  65. 830 RETURN
  66. 900 PRINT"  I"
  67. 910 PRINT"------"
  68. 920 PRINT" IIII"
  69. 930 RETURN
  70. 1000 PRINT"PRESS SPACE BAR[146]"
  71. 1005 GET A$:IF A$=""THEN 1005
  72. 1010 PRINT CL$
  73. 1023 RETURN
  74. 2000 IF V=6 THEN GOSUB 600
  75. 2010 IF V=7 THEN GOSUB 700
  76. 2020 IF V=8 THEN GOSUB 800
  77. 2030 IF V=9 THEN GOSUB 900
  78. 2040 RETURN
  79.