home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Educational / ADD-CARDS (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  6.8 KB  |  292 lines
  1. 0 REM FLASH CARDS
  2. 10 PRINT"[147]":PRINT:PRINT:D=13
  3. 20 REM WRITTEN BY ROGER BOYER.
  4. 50 PRINT
  5. 60 PRINT:PRINT" THIS PROGRAM TEST SKILLS OF STUDENT IN  ADDITION";
  6. 70 PRINT" SUBTRATION, MULTIPLICATION     AND DIVISION":MM=0:N=1
  7. 80 PRINT:PRINT
  8. 90 PRINT:PRINT" A) ADDITION
  9. 130 [153]:[153]" B) SUBTRATION
  10. 140 PRINT:PRINT" C) MULTIPLICATION
  11. 150 [153]:[153]" D) DIVISION
  12. 155 PRINT:PRINT" E) END
  13. 160 [153]:[133]" WHAT DO YOU WANT";E$
  14. 161 [139] E$[178]"E" [167] [153]"LOAD":[153]:[153]:[153]" HAVE A NICE DAY!":[128]
  15. 170 [153]"LOAD":[153]:[153]
  16. 180 [153]:[153]" A) HARD
  17. 190 PRINT:PRINT" B) EASY
  18. 195 [153]:[153]" (TYPE A OR B)":[153]:[153]
  19. 200 [133]" DO YOU WANT THE PROBLEMS TO BE HARD OR  EASY";R$
  20. 210 [139] E$[178]"A" [167] 260
  21. 220 [139] E$[178]"B" [167] 260
  22. 230 [139] E$[178]"C" [167] 260
  23. 240 [139] E$[178]"D" [167] 260
  24. 250 [153]"LOAD":[153]:[153]:[137] 60
  25. 260 [153]"LOAD":[153]:[153]:[139] R$[178]"A" [167] [153]" DO YOU WANT THE NUMBERS"
  26. 270 [139] R$[178]"A" [167] [153]" OVER 50 OR UNDER 50":[153]
  27. 280 [139] R$[178]"A" [167] [153]" A) OVER 50":[153]
  28. 290 [139] R$[178]"A" [167] [153]" B) UNDER 50"
  29. 300 [139] R$[178]"A" [167] [133]A$
  30. 310 [139] A$[178]"A" [167] D[178]101
  31. 320 [139] A$[178]"B" [167] D[178]50
  32. 330 [139] E$[178]"B" [167] [153]"LOAD":[153]:[153]" QUESTION 1":[153]:[153]:[137] 850
  33. 340 [139] E$[178]"C" [167] [153]"LOAD":[153]:[153]" QUESTION 1":[153]:[153]:[137] 2000
  34. 350 [139] E$[178]"D" [167] [153]"LOAD":[153]:[153]" QUESTION 1":[153]:[153]:[137] 3000
  35. 370 [153]"LOAD":[153]:[153]" QUESTION 1":[153]:[153]:[137] 590
  36. 400 [153]"LOAD":N[178]N[171]1
  37. 401 [139] P[178]30  [167] [153]" PERFECT"
  38. 402 [139] P[179]2 [167] [153]" YOU FAILED"
  39. 403 [139] P[179]10[167] [153]" BAD ";
  40. 410 [139] P[179]20 [167] [153]" NOVICE"
  41. 420 [139] P[177]25 [167] [153]" MASTER "
  42. 430 [139] P[177]20  [167] [153] " GOOD!"
  43. 440 [153]:[153] " THE NUMBER OF QUESTIONS TOTAL IS ";N
  44. 450 [153]:[153] " THE QUIZ IS OVER."
  45. 451 [153]:[153] " TOTAL NUMBER OF RIGHT ANSWERS ARE ";P
  46. 460 [153]:[153] " THE NUMBER WRONG IS ";W
  47. 471 [153]:[133]" DO YOU WANT TO START OVER AGAIN";E$:[153]"LOAD"
  48. 472 [139] E$[178]"YES" [167] [138]
  49. 473 [139] E$[178]"Y" [167] [138]
  50. 474 [139] E$[178]"N" [167] 477
  51. 475 [139] E$[178]"NO"[167] E$[178]"N":[137] 474
  52. 476 [137]471
  53. 477 [153]:[133]" DO YOU WANT TO PRINT OUT YOUR LAST TEST SCORE";E$:[153]"LOAD"
  54. 478 [139] E$[178]"YES" [167] 4000
  55. 479 [139] E$[178]"Y" [167] 4000
  56. 480 [139] E$[178]"N" [167] [153]"LOAD":[153]" HAVE A GOOD DAY!":[128]
  57. 481 [139] E$[178]"NO" [167] E$[178]"N":[137] 480
  58. 485 [153]"LOAD":[153]" HAVE A NICE DAY!":[128]
  59. 580 D[178]13
  60. 590 X[178][181](D[172][187](1)):Y[178][181](D[172][187](1))
  61. 591 N[178]N[170]1:J[178]J[170]1
  62. 592 [139] X[179]10 [167] L[178]1:[139] Y[177]10 [167] 810
  63. 593 [139] X[179]10 [167] L[178]1:[139] Y[179]10 [167]610
  64. 601 [139] X[177]9  [167] 605
  65. 604 [139] Y[179]10 [167] 607
  66. 605 [139] Y[179]10 [167] 780
  67. 606 [137] 610
  68. 607 [139] X[179]10 [167] 810
  69. 610 [153]"    ";X;"    ";X;"+";Y;"= YOUR ANSWER"
  70. 620 [153]"   +";Y
  71. 630 [153]"   USRUSRUSRUSRUSR"
  72. 640 T[178]X[170]Y
  73. 650 [153]:[133]" WHAT IS YOUR ANSWER";A
  74. 651 [153]
  75. 670 [139] A[178]T  [167] [153]" CORRECT!":P[178]P[170]1:[153]:[137]690
  76. 680 [153]:[153]" WRONG":W[178]W[170]1
  77. 681 [153]:[153]
  78. 690 [153]"    ";X;"    ";X;"+";Y;"= ";T
  79. 700 [153]"   +";Y
  80. 710 [153]"   USRUSRUSRUSRUSR"
  81. 720 [153]"    ";T
  82. 730 CT[178]0
  83. 740 CT[178]CT[170]1
  84. 750 [139] CT[178]300 [137] 770
  85. 760 [137] 740
  86. 770 [139] J[178]30 [167] MM[178]1:[137] 400
  87. 775 [153]"LOAD":[153]
  88. 776 [153]" QUESTION NUMBER";N;" RIGHT";P;" WRONG";W:[153]:[153]
  89. 778 [137] 590
  90. 780 [153]"    ";X;"    ";X;"+";Y;"= YOUR ANSWER"
  91. 790 [153]"  +  ";Y
  92. 800 [153]"   USRUSRUSRUSRUSR":T[178]X[170]Y
  93. 805 [137] 650
  94. 810 [153]"    ";X;"    ";X;"+";Y;"= YOUR ANSWER"
  95. 820 [153]"  +";Y
  96. 830 [153]"   USRUSRUSRUSRUSR"
  97. 831 T[178]X[170]Y
  98. 840 [137] 650
  99. 849 D[178]13
  100. 850 X[178][181](D[172][187](1)):Y[178][181](D[172][187](1))
  101. 851 [139] X[179]Y [167] 850
  102. 852 [139] X[178]Y [167] R[178]R[170]1
  103. 853 [139] R[177]2 [167] R[178]0:[137] 850
  104. 854 [139] Y[178]0 [167] R[178]R[170]1
  105. 855 [139] D[177]15 [167] L[178]1:[139] X[178]Y [167] 850
  106. 856 [139] D[177]15 [167] L[178]1:[139] X[178]Y[170]1 [167] 850
  107. 857 [139] D[177]15 [167] L[178]1:[139] Y[178]0 [167] 850
  108. 858 [139] D[177]15 [167] L[178]1:[139] Y[178]1 [167] 850
  109. 859 [139] D[177]15 [167] L[178]1:[139] Y[178]2 [167] 850
  110. 860 N[178]N[170]1:J[178]J[170]1
  111. 870 [139] X[179]10 [167] L[178]1:[139] Y[177]10 [167] 1000
  112. 880 [139] X[179]10 [167] L[178]1:[139] Y[179]10 [167] 920
  113. 890 [139] X[177]9  [167] L[178]1:[139] Y[177]10 [167] 920
  114. 910 [139] X[177]9  [167] L[178]1:[139] Y[179]10 [167] 960
  115. 911 [137] 920
  116. 912 [139] Y[179]10 [167] 915
  117. 920 [153]"    ";X;"    ";X;"-";Y;"= YOUR ANSWER"
  118. 930 [153]"   -";Y
  119. 940 [153]"   USRUSRUSRUSRUSR":T[178]X[171]Y
  120. 950 [137] 1040
  121. 960 [153]"    ";X;"    ";X;"-";Y;"= YOUR ANSWER"
  122. 970 [153]"   - ";Y
  123. 980 [153]"   USRUSRUSRUSRUSR":T[178]X[171]Y
  124. 990 [137] 1040
  125. 1000 [153]"     ";X;"    ";X;"-";Y;"= YOUR ANSWER"
  126. 1010 [153]"   -";Y
  127. 1020 [153]"   USRUSRUSRUSRUSR"
  128. 1030 T[178]X[171]Y
  129. 1040 [153]:[133]" WHAT IS YOUR ANSWER";A
  130. 1050 [153]
  131. 1060 [139] A[178]T  [167] [153]" CORRECT!":P[178]P[170]1:[153]:[137] 1085
  132. 1070 [153]:[153]" WRONG":W[178]W[170]1
  133. 1080 [153]:[153]
  134. 1085 [139] X[179]10 [167] L[178]1:[139] Y[179]10 [167] 1090
  135. 1086 [139] X[177]9  [167] L[178]1:[139] Y[179]10 [167] 1130
  136. 1090 [153]"    ";X;"    ";X;"-";Y;"= ";T
  137. 1100 [153]"   -";Y
  138. 1110 [153]"   USRUSRUSRUSRUSR"
  139. 1120 [153]"    ";T
  140. 1121 [137] 1210
  141. 1130 [153]"     ";X;"    ";X;"-";Y;"= ";T
  142. 1140 [153]"     -";Y
  143. 1150 [153]"     USRUSRUSRUSRUSR"
  144. 1160 [153]"     ";T
  145. 1161 [137] 1210
  146. 1170 [153]"    ";X;"    ";X;"-";Y;"= ";T
  147. 1180 [153]"   -";Y
  148. 1190 [153]"   USRUSRUSRUSRUSR"
  149. 1200 [153]"    ";T
  150. 1210 CT[178]0
  151. 1220 CT[178]CT[170]1
  152. 1230 [139] CT[178]300 [137] 1250
  153. 1240 [137] 1220
  154. 1250 [139] J[178]30 [167] MM[178]2:[137] 400
  155. 1260 [153]"LOAD":[153]
  156. 1270 [153]" QUESTION NUMBER";N;" RIGHT";P;" WRONG";W:[153]:[153]
  157. 1280 [137] 850
  158. 2000 X[178][181](D[172][187](1)):Y[178][181](D[172][187](1))
  159. 2010 [139] X[179]Y [167] 2000
  160. 2020 [139] X[178]Y [167] R[178]R[170]1
  161. 2030 [139] R[177]2 [167] R[178]0:[137] 2000
  162. 2040 [139] Y[178]0 [167] R[178]R[170]1
  163. 2050 N[178]N[170]1:J[178]J[170]1
  164. 2060 [139] X[179]10 [167] L[178]1:[139] Y[177]10 [167] 2180
  165. 2070 [139] X[179]10 [167] L[178]1:[139] Y[179]10 [167] 2100
  166. 2080 [139] X[177]9  [167] L[178]1:[139] Y[177]10 [167] 2100
  167. 2090 [139] X[177]9  [167] L[178]1:[139] Y[179]10 [167] 2140
  168. 2100 [153]"    ";X;"    ";X;"*";Y;"= YOUR ANSWER"
  169. 2110 [153]"   *";Y
  170. 2120 [153]"   USRUSRUSRUSRUSR":T[178]X[172]Y
  171. 2130 [137] 2240
  172. 2140 [153]"    ";X;"    ";X;"*";Y;"= YOUR ANSWER"
  173. 2150 [153]"    *";Y
  174. 2160 [153]"   USRUSRUSRUSRUSR":T[178]X[172]Y
  175. 2170 [137] 2240
  176. 2180 [153]"     ";X;"    ";X;"*";Y;"= YOUR ANSWER"
  177. 2190 [153]"   *";Y
  178. 2200 [153]"   USRUSRUSRUSRUSR"
  179. 2210 T[178]X[172]Y
  180. 2240 [153]:[133]" WHAT IS YOUR ANSWER";A
  181. 2250 [153]
  182. 2260 [139] A[178]T  [167] [153]" CORRECT!":P[178]P[170]1:[153]:[137] 2285
  183. 2270 [153]:[153]" WRONG":W[178]W[170]1
  184. 2280 [153]:[153]
  185. 2285 [139] X[179]10 [167] L[178]1:[139] Y[179]10 [167] 2290
  186. 2286 [139] X[177]9  [167] L[178]1:[139] Y[179]10 [167] 2330
  187. 2290 [153]"    ";X;"    ";X;"*";Y;"= ";T
  188. 2300 [153]"   *";Y
  189. 2310 [153]"   USRUSRUSRUSRUSR"
  190. 2320 [153]"    ";T
  191. 2321 [137] 2410
  192. 2330 [153]"     ";X;"    ";X;"*";Y;"= ";T
  193. 2340 [153]"     *";Y
  194. 2350 [153]"     USRUSRUSRUSRUSR"
  195. 2360 [153]"      ";T
  196. 2361 [137] 2410
  197. 2370 [153]"    ";X;"    ";X;"*";Y;"= ";T
  198. 2380 [153]"   *";Y
  199. 2390 [153]"   USRUSRUSRUSRUSR"
  200. 2400 [153]"    ";T
  201. 2410 CT[178]0
  202. 2420 CT[178]CT[170]1
  203. 2430 [139] CT[178]300 [137] 2450
  204. 2440 [137] 2420
  205. 2450 [139] J[178]30 [167] MM[178]3:[137] 400
  206. 2460 [153]"LOAD":[153]
  207. 2470 [153]" QUESTION NUMBER";N;" RIGHT";P;" WRONG";W:[153]:[153]
  208. 2480 [137] 2000
  209. 3000 X[178][181](D[172][187](1)):Y[178][181](D[172][187](1))
  210. 3010 [139] X[179]Y [167] 3000
  211. 3020 [139] X[178]Y [167] R[178]R[170]1
  212. 3030 [139] R[177]2 [167] R[178]0:[137] 3000
  213. 3031 [139] X[178]Y [167] Z[178]Z[170]1:[139] D[177]15 [167] 3000
  214. 3032 [139] Z[177]2 [167] Z[178]0:[137] 3000
  215. 3033 [139] Y[178]1 [167] L[178]1:[139] D[177]15 [167] 3000
  216. 3040 [139] Y[178]0 [167] 3000
  217. 3041 E[178]X[173]Y
  218. 3042 EE[178][181](E)
  219. 3043 [139] EE[178]E [167] 3045
  220. 3044 [137] 3000
  221. 3045 [143]
  222. 3050 N[178]N[170]1:J[178]J[170]1
  223. 3060 [139] X[179]10 [167] L[178]1:[139] Y[177]10 [167] 3180
  224. 3070 [139] X[179]10 [167] L[178]1:[139] Y[179]10 [167] 3100
  225. 3080 [139] X[177]9  [167] L[178]1:[139] Y[177]10 [167] 3100
  226. 3090 [139] X[177]9  [167] L[178]1:[139] Y[179]10 [167] 3140
  227. 3100 [153]"    ";X;"    ";X;"/";Y;"= YOUR ANSWER"
  228. 3110 [153]"   /";Y
  229. 3120 [153]"   USRUSRUSRUSRUSR":T[178]X[173]Y
  230. 3130 [137] 3240
  231. 3140 [153]"    ";X;"    ";X;"/";Y;"= YOUR ANSWER"
  232. 3150 [153]"    /";Y
  233. 3160 [153]"   USRUSRUSRUSRUSR":T[178]X[173]Y
  234. 3170 [137] 3240
  235. 3180 [153]"     ";X;"    ";X;"/";Y;"= YOUR ANSWER"
  236. 3190 [153]"   /";Y
  237. 3200 [153]"   USRUSRUSRUSRUSR"
  238. 3210 T[178]X[173]Y
  239. 3240 [153]:[133]" WHAT IS YOUR ANSWER";A
  240. 3250 [153]
  241. 3260 [139] A[178]T  [167] [153]" CORRECT!":P[178]P[170]1:[153]:[137] 3285
  242. 3270 [153]:[153]" WRONG":W[178]W[170]1
  243. 3280 [153]:[153]
  244. 3285 [139] X[179]10 [167] L[178]1:[139] Y[179]10 [167] 3290
  245. 3286 [139] X[177]9  [167] L[178]1:[139] Y[179]10 [167] 3330
  246. 3290 [153]"    ";X;"    ";X;"/";Y;"= ";T
  247. 3300 [153]"   /";Y
  248. 3310 [153]"   USRUSRUSRUSRUSR"
  249. 3320 [153]"    ";T
  250. 3321 [137] 3410
  251. 3330 [153]"     ";X;"    ";X;"/";Y;"= ";T
  252. 3340 [153]"     /";Y
  253. 3350 [153]"     USRUSRUSRUSRUSR"
  254. 3360 [153]"      ";T
  255. 3361 [137] 3410
  256. 3370 [153]"    ";X;"    ";X;"/";Y;"= ";T
  257. 3380 [153]"   /";Y
  258. 3390 [153]"   USRUSRUSRUSRUSR"
  259. 3400 [153]"    ";T
  260. 3410 CT[178]0
  261. 3420 CT[178]CT[170]1
  262. 3430 [139] CT[178]300 [167] MM[178]4:[137] 3450
  263. 3440 [137] 3420
  264. 3450 [139] J[178]30 [137] 400
  265. 3460 [153]"LOAD":[153]
  266. 3470 [153]" QUESTION NUMBER";N;" RIGHT";P;" WRONG";W:[153]:[153]
  267. 3480 [137] 3000
  268. 4000 [143]
  269. 4001 [153]"LOAD":[153]:[153]
  270. 4002 [133]" WHAT IS YOUR FIRST NAME";G$
  271. 4003 [153]:[153]:[133]" WHAT IS YOUR LAST NAME";L$
  272. 4004 [159] 3,4:[152]3,"CLOSE":[152]3," "
  273. 4010 [139] P[178]30  [167] [152]3," PERFECT"
  274. 4011 [139] MM[178]1 [167] [152]3," FOR THE ADDITION TEST"
  275. 4012 [139] MM[178]2 [167] [152]3," FOR THE SUBTRACTION TEST"
  276. 4013 [139] MM[178]3 [167] [152]3," FOR THE MULTIPLICATION TEST"
  277. 4014 [139] MM[178]4 [167] [152]3," FOR THE DIVISION TEST"
  278. 4020 [139] P[179]2 [167] [152]3," YOU FAILED"
  279. 4030 [139] P[179]10[167] [152]3," BAD ";
  280. 4100 [139] P[179]20 [167] [152]3," NOVICE"
  281. 4104 [152]3," THE TOTAL FOR ";G$;" ";L$;" IS...."
  282. 4200 [139] P[177]25 [167] [152]3," MASTER "
  283. 4300 [139] P[177]20  [167] [152]3," GOOD!"
  284. 4400 [152]3," THE NUMBER OF QUESTIONS TOTAL IS ";N
  285. 4500 [152]3," THE QUIZ IS OVER.  YOUR TOTAL NUMBER RIGHT IS ";P
  286. 4600 [152]3," THE NUMBER WRONG IS ";W
  287. 4601 [152]3," HAVE A NICE DAY!"
  288. 4602 [152]3," "
  289. 4603 [152]3," "
  290. 4610 [160] 3,4
  291. 4620 [138]
  292.