home *** CD-ROM | disk | FTP | other *** search
/ Explore the World of Soft…ids, Adults, Educational / RocelcoInc-ExploreTheWorldOfSoftware-KidsAdultsEducational-Vol2-Shareware.iso / educate / disk053 / mult.bas < prev    next >
Encoding:
BASIC Source File  |  1983-11-03  |  3.8 KB  |  91 lines
  1. 1  REM  MULTIPLICATION  8-83
  2. 2  REM 
  3. 3  REM  DRILL ON FACTS 0-9
  4. 4  REM  
  5. 5  REM  IBM BASICA  64K  COLOR GRAPHICS
  6. 6  REM 
  7. 7  REM  BY Lucy Jackson
  8. 8  REM  adapted Apple Softswap
  9. 10  REM 
  10. 11  REM        
  11. 12  REM ************************
  12. 13  REM *                      *
  13. 14  REM *  SAN MATEO COUNTY    *
  14. 15  REM * OFFICE OF EDUCATION  *
  15. 16  REM *                      *
  16. 17  REM COMPUTER-USING EDUCATORS
  17. 18  REM *                      *
  18. 19  REM *       SOFTSWAP       *
  19. 20  REM *                      *
  20. 21  REM *   333 MAIN STREET    *
  21. 22  REM *    REDWWOD CITY      *
  22. 23  REM *      CA 94063        *
  23. 24  REM *     (415)363-5472    *
  24. 25  REM *                      *
  25. 26  REM ************************
  26. 27  REM *
  27. 28  REM *
  28. 29  REM ************************
  29. 30  REM *PROGRAM MAY BE COPIED *
  30. 31  REM *FOR EDUCATIONAL USE & *
  31. 32  REM *MAY NOT BE SOLD. COPY-*
  32. 33  REM *  RIGHT 1983 CUE,INC  *
  33. 34  REM ************************
  34. 150 SCREEN 0,1: KEY OFF: WIDTH 40: COLOR 11,0,11: CLS
  35. 160  LOCATE 5,10: PRINT CHR$(218)+STRING$(19,196)+CHR$(191)
  36. 170  LOCATE 6,10: PRINT CHR$(179);TAB(30);CHR$(179)
  37. 180  LOCATE 7,10: PRINT CHR$(179);TAB(14);"MULTIPLICATION";TAB(30);CHR$(179)
  38. 190  LOCATE 8,10: PRINT CHR$(179);TAB(30);CHR$(179)
  39. 200  LOCATE 9,10: PRINT CHR$(192);STRING$(19,196);CHR$(217)
  40. 210  LOCATE 11,3: INPUT "Hi, what's your name";N$
  41. 220  N$=LEFT$(N$,8)
  42. 230  LOCATE 13,3: PRINT "It's GREAT to have you here today!"
  43. 240  Q=0:S=0
  44. 250  LOCATE 15,3: PRINT "I will give you a problem. ENTER the": LOCATE 16,3: PRINT "answer and press <RETURN>. Enter 11"
  45. 260 LOCATE 17,3: PRINT "if you want to practice all tables."
  46. 270 G = 0
  47. 280  LOCATE 19,3: PRINT "Enter a table number from 0 to 11:": LOCATE 20,13: INPUT "(11 = mixed) ";A
  48. 290  IF A = 11 THEN G = A
  49. 300  IF A < 0 OR A > 11 THEN  GOTO 280
  50. 310  CLS
  51. 320  B=INT(RND(.05)*10)
  52. 330  IF G=11 THEN A=INT(RND(.05)*10)
  53. 340  T=0
  54. 350  LOCATE 10,13: PRINT A;" x ";B;" = ";
  55. 360  Q=Q+1
  56. 370  INPUT C
  57. 380  IF C=A*B GOTO 440
  58. 390  T=T+1
  59. 400  IF T=3 GOTO 500
  60. 410  IF C<A*B THEN  LOCATE 18,8: PRINT "Try a";: COLOR 1,0: PRINT " larger";: COLOR 11,0: PRINT " number,  "N$"."
  61. 420  IF C>A*B THEN  LOCATE 18,8: PRINT "Try a";: COLOR 12,0: PRINT " smaller";: COLOR 11,0: PRINT " number, "N$".":
  62. 430  GOTO 350
  63. 440  CLS
  64. 450  R=INT(6*RND(1))+1
  65. 460  ON R GOSUB 650,660,670,680,690,700
  66. 470  LET S=S+1
  67. 480  IF S = 10 GOTO 540
  68. 490  GOTO 320
  69. 500  LOCATE 18,8: PRINT "The right answer is";A*B;", ";N$;"."
  70. 510  LOCATE 21,13: COLOR 13,0: PRINT "Press any key.": COLOR 11,0
  71. 520  A$=INKEY$: IF A$="" THEN GOTO 520
  72. 530  GOTO 290
  73. 540  Y=0
  74. 550  FOR M=1 TO 1000: NEXT M: CLS
  75. 560  LOCATE 6,6: PRINT "You answered 10 multiplication": LOCATE 7,10: PRINT "problems in";Q;"tries.": IF Q=10 THEN  LOCATE 9,10: COLOR 31,0: PRINT "CONGRATULATIONS,";N$;"!": COLOR 11,0,11
  76. 570  LOCATE 11,10: PRINT "Do you want to try again,"
  77. 580  LOCATE 12,15: INPUT "Y OR N";C$
  78. 590  IF C$ = "Y" OR C$="y" THEN GOTO 240
  79. 600  LOCATE 15,10: PRINT "Thanks for working so hard,":LOCATE 16,10: PRINT N$".  Come back again."
  80. 610  LOCATE 18,8: PRINT "Is anyone else waiting to play,": LOCATE 19,15: INPUT "(Y OR N) ==>";A$
  81. 620  IF A$="Y" OR A$="y" THEN  RUN
  82. 630 LOCATE 21,13: PRINT "Loading menu..."
  83. 640  CHAIN "MENU",170: RUN
  84. 650  LOCATE 18,12: COLOR 10,0:PRINT "That's it, "N$"!": COLOR 11,0:RETURN
  85. 660  LOCATE 18,10: COLOR 14,0:PRINT "Correct answer, "N$"!": COLOR 11,0: RETURN
  86. 670  LOCATE 18,8: COLOR 12,0: PRINT "Good Work! Keep it up, "N$".": COLOR 11,0: RETURN
  87. 680  LOCATE 18,8: COLOR 13,0: PRINT "You're a real GENIUS, ";N$;"!": COLOR 11,0: RETURN
  88. 690  LOCATE 18,14: COLOR 14,0: PRINT "GO, ";N$;", GO!": COLOR 11,0: RETURN
  89. 700  LOCATE 18,8: COLOR 13,0: PRINT "You've been studying hard!": COLOR 11,0: RETURN
  90. T "GO, ";N$;", GO!": COLOR 11,0: RETURN
  91. 700  LOCATE 18,8: COLOR 13,0: PRINT "Y