home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 5 / 005.d81 / addition (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  3KB  |  102 lines
  1. 10 rem**addition drill
  2. 20 rem**john l.eubanks,ph.d
  3. 30 rem**pineville,la.71360
  4. 40 rem**load"addition",8
  5. 50 rem**02/07/84
  6. 60 rem**
  7. 70 print"[147]"
  8. 80 rem**instructions and title
  9. 90 print"[147]":poke53281,2
  10. 91 print"[144]            addition drill"
  11. 92 print"                 by[144]"
  12. 93 print"            john l eubanks[154]"
  13. 94 forx=1to2000:nextx:print"[147]"
  14. 100 print"please add the two numbers"
  15. 110 print"and type your answer when asked."
  16. 120 print"you may work the problem "
  17. 130 print"on paper if you like."
  18. 140 print:print
  19. 150 print"if you are ready for the problem,"
  20. 160 print"press the * key to begin."
  21. 170 get a$
  22. 180 if a$<>"*"then170
  23. 190 let t=0
  24. 200 print"[147]"
  25. 205 let t=0
  26. 210 print"            ***menu***"
  27. 215 print:print
  28. 220 print"choose one level of difficulty"
  29. 230 print:print
  30. 240 print" key # 1 for 0-5"
  31. 250 print" key # 2 for 5-10"
  32. 260 print" key # 3 for 0-10"
  33. 270 print" key # 4 for 5-20"
  34. 280 print" key # 5 to exit the program"
  35. 290 print:print
  36. 300 print"press the key # of the level you choose"
  37. 305 print"then press <ret>"
  38. 310 print:print
  39. 320 input p:ifp<1orp>5then200
  40. 330 on p goto 1000,2000,3000,4000,5000
  41. 908 o return
  42. 990 rem**random numbers subroutine for           0-5 and answer calculation
  43. 1000 n=int(5*rnd(0))
  44. 1020 m=int(5*rnd(0))
  45. 1040 a=n+m:gosub 9000
  46. 1050 goto1000
  47. 1060 rem
  48. 1190 rem**random numbers subroutine for          5-10 and answer calculation
  49. 2000 n=int(5*rnd(0)+5)
  50. 2020 m=int(5*rnd(0)+5)
  51. 2040 a=n+m:gosub 9000
  52. 2050 goto 2000
  53. 2060 rem
  54. 2990 rem**random numbers subroutine for           0-10 and answer calculation
  55. 3000 n=int(10*rnd(0))
  56. 3020 m=int(10*rnd(0))
  57. 3030 a=n+m:gosub 9000
  58. 3050 goto3000
  59. 3060 rem
  60. 3990 rem**random numbers subroutine for           5-20 and answer calculation
  61. 4000 n=int(15*rnd(0)+5)
  62. 4010 m=int(15*rnd(0)+5)
  63. 4040 a=n+m:gosub 9000
  64. 4050 goto4000
  65. 4060 rem
  66. 5000 print"[147]"
  67. 5010 goto63000
  68. 8990 rem**print routine and answer input
  69. 9000 print"[147]"
  70. 9010 printn;"+";m;"= ?"
  71. 9020 print
  72. 9030 input"what is your answer";y
  73. 9040 if abs(y-a)<.001 then 9075
  74. 9050 print"[147]":print"sorry,thats not quite right. try again."
  75. 9060 for u=1to1000:nextu
  76. 9070 goto9000
  77. 9075 gosub 9100
  78. 9080 print"[147]":print""
  79. 9082 rem**counting and limit routine
  80. 9085 let t=t+1
  81. 9087 if t<5 then 10000
  82. 9090 if t=5 then 9092
  83. 9092 print"[147]":print"five correct is reallly neat!  choose     again!"
  84. 9095 fori=1to2000:nexti:goto200
  85. 9100 let p=int(10*rnd(0)+1)
  86. 9105 onp goto 9205,9206,9207,9208,9209,9210,9211,9212,9213,9214,9215
  87. 9110 return
  88. 9205 print"[156]   superfine!":forx=1to1200:nextx:goto9110
  89. 9206 print"[158]   are you a math pro ?":forx=1to1200:nextx:goto9110
  90. 9207 print"******right again*****":forx=1to1200:nextx:goto9110
  91. 9208 print"[144]  man, what a job !!":forx=1to1200:nextx:goto9110
  92. 9209 print"   good job  [146]":forx=1to1200:nextx:goto9110
  93. 9210 print"very[158] very[159] good ":forx=1to1200:nextx:goto9110
  94. 9211 print"[158]    sure you're not a math pro ? ":forx=1to1200:nextx:goto9110
  95. 9212 print"   nicely, nicely":forx=1to1200:nextx:goto9110
  96. 9213 print"   [158]whee  ":forx=1to1200:nextx:goto9110
  97. 9214 print"   how about that   [146]":forx=1to1200:nextx:goto9110
  98. 9215 print"[144] very good":forx=1to1200:nextx:goto9110
  99. 10000 return
  100. 63000 print"[147]load"chr$(34)"payload"chr$(34)",8":print"run"
  101. 63010 poke631,13:poke632,13:poke198,2:end
  102.