home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / sourcecode / general / cal-maths.amos / cal-maths.amosSourceCode
Encoding:
AMOS Source Code  |  1992-06-29  |  32.8 KB  |  1,185 lines
  1. Set Buffer 90
  2. Screen Open 0,320,500,32,Lowres
  3. Rem***************************** 
  4. '          Cal-Maths           * 
  5. '                              * 
  6. '            1991              *   
  7. '       ______________         *       
  8. '                              * 
  9. '             by               * 
  10. '                              * 
  11. '          M.Watson            * 
  12. '             &                *   
  13. '         T.D.Harris           * 
  14. '                              * 
  15. Rem***************************** 
  16. Global SC$
  17. Load Iff "Cal 1",0
  18. SC$="                                     WELCOME TO ANOTHER PROGRAM FROM THE CREATORS OF SUPERQUIZ.    AGAIN MANY THANKS GO TO 'MANDARIN/JAWX' FOR AMOS THE "
  19. SC$=SC$+"CREATOR.  I HOPE THIS LITTLE MATHS PROGRAM "
  20. SC$=SC$+"MAY HELP YOU TO BRUSH UP ON YOUR MENTAL ARITHMETIC.      "
  21. SC$=SC$+"< PLEASE NOTE----WHEN ANSWERING DIVISION SUM's TO MAKE IT EASIER THE PROGRAM WILL ACCEPT THREE FIGURES AFTER THE DECIMAL POINT. JUST TO SAVE YOU GETTING A HEADACHE!    -PLEASE DO NOT TRY TO ADD MORE, THANK YOU->"
  22. Repeat 
  23.    If Mouse Key<>0 Then Cls 0,10,42 To 165,62 : Cls 0,10,68 To 165,87 : Goto ST
  24.    T_SCROLL
  25. Until FRED
  26. Procedure T_SCROLL
  27.    Ink 5,0
  28.    Text 48,57,"Shieldsoft (c)"
  29.    Text 38,81,"Mental brush up!"
  30.    SC$=Mid$(SC$,2)+Left$(SC$,1)
  31.    Text 0,215,Left$(SC$,100) : Volume Rnd(8) : Play 86,0
  32.    For T=1 To 3000
  33.    Next T
  34. End Proc
  35. HERE:
  36. Load Iff "Cal 1",0
  37.    Ink 5,0
  38.    Text 48,57,"Shieldsoft (c)"
  39.    Text 38,81,"Mental brush up!"
  40. ST:
  41. Volume 50
  42. Cls 0,1,200 To 321,250
  43. Global Z,M,E$,D$,F$,E#,D#,F#,NUM,MPRESS,RESULT$,LM$,RM$
  44. Reserve Zone 18
  45. Rem********Main boxes********
  46. 'add 
  47. Set Zone 1,344,56 To 441,77
  48. 'sub 
  49. Set Zone 2,344,83 To 441,105
  50. 'div 
  51. Set Zone 3,344,110 To 441,131
  52. 'multi 
  53. Set Zone 4,344,137 To 441,158
  54. 'quit
  55. Set Zone 5,375,191 To 413,211
  56. 'del 
  57. Set Zone 6,141,204 To 178,223
  58. 'enter 
  59. Set Zone 7,235,203 To 292,223
  60. Rem********Numbers***********
  61. '* 1 * 
  62. Set Zone 8,142,136 To 167,162
  63. '* 2 * 
  64. Set Zone 9,173,136 To 198,162
  65. '* 3 * 
  66. Set Zone 10,204,136 To 229,162
  67. '* 4 * 
  68. Set Zone 11,235,136 To 260,162
  69. '* 5 * 
  70. Set Zone 12,266,136 To 291,162
  71. '* 6 * 
  72. Set Zone 13,142,167 To 167,193
  73. '* 7 * 
  74. Set Zone 14,173,167 To 197,193
  75. '* 8 * 
  76. Set Zone 15,204,167 To 229,193
  77. '* 9 * 
  78. Set Zone 16,236,167 To 260,193
  79. '* 0 * 
  80. Set Zone 17,267,167 To 291,193
  81. '* . * 
  82. Set Zone 18,192,204 To 221,223
  83. Do 
  84.    MCOOD
  85.    If M=1 and Z=1 Then Bell 96 : Goto PLUS
  86.    If M=1 and Z=2 Then Bell 96 : Goto SUB
  87.    If M=1 and Z=3 Then Bell 96 : Goto DIV
  88.    If M=1 and Z=4 Then Bell 96 : Goto MULTI
  89. Loop 
  90. Rem*****Addition************** 
  91. PLUS:
  92. Ink 0,30
  93. Cls 30,216,41 To 313,62 : Cls 30,216,68 To 313,89 : Cls 30,216,95 To 313,116
  94. Text 251,55,"Easy"
  95. Text 239,83,"Moderate"
  96. Text 251,110,"Hard"
  97. Goto PLUZ
  98. Rem*****Subtraction************
  99. SUB:
  100. Ink 0,30
  101. Cls 30,216,14 To 313,35 : Cls 30,216,41 To 313,62 : Cls 30,216,68 To 313,89 : Cls 30,216,95 To 313,116
  102. Text 233,30,"Subtraction"
  103. Text 251,55,"Easy"
  104. Text 239,83,"Moderate"
  105. Text 251,110,"Hard"
  106. Goto SUBB
  107. Rem*****Division***************  
  108. DIV:
  109. Ink 0,30
  110. Cls 30,216,14 To 313,35 : Cls 30,216,41 To 313,62 : Cls 30,216,68 To 313,89 : Cls 30,216,95 To 313,116
  111. Text 245,30,"Division"
  112. Text 251,55,"Easy"
  113. Text 239,83,"Moderate"
  114. Text 251,110,"Hard"
  115. Goto DIVIS
  116. Rem****Multiplication*********** 
  117. MULTI:
  118. Ink 0,30
  119. Cls 30,216,14 To 313,35 : Cls 30,216,41 To 313,62 : Cls 30,216,68 To 313,89 : Cls 30,216,95 To 313,116
  120. Text 228,30,"Multiplication"
  121. Text 251,55,"Easy"
  122. Text 239,83,"Moderate"
  123. Text 251,110,"Hard"
  124. Goto MULTTI
  125. Rem****Addition***** 
  126. PLUZ:
  127. Cls 0,10,42 To 165,62
  128. Cls 0,10,68 To 165,87
  129. Reset Zone 2
  130. Reset Zone 3
  131. Reset Zone 4
  132. Rem****** Easy ******
  133. Set Zone 2,344,83 To 441,105
  134. Rem**** Advanced ***** 
  135. Set Zone 3,344,110 To 441,131
  136. Rem****** Hard ******
  137. Set Zone 4,344,137 To 441,158
  138. Rem****** New zones for Addition ********* 
  139. Do 
  140.    MCOOD
  141.    If M=1 and Z=2 Then Cls 30,217,69 To 311,88 : Cls 30,217,96 To 311,115 : Bell 96 : Goto SIMP
  142.    If M=1 and Z=3 Then Cls 30,217,42 To 311,61 : Cls 30,217,96 To 311,115 : Bell 96 : Goto MEDE
  143.    If M=1 and Z=4 Then Cls 30,217,42 To 311,61 : Cls 30,217,69 To 311,88 : Bell 96 : Goto HLP
  144. Loop 
  145. Rem*********Addition Easy *************
  146. SIMP:
  147. Ink 5,0
  148. Pen 5 : Paper 0
  149.    BIN:
  150.    A=Rnd(10) : B=Rnd(9)
  151.    If A<1 Then Goto BIN
  152.    If B<1 Then Goto BIN
  153. LM$=Right$("0"+Mid$(Str$(A),1),2)
  154. RM$=Right$("0"+Mid$(Str$(B),1),2)
  155. Text 40,58,"What is "+LM$+" + "+RM$
  156. AGAIN:
  157. MPRESS=10
  158. RESULT$=""
  159. Do 
  160.    MCOOD
  161.    If M=1 and Z=5 Then Bell 96 : Goto HERE
  162.    If M=1 and Z=8 : Shoot 
  163.       Text MPRESS*8,80,"1"
  164.       Wait 10 : MPRESS=MPRESS+1
  165.       RESULT$=RESULT$+"1" : M=0 : Z=0
  166.    End If 
  167.    If M=1 and Z=9 : Shoot 
  168.       Text MPRESS*8,10*8,"2"
  169.       Wait 10 : MPRESS=MPRESS+1
  170.       RESULT$=RESULT$+"2" : M=0 : Z=0
  171.    End If 
  172.    If M=1 and Z=10 : Shoot 
  173.       Text MPRESS*8,80,"3"
  174.       Wait 10 : MPRESS=MPRESS+1
  175.       RESULT$=RESULT$+"3" : M=0 : Z=0
  176.    End If 
  177.    If M=1 and Z=11 : Shoot 
  178.       Text MPRESS*8,80,"4"
  179.       Wait 10 : MPRESS=MPRESS+1
  180.       RESULT$=RESULT$+"4" : M=0 : Z=0
  181.    End If 
  182.    If M=1 and Z=12 : Shoot 
  183.       Text MPRESS*8,80,"5"
  184.       Wait 10 : MPRESS=MPRESS+1
  185.       RESULT$=RESULT$+"5" : M=0 : Z=0
  186.    End If 
  187.    If M=1 and Z=13 : Shoot 
  188.       Text MPRESS*8,80,"6"
  189.       Wait 10 : MPRESS=MPRESS+1
  190.       RESULT$=RESULT$+"6" : M=0 : Z=0
  191.    End If 
  192.    If M=1 and Z=14 : Shoot 
  193.       Text MPRESS*8,80,"7"
  194.       Wait 10 : MPRESS=MPRESS+1
  195.       RESULT$=RESULT$+"7" : M=0 : Z=0
  196.    End If 
  197.    If M=1 and Z=15 : Shoot 
  198.       Text MPRESS*8,80,"8"
  199.       Wait 10 : MPRESS=MPRESS+1
  200.       RESULT$=RESULT$+"8" : M=0 : Z=0
  201.    End If 
  202.    If M=1 and Z=16 : Shoot 
  203.       Text MPRESS*8,80,"9"
  204.       Wait 10 : MPRESS=MPRESS+1
  205.       RESULT$=RESULT$+"9" : M=0 : Z=0
  206.    End If 
  207.    If M=1 and Z=17 : Shoot 
  208.       Text MPRESS*8,80,"0"
  209.       Wait 10 : MPRESS=MPRESS+1
  210.       RESULT$=RESULT$+"0" : M=0 : Z=0
  211.    End If 
  212.    If M=1 and Z=6 : Boom 
  213.       Text MPRESS*8-9,80,""
  214.       Wait 10 : Cls 0,10,68 To 165,87 : M=0 : Z=0 : Goto AGAIN
  215.    End If 
  216.    If M=1 and Z=7 Then Bell 96 : Goto ENT
  217. Loop 
  218. ENT:
  219. If A+B=Val(RESULT$) Then Cls 0,10,68 To 165,87 : Text 67,82,"correct" : Wait 75 : Cls 0,10,42 To 165,62 : Cls 0,10,68 To 165,87 : Goto SIMP
  220. If A+B<>Val(RESULT$) Then Cls 0,10,68 To 165,87 : Text 64,82,"incorrect" : Wait 75 : Cls 0,10,42 To 165,62 : Cls 0,10,68 To 165,87 : Goto SIMP
  221. Goto AGAIN
  222. Rem***Addition Moderate *****
  223. MEDE:
  224. Ink 5,0
  225. Pen 5 : Paper 0
  226.    BINIT:
  227.    A=Rnd(25) : B=Rnd(40)
  228.    If A<5 Then Goto BINIT
  229.    If B<10 Then Goto BINIT
  230. LM$=Right$("00"+Mid$(Str$(A),1),2)
  231. RM$=Right$("00"+Mid$(Str$(B),1),2)
  232. Text 37,58,"What is "+LM$+" + "+RM$
  233. ANOTHER:
  234. MPRESS=10
  235. RESULT$=""
  236. Do 
  237.    MCOOD
  238.    If M=1 and Z=5 Then Bell 96 : Goto HERE
  239.    If M=1 and Z=8 : Shoot 
  240.       Text MPRESS*8,80,"1"
  241.       Wait 10 : MPRESS=MPRESS+1
  242.       RESULT$=RESULT$+"1" : M=0 : Z=0
  243.    End If 
  244.    If M=1 and Z=9 : Shoot 
  245.       Text MPRESS*8,80,"2"
  246.       Wait 10 : MPRESS=MPRESS+1
  247.       RESULT$=RESULT$+"2" : M=0 : Z=0
  248.    End If 
  249.    If M=1 and Z=10 : Shoot 
  250.       Text MPRESS*8,80,"3"
  251.       Wait 10 : MPRESS=MPRESS+1
  252.       RESULT$=RESULT$+"3" : M=0 : Z=0
  253.    End If 
  254.    If M=1 and Z=11 : Shoot 
  255.       Text MPRESS*8,80,"4"
  256.       Wait 10 : MPRESS=MPRESS+1
  257.       RESULT$=RESULT$+"4" : M=0 : Z=0
  258.    End If 
  259.    If M=1 and Z=12 : Shoot 
  260.       Text MPRESS*8,80,"5"
  261.       Wait 10 : MPRESS=MPRESS+1
  262.       RESULT$=RESULT$+"5" : M=0 : Z=0
  263.    End If 
  264.    If M=1 and Z=13 : Shoot 
  265.       Text MPRESS*8,80,"6"
  266.       Wait 10 : MPRESS=MPRESS+1
  267.       RESULT$=RESULT$+"6" : M=0 : Z=0
  268.    End If 
  269.    If M=1 and Z=14 : Shoot 
  270.       Text MPRESS*8,80,"7"
  271.       Wait 10 : MPRESS=MPRESS+1
  272.       RESULT$=RESULT$+"7" : M=0 : Z=0
  273.    End If 
  274.    If M=1 and Z=15 : Shoot 
  275.       Text MPRESS*8,80,"8"
  276.       Wait 10 : MPRESS=MPRESS+1
  277.       RESULT$=RESULT$+"8" : M=0 : Z=0
  278.    End If 
  279.    If M=1 and Z=16 : Shoot 
  280.       Text MPRESS*8,80,"9"
  281.       Wait 10 : MPRESS=MPRESS+1
  282.       RESULT$=RESULT$+"9" : M=0 : Z=0
  283.    End If 
  284.    If M=1 and Z=17 : Shoot 
  285.       Text MPRESS*8,80,"0"
  286.       Wait 10 : MPRESS=MPRESS+1
  287.       RESULT$=RESULT$+"0" : M=0 : Z=0
  288.    End If 
  289.    If M=1 and Z=6 : Boom 
  290.       Text MPRESS*8-9,80,""
  291.       Wait 10 : Cls 0,10,68 To 165,87 : M=0 : Z=0 : Goto ANOTHER
  292.    End If 
  293.    If M=1 and Z=7 Then Bell 96 : Goto EWT
  294. Loop 
  295. EWT:
  296. If A+B=Val(RESULT$) Then Cls 0,10,68 To 165,87 : Text 67,82,"correct" : Wait 75 : Cls 0,10,42 To 165,62 : Cls 0,10,68 To 165,87 : Goto MEDE
  297. If A+B<>Val(RESULT$) Then Cls 0,10,68 To 165,87 : Text 64,82,"incorrect" : Wait 75 : Cls 0,10,42 To 165,62 : Cls 0,10,68 To 165,87 : Goto MEDE
  298. Goto ANOTHER
  299. Rem*****Addition Hard***** 
  300. HLP:
  301. Ink 5,0
  302. Pen 5 : Paper 0
  303.    BANIT:
  304.    A=Rnd(150) : B=Rnd(100)
  305.    If A<20 Then Goto BANIT
  306.    If B<20 Then Goto BANIT
  307. LM$=Right$("000"+Mid$(Str$(A),1),3)
  308. RM$=Right$("000"+Mid$(Str$(B),1),3)
  309. Text 23,58,"What is "+LM$+" + "+RM$
  310. ANOTHERONE:
  311. MPRESS=9
  312. RESULT$=""
  313. Do 
  314.    MCOOD
  315.    If M=1 and Z=5 Then Bell 96 : Goto HERE
  316.    If M=1 and Z=8 : Shoot 
  317.       Text MPRESS*8,80,"1"
  318.       Wait 10 : MPRESS=MPRESS+1
  319.       RESULT$=RESULT$+"1" : M=0 : Z=0
  320.    End If 
  321.    If M=1 and Z=9 : Shoot 
  322.       Text MPRESS*8,80,"2"
  323.       Wait 10 : MPRESS=MPRESS+1
  324.       RESULT$=RESULT$+"2" : M=0 : Z=0
  325.    End If 
  326.    If M=1 and Z=10 : Shoot 
  327.       Text MPRESS*8,80,"3"
  328.       Wait 10 : MPRESS=MPRESS+1
  329.       RESULT$=RESULT$+"3" : M=0 : Z=0
  330.    End If 
  331.    If M=1 and Z=11 : Shoot 
  332.       Text MPRESS*8,80,"4"
  333.       Wait 10 : MPRESS=MPRESS+1
  334.       RESULT$=RESULT$+"4" : M=0 : Z=0
  335.    End If 
  336.    If M=1 and Z=12 : Shoot 
  337.       Text MPRESS*8,80,"5"
  338.       Wait 10 : MPRESS=MPRESS+1
  339.       RESULT$=RESULT$+"5" : M=0 : Z=0
  340.    End If 
  341.    If M=1 and Z=13 : Shoot 
  342.       Text MPRESS*8,80,"6"
  343.       Wait 10 : MPRESS=MPRESS+1
  344.       RESULT$=RESULT$+"6" : M=0 : Z=0
  345.    End If 
  346.    If M=1 and Z=14 : Shoot 
  347.       Text MPRESS*8,80,"7"
  348.       Wait 10 : MPRESS=MPRESS+1
  349.       RESULT$=RESULT$+"7" : M=0 : Z=0
  350.    End If 
  351.    If M=1 and Z=15 : Shoot 
  352.       Text MPRESS*8,80,"8"
  353.       Wait 10 : MPRESS=MPRESS+1
  354.       RESULT$=RESULT$+"8" : M=0 : Z=0
  355.    End If 
  356.    If M=1 and Z=16 : Shoot 
  357.       Text MPRESS*8,80,"9"
  358.       Wait 10 : MPRESS=MPRESS+1
  359.       RESULT$=RESULT$+"9" : M=0 : Z=0
  360.    End If 
  361.    If M=1 and Z=17 : Shoot 
  362.       Text MPRESS*8,80,"0"
  363.       Wait 10 : MPRESS=MPRESS+1
  364.       RESULT$=RESULT$+"0" : M=0 : Z=0
  365.    End If 
  366.    If M=1 and Z=6 : Boom 
  367.       Text MPRESS*8-8,80,""
  368.       Wait 10 : Cls 0,10,68 To 165,87 : M=0 : Z=0 : Goto ANOTHERONE
  369.    End If 
  370.    If M=1 and Z=7 Then Bell 96 : Goto EUT
  371. Loop 
  372. EUT:
  373. If A+B=Val(RESULT$) Then Cls 0,10,68 To 165,87 : Text 67,82,"correct" : Wait 75 : Cls 0,10,42 To 165,62 : Cls 0,10,68 To 165,87 : Goto HLP
  374. If A+B<>Val(RESULT$) Then Cls 0,10,68 To 165,87 : Text 64,82,"incorrect" : Wait 75 : Cls 0,10,42 To 165,62 : Cls 0,10,68 To 165,87 : Goto HLP
  375. Goto ANOTHERONE
  376. Rem********* Subtraction ******* 
  377. SUBB:
  378. Cls 0,10,42 To 165,62
  379. Cls 0,10,68 To 165,87
  380. Reset Zone 2
  381. Reset Zone 3
  382. Reset Zone 4
  383. Rem****** Easy ******
  384. Set Zone 2,344,83 To 441,105
  385. Rem**** Moderate ***** 
  386. Set Zone 3,344,110 To 441,131
  387. Rem****** Hard ******
  388. Set Zone 4,344,137 To 441,158
  389. Rem******New zones for subtraction ******* 
  390. Do 
  391.    MCOOD
  392.    If M=1 and Z=2 Then Cls 30,217,69 To 311,88 : Cls 30,217,96 To 311,115 : Bell 96 : Goto SMAL
  393.    If M=1 and Z=3 Then Cls 30,217,42 To 311,61 : Cls 30,217,96 To 311,115 : Bell 96 : Goto MEDY
  394.    If M=1 and Z=4 Then Cls 30,217,42 To 311,61 : Cls 30,217,69 To 311,88 : Bell 96 : Goto HLPP
  395. Loop 
  396. Rem********* Easy Subtration ********
  397. SMAL:
  398. Ink 5,0
  399. Pen 5 : Paper 0
  400.    BUNG:
  401.    A=Rnd(10) : B=Rnd(9)
  402.    If A<1 Then Goto BUNG
  403.    If B<1 Then Goto BUNG
  404.    If B>A Then Goto BUNG
  405.    If B=A Then Goto BUNG
  406. LM$=Right$("00"+Mid$(Str$(A),1),2)
  407. RM$=Right$("00"+Mid$(Str$(B),1),2)
  408. Text 37,58,"What is "+LM$+" - "+RM$
  409. AGAAIN:
  410. MPRESS=10
  411. RESULT$=""
  412. Do 
  413.    MCOOD
  414.    If M=1 and Z=5 Then Bell 96 : Goto HERE
  415.    If M=1 and Z=8 : Shoot 
  416.       Text MPRESS*8,80,"1"
  417.       Wait 10 : MPRESS=MPRESS+1
  418.       RESULT$=RESULT$+"1" : M=0 : Z=0
  419.    End If 
  420.    If M=1 and Z=9 : Shoot 
  421.       Text MPRESS*8,80,"2"
  422.       Wait 10 : MPRESS=MPRESS+1
  423.       RESULT$=RESULT$+"2" : M=0 : Z=0
  424.    End If 
  425.    If M=1 and Z=10 : Shoot 
  426.       Text MPRESS*8,80,"3"
  427.       Wait 10 : MPRESS=MPRESS+1
  428.       RESULT$=RESULT$+"3" : M=0 : Z=0
  429.    End If 
  430.    If M=1 and Z=11 : Shoot 
  431.       Text MPRESS*8,80,"4"
  432.       Wait 10 : MPRESS=MPRESS+1
  433.       RESULT$=RESULT$+"4" : M=0 : Z=0
  434.    End If 
  435.    If M=1 and Z=12 : Shoot 
  436.       Text MPRESS*8,80,"5"
  437.       Wait 10 : MPRESS=MPRESS+1
  438.       RESULT$=RESULT$+"5" : M=0 : Z=0
  439.    End If 
  440.    If M=1 and Z=13 : Shoot 
  441.       Text MPRESS*8,80,"6"
  442.       Wait 10 : MPRESS=MPRESS+1
  443.       RESULT$=RESULT$+"6" : M=0 : Z=0
  444.    End If 
  445.    If M=1 and Z=14 : Shoot 
  446.       Text MPRESS*8,80,"7"
  447.       Wait 10 : MPRESS=MPRESS+1
  448.       RESULT$=RESULT$+"7" : M=0 : Z=0
  449.    End If 
  450.    If M=1 and Z=15 : Shoot 
  451.       Text MPRESS*8,80,"8"
  452.       Wait 10 : MPRESS=MPRESS+1
  453.       RESULT$=RESULT$+"8" : M=0 : Z=0
  454.    End If 
  455.    If M=1 and Z=16 : Shoot 
  456.       Text MPRESS*8,80,"9"
  457.       Wait 10 : MPRESS=MPRESS+1
  458.       RESULT$=RESULT$+"9" : M=0 : Z=0
  459.    End If 
  460.    If M=1 and Z=17 : Shoot 
  461.       Text MPRESS*8,80,"0"
  462.       Wait 10 : MPRESS=MPRESS+1
  463.       RESULT$=RESULT$+"0" : M=0 : Z=0
  464.    End If 
  465.    If M=1 and Z=6 : Boom 
  466.       Text MPRESS*8-9,80,""
  467.       Wait 10 : Cls 0,10,68 To 165,87 : M=0 : Z=0 : Goto AGAAIN
  468.    End If 
  469.    If M=1 and Z=7 Then Bell 96 : Goto NET
  470. Loop 
  471. NET:
  472. If A-B=Val(RESULT$) Then Cls 0,10,68 To 165,87 : Text 67,82,"correct" : Wait 50 : Cls 0,10,42 To 165,62 : Cls 0,10,68 To 165,87 : Goto SMAL
  473. If A-B<>Val(RESULT$) Then Cls 0,10,68 To 165,87 : Text 64,82,"incorrect" : Wait 50 : Cls 0,10,42 To 165,62 : Cls 0,10,68 To 165,87 : Goto SMAL
  474. Goto AGAAIN
  475. Rem******* moderate Subtraction *******
  476. MEDY:
  477. Ink 5,0
  478. Pen 5 : Paper 0
  479.    BUNGIT:
  480.    A=Rnd(65) : B=Rnd(53)
  481.    If A<20 Then Goto BUNGIT
  482.    If B<15 Then Goto BUNGIT
  483.    If B>A Then Goto BUNGIT
  484.    If B=A Then Goto BUNGIT
  485. LM$=Right$("000"+Mid$(Str$(A),1),3)
  486. RM$=Right$("000"+Mid$(Str$(B),1),3)
  487. Text 28,58,"What is "+LM$+" - "+RM$
  488. AGIN:
  489. MPRESS=10
  490. RESULT$=""
  491. Do 
  492.    MCOOD
  493.    If M=1 and Z=5 Then Bell 96 : Goto HERE
  494.    If M=1 and Z=8 : Shoot 
  495.       Text MPRESS*8,80,"1"
  496.       Wait 10 : MPRESS=MPRESS+1
  497.       RESULT$=RESULT$+"1" : M=0 : Z=0
  498.    End If 
  499.    If M=1 and Z=9 : Shoot 
  500.       Text MPRESS*8,80,"2"
  501.       Wait 10 : MPRESS=MPRESS+1
  502.       RESULT$=RESULT$+"2" : M=0 : Z=0
  503.    End If 
  504.    If M=1 and Z=10 : Shoot 
  505.       Text MPRESS*8,80,"3"
  506.       Wait 10 : MPRESS=MPRESS+1
  507.       RESULT$=RESULT$+"3" : M=0 : Z=0
  508.    End If 
  509.    If M=1 and Z=11 : Shoot 
  510.       Text MPRESS*8,80,"4"
  511.       Wait 10 : MPRESS=MPRESS+1
  512.       RESULT$=RESULT$+"4" : M=0 : Z=0
  513.    End If 
  514.    If M=1 and Z=12 : Shoot 
  515.       Text MPRESS*8,80,"5"
  516.       Wait 10 : MPRESS=MPRESS+1
  517.       RESULT$=RESULT$+"5" : M=0 : Z=0
  518.    End If 
  519.    If M=1 and Z=13 : Shoot 
  520.       Text MPRESS*8,80,"6"
  521.       Wait 10 : MPRESS=MPRESS+1
  522.       RESULT$=RESULT$+"6" : M=0 : Z=0
  523.    End If 
  524.    If M=1 and Z=14 : Shoot 
  525.       Text MPRESS*8,80,"7"
  526.       Wait 10 : MPRESS=MPRESS+1
  527.       RESULT$=RESULT$+"7" : M=0 : Z=0
  528.    End If 
  529.    If M=1 and Z=15 : Shoot 
  530.       Text MPRESS*8,80,"8"
  531.       Wait 10 : MPRESS=MPRESS+1
  532.       RESULT$=RESULT$+"8" : M=0 : Z=0
  533.    End If 
  534.    If M=1 and Z=16 : Shoot 
  535.       Text MPRESS*8,80,"9"
  536.       Wait 10 : MPRESS=MPRESS+1
  537.       RESULT$=RESULT$+"9" : M=0 : Z=0
  538.    End If 
  539.    If M=1 and Z=17 : Shoot 
  540.       Text MPRESS*8,80,"0"
  541.       Wait 10 : MPRESS=MPRESS+1
  542.       RESULT$=RESULT$+"0" : M=0 : Z=0
  543.    End If 
  544.    If M=1 and Z=6 : Boom 
  545.       Text MPRESS*8-9,80,""
  546.       Wait 10 : Cls 0,10,68 To 165,87 : M=0 : Z=0 : Goto AGIN
  547.    End If 
  548.    If M=1 and Z=7 Then Bell 96 : Goto NEET
  549. Loop 
  550. NEET:
  551. If A-B=Val(RESULT$) Then Cls 0,10,68 To 165,87 : Text 67,82,"correct" : Wait 50 : Cls 0,10,42 To 165,62 : Cls 0,10,68 To 165,87 : Goto MEDY
  552. If A-B<>Val(RESULT$) Then Cls 0,10,68 To 165,87 : Text 64,82,"incorrect" : Wait 50 : Cls 0,10,42 To 165,62 : Cls 0,10,68 To 165,87 : Goto MEDY
  553. Goto AGIN
  554. Rem******* Hard Subtraction ********** 
  555. HLPP:
  556. Ink 5,0
  557. Pen 5 : Paper 0
  558.    BLOWIT:
  559.    A=Rnd(125) : B=Rnd(98)
  560.    If A<30 Then Goto BLOWIT
  561.    If B<20 Then Goto BLOWIT
  562.    If B>A Then Goto BLOWIT
  563.    If B=A Then Goto BLOWIT
  564. LM$=Right$("000"+Mid$(Str$(A),1),3)
  565. RM$=Right$("000"+Mid$(Str$(B),1),3)
  566. Text 28,58,"What is "+LM$+" - "+RM$
  567. AGINI:
  568. MPRESS=9
  569. RESULT$=""
  570. Do 
  571.    MCOOD
  572.    If M=1 and Z=5 Then Bell 96 : Goto HERE
  573.    If M=1 and Z=8 : Shoot 
  574.       Text MPRESS*8,80,"1"
  575.       Wait 10 : MPRESS=MPRESS+1
  576.       RESULT$=RESULT$+"1" : M=0 : Z=0
  577.    End If 
  578.    If M=1 and Z=9 : Shoot 
  579.       Text MPRESS*8,80,"2"
  580.       Wait 10 : MPRESS=MPRESS+1
  581.       RESULT$=RESULT$+"2" : M=0 : Z=0
  582.    End If 
  583.    If M=1 and Z=10 : Shoot 
  584.       Text MPRESS*8,80,"3"
  585.       Wait 10 : MPRESS=MPRESS+1
  586.       RESULT$=RESULT$+"3" : M=0 : Z=0
  587.    End If 
  588.    If M=1 and Z=11 : Shoot 
  589.       Text MPRESS*8,80,"4"
  590.       Wait 10 : MPRESS=MPRESS+1
  591.       RESULT$=RESULT$+"4" : M=0 : Z=0
  592.    End If 
  593.    If M=1 and Z=12 : Shoot 
  594.       Text MPRESS*8,80,"5"
  595.       Wait 10 : MPRESS=MPRESS+1
  596.       RESULT$=RESULT$+"5" : M=0 : Z=0
  597.    End If 
  598.    If M=1 and Z=13 : Shoot 
  599.       Text MPRESS*8,80,"6"
  600.       Wait 10 : MPRESS=MPRESS+1
  601.       RESULT$=RESULT$+"6" : M=0 : Z=0
  602.    End If 
  603.    If M=1 and Z=14 : Shoot 
  604.       Text MPRESS*8,80,"7"
  605.       Wait 10 : MPRESS=MPRESS+1
  606.       RESULT$=RESULT$+"7" : M=0 : Z=0
  607.    End If 
  608.    If M=1 and Z=15 : Shoot 
  609.       Text MPRESS*8,80,"8"
  610.       Wait 10 : MPRESS=MPRESS+1
  611.       RESULT$=RESULT$+"8" : M=0 : Z=0
  612.    End If 
  613.    If M=1 and Z=16 : Shoot 
  614.       Text MPRESS*8,80,"9"
  615.       Wait 10 : MPRESS=MPRESS+1
  616.       RESULT$=RESULT$+"9" : M=0 : Z=0
  617.    End If 
  618.    If M=1 and Z=17 : Shoot 
  619.       Text MPRESS*8,80,"0"
  620.       Wait 10 : MPRESS=MPRESS+1
  621.       RESULT$=RESULT$+"0" : M=0 : Z=0
  622.    End If 
  623.    If M=1 and Z=6 : Boom 
  624.       Text MPRESS*8-8,80,""
  625.       Wait 10 : Cls 0,10,68 To 165,87 : M=0 : Z=0 : Goto AGINI
  626.    End If 
  627.    If M=1 and Z=7 Then Bell 96 : MPRESS=MPRESS+1 : Goto SWEET
  628. Loop 
  629. SWEET:
  630. If A-B=Val(RESULT$) Then Cls 0,10,68 To 165,87 : Text 67,82,"correct" : Wait 50 : Cls 0,10,42 To 165,62 : Cls 0,10,68 To 165,87 : Goto HLPP
  631. If A-B<>Val(RESULT$) Then Cls 0,10,68 To 165,87 : Text 64,82,"incorrect" : Wait 50 : Cls 0,10,42 To 165,62 : Cls 0,10,68 To 165,87 : Goto HLPP
  632. Goto AGINI
  633. Rem******** Division  *********
  634. DIVIS:
  635. Cls 0,10,42 To 165,62
  636. Cls 0,10,68 To 165,87
  637. Reset Zone 2
  638. Reset Zone 3
  639. Reset Zone 4
  640. Rem****** Easy ******
  641. Set Zone 2,344,83 To 441,105
  642. Rem**** Advanced ***** 
  643. Set Zone 3,344,110 To 441,131
  644. Rem****** Hard ******
  645. Set Zone 4,344,137 To 441,158
  646. Rem****** New zones for Addition ********* 
  647. Do 
  648.    MCOOD
  649.    If M=1 and Z=2 Then Cls 30,217,69 To 311,88 : Cls 30,217,96 To 311,115 : Bell 96 : Goto DSIMMP
  650.    If M=1 and Z=3 Then Cls 30,217,42 To 311,61 : Cls 30,217,96 To 311,115 : Bell 96 : Goto MHY
  651.    If M=1 and Z=4 Then Cls 30,217,42 To 311,61 : Cls 30,217,69 To 311,88 : Bell 96 : Goto HILP
  652. Loop 
  653. Rem******** Division  Easy ********* 
  654. DSIMMP:
  655. Ink 5,0
  656. Pen 5 : Paper 0
  657.    BLAWIT:
  658.    D#=Rnd(10) : F#=Rnd(8)
  659.    If D#<1 Then Goto BLAWIT
  660.    If F#<1 Then Goto BLAWIT
  661.    If F#>D# Then Goto BLAWIT
  662.    If F#=D# Then Goto BLAWIT
  663. E#=D#/F#
  664. E$=Mid$(Str$(E#),2)
  665. E=Instr(E$,".")
  666. E$=Left$(E$,E+3)
  667. LM$=Right$("00"+Mid$(Str$(D#),1),2)
  668. RM$=Right$("00"+Mid$(Str$(F#),1),2)
  669. Text 35,58,"What is "+LM$+" / "+RM$
  670. GAIN:
  671. MPRESS=8
  672. E=Instr(RESULT$,".")
  673. RESULT$=Left$(RESULT$,E+3)
  674. RESULT$=""
  675. Do 
  676.    MCOOD
  677.    If M=1 and Z=5 Then Bell 96 : Goto HERE
  678.    If M=1 and Z=8 : Shoot 
  679.       Text MPRESS*8,80,"1"
  680.       Wait 10 : MPRESS=MPRESS+1
  681.       RESULT$=RESULT$+"1" : M=0 : Z=0
  682.    End If 
  683.    If M=1 and Z=9 : Shoot 
  684.       Text MPRESS*8,80,"2"
  685.       Wait 10 : MPRESS=MPRESS+1
  686.       RESULT$=RESULT$+"2" : M=0 : Z=0
  687.    End If 
  688.    If M=1 and Z=10 : Shoot 
  689.       Text MPRESS*8,80,"3"
  690.       Wait 10 : MPRESS=MPRESS+1
  691.       RESULT$=RESULT$+"3" : M=0 : Z=0
  692.    End If 
  693.    If M=1 and Z=11 : Shoot 
  694.       Text MPRESS*8,80,"4"
  695.       Wait 10 : MPRESS=MPRESS+1
  696.       RESULT$=RESULT$+"4" : M=0 : Z=0
  697.    End If 
  698.    If M=1 and Z=12 : Shoot 
  699.       Text MPRESS*8,80,"5"
  700.       Wait 10 : MPRESS=MPRESS+1
  701.       RESULT$=RESULT$+"5" : M=0 : Z=0
  702.    End If 
  703.    If M=1 and Z=13 : Shoot 
  704.       Text MPRESS*8,80,"6"
  705.       Wait 10 : MPRESS=MPRESS+1
  706.       RESULT$=RESULT$+"6" : M=0 : Z=0
  707.    End If 
  708.    If M=1 and Z=14 : Shoot 
  709.       Text MPRESS*8,80,"7"
  710.       Wait 10 : MPRESS=MPRESS+1
  711.       RESULT$=RESULT$+"7" : M=0 : Z=0
  712.    End If 
  713.    If M=1 and Z=15 : Shoot 
  714.       Text MPRESS*8,80,"8"
  715.       Wait 10 : MPRESS=MPRESS+1
  716.       RESULT$=RESULT$+"8" : M=0 : Z=0
  717.    End If 
  718.    If M=1 and Z=16 : Shoot 
  719.       Text MPRESS*8,80,"9"
  720.       Wait 10 : MPRESS=MPRESS+1
  721.       RESULT$=RESULT$+"9" : M=0 : Z=0
  722.    End If 
  723.    If M=1 and Z=17 : Shoot 
  724.       Text MPRESS*8,80,"0"
  725.       Wait 10 : MPRESS=MPRESS+1
  726.       RESULT$=RESULT$+"0" : M=0 : Z=0
  727.    End If 
  728.    If M=1 and Z=18 : Shoot 
  729.       Text MPRESS*8,80,"."
  730.       Wait 10 : MPRESS=MPRESS+1
  731.       RESULT$=RESULT$+"." : M=0 : Z=0
  732.    End If 
  733.    If M=1 and Z=6 : Boom 
  734.       Text MPRESS*8-8,80,""
  735.       Wait 10 : Cls 0,10,68 To 165,87 : M=0 : Z=0 : Goto GAIN
  736.    End If 
  737.    If M=1 and Z=7 Then Bell 96 : Goto WEET
  738. Loop 
  739. WEET:
  740. If E$=(RESULT$) Then Cls 0,10,68 To 165,87 : Text 67,82,"correct" : Wait 50 : Cls 0,10,42 To 165,62 : Cls 0,10,68 To 165,87 : Goto DSIMMP
  741. If E$<>(RESULT$) Then Cls 0,10,68 To 165,87 : Text 64,82,"incorrect" : Wait 50 : Cls 0,10,42 To 165,62 : Cls 0,10,68 To 165,87 : Goto DSIMMP
  742. Goto GAIN
  743. Rem******** Division  Moderate ********* 
  744. MHY:
  745. Ink 5,0
  746. Pen 5 : Paper 0
  747.    CHUKIT:
  748.    D#=Rnd(50) : F#=Rnd(20)
  749.    If D#<10 Then Goto CHUKIT
  750.    If F#<5 Then Goto CHUKIT
  751.    If F#>D# Then Goto CHUKIT
  752.    If F#=D# Then Goto CHUKIT
  753. E#=D#/F#
  754. E$=Mid$(Str$(E#),2)
  755. E=Instr(E$,".")
  756. E$=Left$(E$,E+3)
  757. LM$=Right$("00"+Mid$(Str$(D#),1),2)
  758. RM$=Right$("00"+Mid$(Str$(F#),1),2)
  759. Text 28,58,"What is "+LM$+" / "+RM$
  760. RGAIN:
  761. MPRESS=8
  762. E=Instr(RESULT$,".")
  763. RESULT$=Left$(RESULT$,E+3)
  764. RESULT$=""
  765. Do 
  766.    MCOOD
  767.    If M=1 and Z=5 Then Bell 96 : Goto HERE
  768.    If M=1 and Z=8 : Shoot 
  769.       Text MPRESS*8,80,"1"
  770.       Wait 10 : MPRESS=MPRESS+1
  771.       RESULT$=RESULT$+"1" : M=0 : Z=0
  772.    End If 
  773.    If M=1 and Z=9 : Shoot 
  774.       Text MPRESS*8,80,"2"
  775.       Wait 10 : MPRESS=MPRESS+1
  776.       RESULT$=RESULT$+"2" : M=0 : Z=0
  777.    End If 
  778.    If M=1 and Z=10 : Shoot 
  779.       Text MPRESS*8,80,"3"
  780.       Wait 10 : MPRESS=MPRESS+1
  781.       RESULT$=RESULT$+"3" : M=0 : Z=0
  782.    End If 
  783.    If M=1 and Z=11 : Shoot 
  784.       Text MPRESS*8,80,"4"
  785.       Wait 10 : MPRESS=MPRESS+1
  786.       RESULT$=RESULT$+"4" : M=0 : Z=0
  787.    End If 
  788.    If M=1 and Z=12 : Shoot 
  789.       Text MPRESS*8,80,"5"
  790.       Wait 10 : MPRESS=MPRESS+1
  791.       RESULT$=RESULT$+"5" : M=0 : Z=0
  792.    End If 
  793.    If M=1 and Z=13 : Shoot 
  794.       Text MPRESS*8,80,"6"
  795.       Wait 10 : MPRESS=MPRESS+1
  796.       RESULT$=RESULT$+"6" : M=0 : Z=0
  797.    End If 
  798.    If M=1 and Z=14 : Shoot 
  799.       Text MPRESS*8,80,"7"
  800.       Wait 10 : MPRESS=MPRESS+1
  801.       RESULT$=RESULT$+"7" : M=0 : Z=0
  802.    End If 
  803.    If M=1 and Z=15 : Shoot 
  804.       Text MPRESS*8,80,"8"
  805.       Wait 10 : MPRESS=MPRESS+1
  806.       RESULT$=RESULT$+"8" : M=0 : Z=0
  807.    End If 
  808.    If M=1 and Z=16 : Shoot 
  809.       Text MPRESS*8,80,"9"
  810.       Wait 10 : MPRESS=MPRESS+1
  811.       RESULT$=RESULT$+"9" : M=0 : Z=0
  812.    End If 
  813.    If M=1 and Z=18 : Shoot 
  814.       Text MPRESS*8,80,"."
  815.       Wait 10 : MPRESS=MPRESS+1
  816.       RESULT$=RESULT$+"." : M=0 : Z=0
  817.    End If 
  818.    If M=1 and Z=17 : Shoot 
  819.       Text MPRESS*8,80,"0"
  820.       Wait 10 : MPRESS=MPRESS+1
  821.       RESULT$=RESULT$+"0" : M=0 : Z=0
  822.    End If 
  823.    If M=1 and Z=6 : Boom 
  824.       Text MPRESS*8-7,80,""
  825.       Wait 10 : Cls 0,10,68 To 165,87 : M=0 : Z=0 : Goto RGAIN
  826.    End If 
  827.    If M=1 and Z=7 Then Bell 96 : Goto TWEET
  828. Loop 
  829. TWEET:
  830. If E$=(RESULT$) Then Cls 0,10,68 To 165,87 : Text 67,82,"correct" : Wait 50 : Cls 0,10,42 To 165,62 : Cls 0,10,68 To 165,87 : Goto MHY
  831. If E$<>(RESULT$) Then Cls 0,10,68 To 165,87 : Text 64,82,"Incorrect" : Cls 0,10,42 To 165,62 : Cls 0,10,68 To 165,87 : Goto MHY
  832. Goto RGAIN
  833. Rem******** Division  Hard ********* 
  834. HILP:
  835. Ink 5,0
  836. Pen 5 : Paper 0
  837.    CHUKITAWAY:
  838.    D#=Rnd(1000) : F#=Rnd(100)
  839.    If D#<50 Then Goto CHUKITAWAY
  840.    If F#<25 Then Goto CHUKITAWAY
  841.    If F#>D# Then Goto CHUKITAWAY
  842.    If F#=D# Then Goto CHUKITAWAY
  843. E#=D#/F#
  844. E$=Mid$(Str$(E#),2)
  845. E=Instr(E$,".")
  846. E$=Left$(E$,E+3)
  847. LM$=Right$("000"+Mid$(Str$(D#),1),3)
  848. RM$=Right$("000"+Mid$(Str$(F#),1),3)
  849. Text 24,58,"What is "+LM$+" / "+RM$
  850. RAGAIN:
  851. MPRESS=8
  852. E=Instr(RESULT$,".")
  853. RESULT$=Left$(RESULT$,E+3)
  854. RESULT$=""
  855. Do 
  856.    MCOOD
  857.    If M=1 and Z=5 Then Bell 96 : Goto HERE
  858.    If M=1 and Z=8 : Shoot 
  859.       Text MPRESS*8,80,"1"
  860.       Wait 10 : MPRESS=MPRESS+1
  861.       RESULT$=RESULT$+"1" : M=0 : Z=0
  862.    End If 
  863.    If M=1 and Z=9 : Shoot 
  864.       Text MPRESS*8,80,"2"
  865.       Wait 10 : MPRESS=MPRESS+1
  866.       RESULT$=RESULT$+"2" : M=0 : Z=0
  867.    End If 
  868.    If M=1 and Z=10 : Shoot 
  869.       Text MPRESS*8,80,"3"
  870.       Wait 10 : MPRESS=MPRESS+1
  871.       RESULT$=RESULT$+"3" : M=0 : Z=0
  872.    End If 
  873.    If M=1 and Z=11 : Shoot 
  874.       Text MPRESS*8,80,"4"
  875.       Wait 10 : MPRESS=MPRESS+1
  876.       RESULT$=RESULT$+"4" : M=0 : Z=0
  877.    End If 
  878.    If M=1 and Z=12 : Shoot 
  879.       Text MPRESS*8,80,"5"
  880.       Wait 10 : MPRESS=MPRESS+1
  881.       RESULT$=RESULT$+"5" : M=0 : Z=0
  882.    End If 
  883.    If M=1 and Z=13 : Shoot 
  884.       Text MPRESS*8,80,"6"
  885.       Wait 10 : MPRESS=MPRESS+1
  886.       RESULT$=RESULT$+"6" : M=0 : Z=0
  887.    End If 
  888.    If M=1 and Z=14 : Shoot 
  889.       Text MPRESS*8,80,"7"
  890.       Wait 10 : MPRESS=MPRESS+1
  891.       RESULT$=RESULT$+"7" : M=0 : Z=0
  892.    End If 
  893.    If M=1 and Z=15 : Shoot 
  894.       Text MPRESS*8,80,"8"
  895.       Wait 10 : MPRESS=MPRESS+1
  896.       RESULT$=RESULT$+"8" : M=0 : Z=0
  897.    End If 
  898.    If M=1 and Z=16 : Shoot 
  899.       Text MPRESS*8,80,"9"
  900.       Wait 10 : MPRESS=MPRESS+1
  901.       RESULT$=RESULT$+"9" : M=0 : Z=0
  902.    End If 
  903.    If M=1 and Z=17 : Shoot 
  904.       Text MPRESS*8,80,"0"
  905.       Wait 10 : MPRESS=MPRESS+1
  906.       RESULT$=RESULT$+"0" : M=0 : Z=0
  907.    End If 
  908.    If M=1 and Z=18 : Shoot 
  909.       Text MPRESS*8,80,"."
  910.       Wait 10 : MPRESS=MPRESS+1
  911.       RESULT$=RESULT$+"." : M=0 : Z=0
  912.    End If 
  913.    If M=1 and Z=6 : Boom 
  914.       Text MPRESS*8-7,80,""
  915.       Wait 10 : Cls 0,10,68 To 165,87 : M=0 : Z=0 : Goto RAGAIN
  916.    End If 
  917.    If M=1 and Z=7 Then Bell 96 : Goto TWEETI
  918. Loop 
  919. TWEETI:
  920. If E$=(RESULT$) Then Cls 0,10,68 To 165,87 : Text 67,82,"correct" : Wait 50 : Cls 0,10,42 To 165,62 : Cls 0,10,68 To 165,87 : Goto HILP
  921. If E$<>(RESULT$) Then Cls 0,10,68 To 165,87 : Text 64,82,"incorrect" : Wait 50 : Cls 0,10,42 To 165,62 : Cls 0,10,68 To 165,87 : Goto HILP
  922. Goto RAGAIN
  923. Rem******* Multiplication ******** 
  924. MULTTI:
  925. Cls 0,10,42 To 165,62
  926. Cls 0,10,68 To 165,87
  927. Reset Zone 2
  928. Reset Zone 3
  929. Reset Zone 4
  930. Rem****** Easy ******
  931. Set Zone 2,344,83 To 441,105
  932. Rem**** Moderate ***** 
  933. Set Zone 3,344,110 To 441,131
  934. Rem****** Hard ******
  935. Set Zone 4,344,137 To 441,158
  936. Rem******New zones for subtraction ******* 
  937. Do 
  938.    MCOOD
  939.    If M=1 and Z=2 Then Cls 30,217,69 To 311,88 : Cls 30,217,96 To 311,115 : Bell 96 : Goto SMALA
  940.    If M=1 and Z=3 Then Cls 30,217,42 To 311,61 : Cls 30,217,96 To 311,115 : Bell 96 : Goto MEDYUM
  941.    If M=1 and Z=4 Then Cls 30,217,42 To 311,61 : Cls 30,217,69 To 311,88 : Bell 96 : Goto LPPIT
  942. Loop 
  943. Rem********Multiplication easy ******* 
  944. SMALA:
  945. Ink 5,0
  946. Pen 5 : Paper 0
  947.    CHUCKITAWAY:
  948.    A=Rnd(8) : B=Rnd(10)
  949.    If A<1 Then Goto CHUCKITAWAY
  950.    If B<1 Then Goto CHUCKITAWAY
  951.    If B>A Then Goto CHUCKITAWAY
  952.    If B=A Then Goto CHUCKITAWAY
  953. LM$=Right$("00"+Mid$(Str$(A),1),2)
  954. RM$=Right$("00"+Mid$(Str$(B),1),2)
  955. Text 35,58,"What is "+LM$+" x "+RM$
  956. RAGAINT:
  957. MPRESS=10
  958. RESULT$=""
  959. Do 
  960.    MCOOD
  961.    If M=1 and Z=5 Then Bell 96 : Goto HERE
  962.    If M=1 and Z=8 : Shoot 
  963.       Text MPRESS*8,80,"1"
  964.       Wait 10 : MPRESS=MPRESS+1
  965.       RESULT$=RESULT$+"1" : M=0 : Z=0
  966.    End If 
  967.    If M=1 and Z=9 : Shoot 
  968.       Text MPRESS*8,80,"2"
  969.       Wait 10 : MPRESS=MPRESS+1
  970.       RESULT$=RESULT$+"2" : M=0 : Z=0
  971.    End If 
  972.    If M=1 and Z=10 : Shoot 
  973.       Text MPRESS*8,80,"3"
  974.       Wait 10 : MPRESS=MPRESS+1
  975.       RESULT$=RESULT$+"3" : M=0 : Z=0
  976.    End If 
  977.    If M=1 and Z=11 : Shoot 
  978.       Text MPRESS*8,80,"4"
  979.       Wait 10 : MPRESS=MPRESS+1
  980.       RESULT$=RESULT$+"4" : M=0 : Z=0
  981.    End If 
  982.    If M=1 and Z=12 : Shoot 
  983.       Text MPRESS*8,80,"5"
  984.       Wait 10 : MPRESS=MPRESS+1
  985.       RESULT$=RESULT$+"5" : M=0 : Z=0
  986.    End If 
  987.    If M=1 and Z=13 : Shoot 
  988.       Text MPRESS*8,80,"6"
  989.       Wait 10 : MPRESS=MPRESS+1
  990.       RESULT$=RESULT$+"6" : M=0 : Z=0
  991.    End If 
  992.    If M=1 and Z=14 : Shoot 
  993.       Text MPRESS*8,80,"7"
  994.       Wait 10 : MPRESS=MPRESS+1
  995.       RESULT$=RESULT$+"7" : M=0 : Z=0
  996.    End If 
  997.    If M=1 and Z=15 : Shoot 
  998.       Text MPRESS*8,80,"8"
  999.       Wait 10 : MPRESS=MPRESS+1
  1000.       RESULT$=RESULT$+"8" : M=0 : Z=0
  1001.    End If 
  1002.    If M=1 and Z=16 : Shoot 
  1003.       Text MPRESS*8,80,"9"
  1004.       Wait 10 : MPRESS=MPRESS+1
  1005.       RESULT$=RESULT$+"9" : M=0 : Z=0
  1006.    End If 
  1007.    If M=1 and Z=17 : Shoot 
  1008.       Text MPRESS*8,80,"0"
  1009.       Wait 10 : MPRESS=MPRESS+1
  1010.       RESULT$=RESULT$+"0" : M=0 : Z=0
  1011.    End If 
  1012.    If M=1 and Z=6 : Boom 
  1013.       Text MPRESS*8-9,80,""
  1014.       Wait 10 : Cls 0,10,68 To 165,87 : M=0 : Z=0 : Goto RAGAINT
  1015.    End If 
  1016.    If M=1 and Z=7 Then Bell 96 : Goto TWIITI
  1017. Loop 
  1018. TWIITI:
  1019. If A*B=Val(RESULT$) Then Cls 0,10,68 To 165,87 : Text 67,82,"correct" : Wait 50 : Cls 0,10,42 To 165,62 : Cls 0,10,68 To 165,87 : Goto SMALA
  1020. If A*B<>Val(RESULT$) Then Cls 0,10,68 To 165,87 : Text 64,82,"incorrect" : Wait 50 : Cls 0,10,42 To 165,62 : Cls 0,10,68 To 165,87 : Goto SMALA
  1021. Goto RAGAINT
  1022. Rem******** Multiplication moderate *****
  1023. MEDYUM:
  1024. Ink 5,0
  1025. Pen 5 : Paper 0
  1026.    CHUCKITINABIN:
  1027.    A=Rnd(12) : B=Rnd(30)
  1028.    If A<5 Then Goto CHUCKITINABIN
  1029.    If B<5 Then Goto CHUCKITINABIN
  1030.    If B>A Then Goto CHUCKITINABIN
  1031.    If B=A Then Goto CHUCKITINABIN
  1032. LM$=Right$("00"+Mid$(Str$(A),1),2)
  1033. RM$=Right$("00"+Mid$(Str$(B),1),2)
  1034. Text 28,58,"What is "+LM$+" x "+RM$
  1035. RAGA:
  1036. MPRESS=10
  1037. RESULT$=""
  1038. Do 
  1039.    MCOOD
  1040.    If M=1 and Z=5 Then Bell 96 : Goto HERE
  1041.    If M=1 and Z=8 : Shoot 
  1042.       Text MPRESS*8,80,"1"
  1043.       Wait 10 : MPRESS=MPRESS+1
  1044.       RESULT$=RESULT$+"1" : M=0 : Z=0
  1045.    End If 
  1046.    If M=1 and Z=9 : Shoot 
  1047.       Text MPRESS*8,80,"2"
  1048.       Wait 10 : MPRESS=MPRESS+1
  1049.       RESULT$=RESULT$+"2" : M=0 : Z=0
  1050.    End If 
  1051.    If M=1 and Z=10 : Shoot 
  1052.       Text MPRESS*8,80,"3"
  1053.       Wait 10 : MPRESS=MPRESS+1
  1054.       RESULT$=RESULT$+"3" : M=0 : Z=0
  1055.    End If 
  1056.    If M=1 and Z=11 : Shoot 
  1057.       Text MPRESS*8,80,"4"
  1058.       Wait 10 : MPRESS=MPRESS+1
  1059.       RESULT$=RESULT$+"4" : M=0 : Z=0
  1060.    End If 
  1061.    If M=1 and Z=12 : Shoot 
  1062.       Text MPRESS*8,80,"5"
  1063.       Wait 10 : MPRESS=MPRESS+1
  1064.       RESULT$=RESULT$+"5" : M=0 : Z=0
  1065.    End If 
  1066.    If M=1 and Z=13 : Shoot 
  1067.       Text MPRESS*8,80,"6"
  1068.       Wait 10 : MPRESS=MPRESS+1
  1069.       RESULT$=RESULT$+"6" : M=0 : Z=0
  1070.    End If 
  1071.    If M=1 and Z=14 : Shoot 
  1072.       Text MPRESS*8,80,"7"
  1073.       Wait 10 : MPRESS=MPRESS+1
  1074.       RESULT$=RESULT$+"7" : M=0 : Z=0
  1075.    End If 
  1076.    If M=1 and Z=15 : Shoot 
  1077.       Text MPRESS*8,80,"8"
  1078.       Wait 10 : MPRESS=MPRESS+1
  1079.       RESULT$=RESULT$+"8" : M=0 : Z=0
  1080.    End If 
  1081.    If M=1 and Z=16 : Shoot 
  1082.       Text MPRESS*8,80,"9"
  1083.       Wait 10 : MPRESS=MPRESS+1
  1084.       RESULT$=RESULT$+"9" : M=0 : Z=0
  1085.    End If 
  1086.    If M=1 and Z=17 : Shoot 
  1087.       Text MPRESS*8,80,"0"
  1088.       Wait 10 : MPRESS=MPRESS+1
  1089.       RESULT$=RESULT$+"0" : M=0 : Z=0
  1090.    End If 
  1091.    If M=1 and Z=6 : Boom 
  1092.       Text MPRESS*8-9,80,""
  1093.       Wait 10 : Cls 0,10,68 To 165,87 : M=0 : Z=0 : Goto RAGA
  1094.    End If 
  1095.    If M=1 and Z=7 Then Bell 96 : Goto WITI
  1096. Loop 
  1097. WITI:
  1098. If A*B=Val(RESULT$) Then Cls 0,10,68 To 165,87 : Text 67,82,"correct" : Wait 50 : Cls 0,10,42 To 165,62 : Cls 0,10,68 To 165,87 : Goto MEDYUM
  1099. If A*B<>Val(RESULT$) Then Cls 0,10,68 To 165,87 : Text 64,82,"incorrect" : Wait 50 : Cls 0,10,42 To 165,62 : Cls 0,10,68 To 165,87 : Goto MEDYUM
  1100. Goto RAGA
  1101. Rem******** Multiplication hard *****
  1102. LPPIT:
  1103. Ink 5,0
  1104. Pen 5 : Paper 0
  1105.    INABIN:
  1106.    A=Rnd(200) : B=Rnd(80)
  1107.    If A<50 Then Goto INABIN
  1108.    If B<15 Then Goto INABIN
  1109.    If B>A Then Goto INABIN
  1110.    If B=A Then Goto INABIN
  1111. LM$=Right$("000"+Mid$(Str$(A),1),3)
  1112. RM$=Right$("000"+Mid$(Str$(B),1),3)
  1113. Text 28,58,"What is "+LM$+" x "+RM$
  1114. RATI:
  1115. MPRESS=9
  1116. RESULT$=""
  1117. Do 
  1118.    MCOOD
  1119.    If M=1 and Z=5 Then Bell 96 : Goto HERE
  1120.    If M=1 and Z=8 : Shoot 
  1121.       Text MPRESS*8,80,"1"
  1122.       Wait 10 : MPRESS=MPRESS+1
  1123.       RESULT$=RESULT$+"1" : M=0 : Z=0
  1124.    End If 
  1125.    If M=1 and Z=9 : Shoot 
  1126.       Text MPRESS*8,80,"2"
  1127.       Wait 10 : MPRESS=MPRESS+1
  1128.       RESULT$=RESULT$+"2" : M=0 : Z=0
  1129.    End If 
  1130.    If M=1 and Z=10 : Shoot 
  1131.       Text MPRESS*8,80,"3"
  1132.       Wait 10 : MPRESS=MPRESS+1
  1133.       RESULT$=RESULT$+"3" : M=0 : Z=0
  1134.    End If 
  1135.    If M=1 and Z=11 : Shoot 
  1136.       Text MPRESS*8,80,"4"
  1137.       Wait 10 : MPRESS=MPRESS+1
  1138.       RESULT$=RESULT$+"4" : M=0 : Z=0
  1139.    End If 
  1140.    If M=1 and Z=12 : Shoot 
  1141.       Text MPRESS*8,80,"5"
  1142.       Wait 10 : MPRESS=MPRESS+1
  1143.       RESULT$=RESULT$+"5" : M=0 : Z=0
  1144.    End If 
  1145.    If M=1 and Z=13 : Shoot 
  1146.       Text MPRESS*8,80,"6"
  1147.       Wait 10 : MPRESS=MPRESS+1
  1148.       RESULT$=RESULT$+"6" : M=0 : Z=0
  1149.    End If 
  1150.    If M=1 and Z=14 : Shoot 
  1151.       Text MPRESS*8,80,"7"
  1152.       Wait 10 : MPRESS=MPRESS+1
  1153.       RESULT$=RESULT$+"7" : M=0 : Z=0
  1154.    End If 
  1155.    If M=1 and Z=15 : Shoot 
  1156.       Text MPRESS*8,80,"8"
  1157.       Wait 10 : MPRESS=MPRESS+1
  1158.       RESULT$=RESULT$+"8" : M=0 : Z=0
  1159.    End If 
  1160.    If M=1 and Z=16 : Shoot 
  1161.       Text MPRESS*8,80,"9"
  1162.       Wait 10 : MPRESS=MPRESS+1
  1163.       RESULT$=RESULT$+"9" : M=0 : Z=0
  1164.    End If 
  1165.    If M=1 and Z=17 : Shoot 
  1166.       Text MPRESS*8,80,"0"
  1167.       Wait 10 : MPRESS=MPRESS+1
  1168.       RESULT$=RESULT$+"0" : M=0 : Z=0
  1169.    End If 
  1170.    If M=1 and Z=6 : Boom 
  1171.       Text MPRESS*8-8,80,""
  1172.       Wait 10 : Cls 0,10,68 To 165,87 : M=0 : Z=0 : Goto RATI
  1173.    End If 
  1174.    If M=1 and Z=7 Then Bell 96 : Goto FED_UP
  1175. Loop 
  1176. FED_UP:
  1177. If A*B=Val(RESULT$) Then Cls 0,10,68 To 165,87 : Text 67,82,"correct" : Wait 50 : Cls 0,10,42 To 165,62 : Cls 0,10,68 To 165,87 : Goto LPPIT
  1178. If A*B<>Val(RESULT$) Then Cls 0,10,68 To 165,87 : Text 64,82,"incorrect" : Wait 50 : Cls 0,10,42 To 165,62 : Cls 0,10,68 To 165,87 : Goto LPPIT
  1179. Goto RATI
  1180. Procedure MCOOD
  1181.    Z=Zone(X Mouse,Y Mouse)
  1182.    X=X Mouse
  1183.    Y=Y Mouse
  1184.    M=Mouse Key
  1185. End Proc