home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Educational / MATH-HELP-V4 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  6.1 KB  |  171 lines
  1. 5 PRINT"[147]":POKE 53281,1:POKE 53280,1:POKE 774,0
  2. 6 PRINT"[159]                                      ";
  3. 7 PRINT"             [159][146][161][156]FREEWARE SOFTWARE[159][161] ";
  4. 8 PRINT"          [155][146] [158][161][155][146]   [158][191][172][190][155]  [159]         ";
  5. 9 PRINT"           [155][146]  [158][190][155]       [158][146][188][187][162][155][146]  [158][172]";
  6. 10 PRINT"[191][155]   [159][146][161][156]C.C.DENNIS  1987[155] [159][161] [158][146][188][162]";
  7. 11 PRINT"[162][162][155][146] [158][162][162][146][190]  [155][146] [158][188][155]   [158][190][155] [158][190][155]  [159]    ";
  8. 12 PRINT"                [146]  [158][190]                ";
  9. 13 PRINT" [159] [144][146]OWINGS MILLS, MD[159]            [159]   ";
  10. 14 PRINT"                                     [129]  ";
  11. 15 PRINT"      [146][161] [161]                  [146][161] [161]      ";
  12. 16 PRINT"   [156]       [129][146][161] [161][146] [162][155] [172][187][155] [172][162] [172][162][162][162][155] [187]";
  13. 17 PRINT"[155] [172][155] [129][161] [161][156]       [129]  [156] [144][146]GRADE[156] [129][146][161] [161]";
  14. 18 PRINT"[146] [161][191][190][161][155] [191][146][188][187][155]  [161][155]  [161][155] [161][146] [129][161] [161][156] [144]";
  15. 19 PRINT"[146]GRADE[156] [129]  [156]       [129][146][161] [161][155][146] [161][155]  [161][172][162][162]";
  16. 20 PRINT"[146][191][155]  [161][155]  [172][162][187][146] [129][161] [161][156]       [129]  [156]   [144][146]3";
  17. 21 PRINT"[156]   [129][146][161] [161][155][146] [190][155]  [190][188][155]  [188][155]  [190][155]  [190][155] ";
  18. 22 PRINT"[188] [129][161] [161][156]   [144][146]4[156]   [129]  [156]       [129][146][161] [161]   ";
  19. 23 PRINT"               [129][146][161] [161][156]       [129]  [156]       ";
  20. 24 PRINT"[129][146][161] [161]                  [129][146][161] [161][156]       [129]";
  21. 25 PRINT"  [156]       [129][146][161] [161]      [144][146]VER 4.0     [129]";
  22. 26 PRINT"[146][161] [161][156]       [129]  [156]       [129][146][161] [161]         ";
  23. 27 PRINT"         [129][146][161] [161][156]       [129]         [146][161] [161]  ";
  24. 28 PRINT"                [146][161] [161]        [159][146] [155]       ";
  25. 29 PRINT"                                [159] [155]     ";
  26. 30 PRINT"   [155]                               [159] [155] ";
  27. 31 PRINT"      PRESS F7 FOR INSTRUCTIONS[155]       ";
  28. 32 PRINT"[159] [155]                                     ";
  29. 33 PRINT"  [159] [155]        PRESS F1 TO CONTINUE ON [155] ";
  30. 34 PRINT"      [159] [155]                               ";
  31. 35 PRINT"                                        ";
  32. 37 GET F$:IF F$=""THEN37:IF F$=CHR$(133)THEN 100
  33. 38 IF F$=CHR$(136)THEN6000
  34. 100 PRINTCHR$(147)
  35. 110 POKE 53280,8:POKE 53281,8:PRINT
  36. 300 PRINT "[144]WHAT IS YOUR NAME ?":PRINT
  37. 305 POKE 19,32:INPUT "";N$
  38. 310 PRINT "[147]HELLO "N$
  39. 315 POKE 53280,8:POKE 53281,12
  40. 320 PRINT "[144]WHAT WOULD YOU[144] LIKE TO DO ?"
  41. 321 E=0:PRINT "SELECT THE LETTER":PRINT:PRINT
  42. 325 PRINT "[193][193][159][193][156][193][193][193][158][193][144][193][193][159][193][156][193][193][193][158][193][144][193][193][159][193][156][193]"
  43. 327 PRINT "[193]               [156] [193]"
  44. 329 PRINT "[193] M[146]ULTIPLICATION [193]"
  45. 330 PRINT "[193] D[146]IVISION[144]      [158] [193]"
  46. 335 PRINT "[193] A[146]DDITION[144]       [156][193]"
  47. 340 PRINT "[193] S[146]UBTRACTION[144]    [193]"
  48. 341 PRINT"[193] Q[146]UIT [144]          [193]"
  49. 345 PRINT "[193]               [159] [193]"
  50. 347 PRINT "[193][156][193][158][193][193][193][193][193][193][156][193][158][193][159][193][193][156][193][193][193][156][193][193][193]"
  51. 450 GET MM$:IF MM$=""GOTO 450
  52. 455 IF MM$="M"THEN GOTO 1000
  53. 456 IF MM$="S" THEN GOTO 3000
  54. 457 IF MM$="A"THEN GOTO 2000
  55. 459 IF MM$="D" THEN GOTO 4000
  56. 600 IF MM$="Q" THEN GOTO 5500
  57. 1000 POKE 53280,11:POKE 53281,12
  58. 1010 PRINTCHR$(147):J=RND(-TI)
  59. 1015 FOR J=1TO10
  60. 1100 R=INT(RND(0)*9+1)
  61. 1120 PRINT ""R
  62. 1130 S=INT(RND(0)*9+1)
  63. 1140 PRINT "X"S
  64. 1142 PRINT "[163][163][163][163]"
  65. 1145 PRINT "[145][145][145][145][145][145]"R" TIMES "S" EQUALS ?"
  66. 1150 A=R*S
  67. 1160 INPUT "";D
  68. 1170 IF D=A THEN PRINT"GREAT "N$:E=E+1:GOTO 1251
  69. 1180 IF D<>A THEN PRINT "OH NO THAT'S THE WRONG ANSWER":GOTO 1250
  70. 1250 PRINT"THE ANSWER IS"A
  71. 1251 NEXT
  72. 1252 PRINT"[147]"
  73. 1254 IF E=10 THEN PRINT"GREAT JOB "N$
  74. 1255 IF E>5ANDE<10 THEN PRINT"GOOD TRY "N$
  75. 1300 PRINT"WOULD YOU LIKE ANOTHER TEN ?"
  76. 1302 PRINT "YOU GOT"E"OUT OF TEN RIGHT OR"E*10"[157]%"
  77. 1310 INPUT H$:IF H$="Y" THEN E=0:GOTO1010
  78. 1330 IF H$<>"Y" THEN PRINT "[147]":GOTO 315
  79. 2000 PRINT"[147]":POKE 53280,2:POKE 53281,10
  80. 2002 FOR J=1TO10
  81. 2010 T=INT(RND(0)*99+1)
  82. 2020 PRINT ""T
  83. 2030 V=INT(RND(0)*99+1)
  84. 2040 PRINT "+"V
  85. 2050 PRINT "[163][163][163][163]"
  86. 2055 PRINT "[145][145][145][145][145][145][145][145]"T" PLUS "V" EQUALS ?"
  87. 2060 B=T+V
  88. 2070 INPUT "";D
  89. 2075 IF D=B THEN PRINT"YOUR TEACHER WOULD BE PROUD "N$:E=E+1:GOTO 2091
  90. 2080 IF D<>B THEN PRINT "DARN IT "N$:GOTO 2090:PRINT
  91. 2090 PRINT"THE ANSWER IS "B
  92. 2091 NEXT
  93. 2092 PRINT"[147]":IF E=10 THEN PRINT"EXCELLENT "N$
  94. 2093 IF E<10ANDE>5 THEN PRINT"KEEP TRYING "N$
  95. 2094 IF E<5 THEN PRINT "I TNINK "N$" NEEDS MORE WORK"
  96. 2095 PRINT"YOU GOT "E" OUT OF TEN RIGHT OR "E*10"[157]%"
  97. 2100 PRINT"WOULD YOU LIKE ANOTHER TEN ?"
  98. 2110 INPUT J$:IF J$="Y" THEN E=0:GOTO 2000
  99. 2120 IF J$<>"Y" THEN PRINT "[147]":GOTO 315
  100. 3000 PRINT CHR$(147):POKE 53280,5:POKE 53281,7
  101. 3010 FORJ=1TO10:X=INT(RND(0)*99+1)
  102. 3020 PRINT ""X
  103. 3030 Y=INT(RND(0)*99+1)
  104. 3035 IF Y>X THEN GOTO 3030
  105. 3040 PRINT "-"Y
  106. 3050 PRINT "[163][163][163][163]"
  107. 3055 PRINT "[145][145][145][145][145][145][145][145]"Y" SUBTRACTED FROM "X" EQUALS ?"
  108. 3060 C=X-Y
  109. 3070 INPUT "";D
  110. 3080 IF D=C THEN PRINT"YOU THINK YOUR REAL SMART "N$:E=E+1:GOTO 3096
  111. 3090 IF D<>C THEN PRINT "WE KNOW THAT ISN'T RIGHT "N$
  112. 3095 PRINT"THE RIGHT ANSWER IS "C
  113. 3096 NEXT:PRINT"[147]"
  114. 3097 IF E=10THEN PRINT"EXCELLENT "N$
  115. 3098 IF E<10ANDE>5 THEN PRINT"KEEP TRYING "N$
  116. 3099 PRINT "YOU GOT "E" OUT OF TEN RIGHT OR "E*10"[157]%"
  117. 3100 PRINT"WOULD YOU LIKE ANOTHER TEN ?"
  118. 3110 INPUT K$:IF K$="Y" THEN GOTO 3000
  119. 3120 IF K$<>"Y" THEN PRINT "[147]":GOTO 315
  120. 4000 PRINT CHR$(147):POKE 53280,9:POKE 53281,3:J=RND(-TI)
  121. 4010 FOR J=1TO10:A%=10*RND(1)+1:B%=10*RND(1)+1:C%=A%*B%
  122. 4015 PRINT "[198][198][198][198][198][198][198]"
  123. 4020 PRINT "[206]"C%
  124. 4040 PRINT "[145]"B%
  125. 4050 PRINT "[145][145][145][145][145][145]"B%" GOES INTO "C%" HOW MANY TIMES"
  126. 4060 A%=C%/B%
  127. 4070 POKE 19,32:INPUT "";D
  128. 4075 PRINT:PRINT:PRINT:
  129. 4080 IF D=A%THEN PRINT"HOT DOG ";N$;"!":E=E+1:GOTO 4097
  130. 4090 IF D<>L THEN PRINT "GOOD TRY !":GOTO 4095
  131. 4095 PRINT"THE ANSWER IS "A%
  132. 4097 NEXT
  133. 4098 PRINT"[147]":IF E=10THEN PRINT"EXCELLENT "N$
  134. 4099 IF E>5 AND E<10 THEN PRINT"KEEP TRYING "N$
  135. 4100 PRINT"WOULD YOU LIKE ANOTHER TEN ?"
  136. 4105 PRINT "YOU GOT";E;"OUT OF TEN RIGHT, OR";E*10;"[157]%"
  137. 4110 INPUT K$:IF K$="Y" THEN E=0:GOTO 4000
  138. 4120 IF K$<>"Y" THEN PRINT "[147]":GOTO 315
  139. 5500 PRINT "[147]SEE YOU SOON "N$
  140. 5505 PRINT "KEEP UP THE GOOD WORK !"
  141. 5510 PRINT"PRESS F1 TO END PROGRAM"
  142. 5515 GET H$:IF H$=""THEN 5515
  143. 5520 IF F$=CHR$(133)THEN GOTO 5525
  144. 5525 NEW
  145. 6000 PRINT "[147]":POKE 53280,3:POKE 53281,3
  146. 6010 PRINT"MATH HELPER GRADES 3 AND 4[146]"
  147. 6015 PRINT"THIS UTILITY PROGRAM HAS BEEN PUT "
  148. 6020 PRINT"TOGETHIER TO AID MY SON IN DEVELOPING"
  149. 6025 PRINT"HIS MATH POTENTIAL.  IT IS A SIMPLE"
  150. 6030 PRINT"PROGRAM WHICH YOU ARE INVITED TO"
  151. 6035 PRINT"OPEN UP AND CHANGE AT ANY TIME"
  152. 6040 PRINT"I WOULD APPRECIATE ANY SUGGESTIONS"
  153. 6045 PRINT"THAT WOULD HELP ME DEVELOP A BETTER "
  154. 6050 PRINT"PROGRAM."
  155. 6055 PRINT"PUSH ANY KEY TO CONTINUE"
  156. 6056 GET T$:IF T$=""THEN 6056
  157. 6057 IF T$<>""THEN GOTO 6060
  158. 6060 PRINT"[147]"
  159. 6062 PRINT"MATH HELPER GRADES 3 AND 4[146]"
  160. 6065 PRINT"SUGGESTIONS MAY BE MAILED TO:"
  161. 6070 PRINT"CHUCK DENNIS"
  162. 6075 PRINT"9915 LIBERTY ROAD"
  163. 6080 PRINT"RANDALLSTOWN, MARYLAND"
  164. 6085 PRINT"21133"
  165. 6090 PRINT"OR YOU CAN E-MAIL TO CHUCKLES2"
  166. 6091 PRINT"TO LIST YOU MUST POKE A MYSTERY CODE"
  167. 6092 PRINT"WHICH IS POKE 774,?"
  168. 6095 PRINT"PRESS ANY KEY TO RETURN TO MENU"
  169. 6099 GET Y$:IF Y$=""THEN 6099
  170. 6100 IF Y$<>""THEN 100
  171.