home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Educational / DRILL-IE-EI (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  4.3 KB  |  192 lines
  1. 2 PRINT"[155]"
  2. 3 REM
  3. 5 REM ***GRAMMAR DRILL***
  4. 7 REM DRILL IN SPELLING WORDS WITH
  5. 9 REM *IE/EI* SUITABLE FOR GRADES 4-8.
  6. 10 REM
  7. 11 REM PROGRAMME DEVELOPED BY J URSANO
  8. 12 REM SPRINGDALE PARK ROAD
  9. 13 REM BRACEBRODGE. ONTARIO (1983)
  10. 14 REM ROAD, BRACEBRIDGE,ONTARIO
  11. 15 REM (null)
  12. 18 REM(null)
  13. 19 POKE53280,8:POKE 53281,6
  14. 20 PRINT"[147]"
  15. 24 FOR I=1TO25
  16. 25 PRINT TAB(7)"[209]";
  17. 30 GOSUB 500
  18. 40 NEXT
  19. 45 PRINT
  20. 50 FOR I=1TO5
  21. 60 PRINT TAB(31)"[209]"
  22. 70 GOSUB 500
  23. 80 NEXT
  24. 90 FOR I=31 TO 7 STEP-1
  25. 100 PRINTTAB(I)"[145][209]"
  26. 110 GOSUB 500
  27. 120 NEXT
  28. 130 FOR I=1TO5
  29. 140 PRINT TAB(7)"[145][145][209]"
  30. 150 GOSUB 500
  31. 160 NEXT
  32. 170 PRINT"IE/EI"
  33. 180 PRINTTAB(14)"BY J. URSANO"
  34. 190 FOR Y=1TO3500:NEXT
  35. 200 PRINT"[147]"
  36. 499 GOTO 800
  37. 500 FOR L=1TO45:NEXT
  38. 510 RETURN
  39. 750 REM
  40. 751 REM (null)
  41. 760 REM
  42. 770 REM LINES 800 TO 960 ARE
  43. 780 REM INSTRUCTIONS FOR STUDENTS
  44. 785 REM
  45. 786 REM
  46. 790 PRINT"[147]"
  47. 800 PRINTTAB(8)"R E M E M B E R [146]"
  48. 810 PRINT"1) IE SAYS E"
  49. 820 PRINT"2) EI SAYS A"
  50. 830 PRINT"3) PUT I BEFORE E EXCEPT AFTER C.
  51. 840 [153]"PRESS*ANY KEY*WAITWHEN READY"
  52. 850 [161] K$:[139] K$[178]""[167] 850
  53. 860 [153]"LOAD"
  54. 900 [153]"TYPE THE MISSING LETTERS"
  55. 910 [153]"TO COMPLETE THE WORD"
  56. 920 [153]"EXAMPLE:"
  57. 925 [153] "TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB("
  58. 930 [153] "GR..F WOULD BE GRIEWAITF"
  59. 940 [153]"STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$"
  60. 950 [153]"PRESS*ANY KEY*WAITWHEN READY"
  61. 960 [161] K$:[139] K$[178]""[167] 960
  62. 1000 [151]53280,8:[151]53281,0
  63. 1990 [143] [204]
  64. 2000 [143]
  65. 2001 [143]
  66. 2005 [143] PUTTING DATA INTO ARRAY
  67. 2010 [143] A$=WORD WITH BLANK(F..LD)
  68. 2012 [143] B$=CORRECT ANSWER(IE OR EI)
  69. 2014 [143] C$=CORRECT WORD(FIELD)
  70. 2016 [143] P1 IS SIZE OF ARRAY
  71. 2018 [143]
  72. 2019 P1[178]31
  73. 2020 [134]A$(P1),B$(P1),C$(P1)
  74. 2030 [129] I[178]1[164]P1
  75. 2040 [135]A$(I),B$(I),C$(I)
  76. 2050 [130] I
  77. 2059 [143]
  78. 2060 [143]  RANDOMIZE AND PRESENT WORDS
  79. 2065 [143] AND SET COUNTER AT 0
  80. 2066 [143] [204]
  81. 2070 [143]
  82. 2075 [143]
  83. 2080 I[178]0:CO[178]0:N[178]0
  84. 2090 I[178][181](P1[172]([187](TI))[170]1)
  85. 2100 [153]"LOAD"
  86. 2110 CO[178]CO[170]1
  87. 2120 [153]"",[163]13)
  88. 2130 [153]""A$(I)
  89. 2140 [153]"ON",[163]16)
  90. 2145 [143] CHECK TO SEE THAT ANSWER IS
  91. 2147 [143] CORRECT
  92. 2148 [143]
  93. 2150 [161]D$:[139]D$[178]""[167]2150
  94. 2160 [161]E$:[139]E$[178]""[167]2160
  95. 2165 Z$[178]D$[170]E$
  96. 2170 [153]"";Z$
  97. 2180 [139] D$[170]E$[178]B$(I) [167] 2220
  98. 2190 [153]"SORRY,THAT IS NOT CORRECT"
  99. 2200 [153]"THE ANSWER IS ";C$(I)
  100. 2210 [137] 2240
  101. 2220 N[178]N[170]1
  102. 2224 [143] STUDENT OPTION TO CONTINUE
  103. 2226 [143] OR TO CHECK SCORE
  104. 2228 [143]
  105. 2230 [153]"WELL DONE!"
  106. 2240 [153] "PRESS SPACE BARWAIT FOR ANOTHER WORD"
  107. 2250 [153] "PRESS SWAIT TO SEE SWAITCORE"
  108. 2280 [161] R$:[139]R$[178]""[167]2280
  109. 2290 [139] R$[178][199](32) [167] 2090
  110. 2300 [139] R$[178]"S" [167] 5000
  111. 2315 [137] 2280
  112. 2505 [143]
  113. 2510 [143]
  114. 3000 [143] DATA STATEMENTS BEGIN
  115. 3005 [143]
  116. 3006 [143]
  117. 3100 [131]"  W..GH","EI","WEIGHWAIT"
  118. 3110 [131]" CH..F","IE","CHIEFWAIT"
  119. 3120 [131]"  N..CE","IE","NIECEWAIT"
  120. 3130 [131]"BEL..VE","IE","BELIEVEWAIT"
  121. 3140 [131]" FR..GHT","EI","FREIGHTWAIT"
  122. 3150 [131]"   ..GHT","EI","EIGHTWAIT"
  123. 3160 [131]"  P..CES","IE","PIECESWAIT"
  124. 3170 [131]" TH..F","IE","THIEFWAIT"
  125. 3180 [131]"  R..NDEER","EI","REINDEERWAIT"
  126. 3190 [131]" BR..FLY","IE","BRIEFLYWAIT"
  127. 3200 [131]" CH..F","IE","CHIEFWAIT"
  128. 3210 [131]" SL..GH","EI","SLEIGHWAIT"
  129. 3220 [131]" SH..LD","IE","SHIELDWAIT"
  130. 3230 [131]"  N..GHBOUR","EI","NEIGHBOUR"
  131. 3240 [131]"  P..RCE","IE","PIERCEWAIT"
  132. 3250 [131]"SHR..K","IE","SHRIEKWAIT"
  133. 3260 [131]"  V..NS","EI","VEINS"
  134. 3270 [131]"  D..SEL","IE","DIESEL"
  135. 3280 [131]" GR..VE","IE","GRIEVEWAIT"
  136. 3290 [131]"  N..GH","EI","NEIGH"
  137. 3300 [131]"  F..RCE","IE","FIERCEWAIT"
  138. 3310 [131]"  P..R","IE","PIERWAIT"
  139. 3320 [131]"  Y..LD","IE","YIELDWAIT"
  140. 3330 [131]" PR..ST","IE","PRIESTWAIT"
  141. 3340 [131]"BEL..F","IE","BELIEFWAIT"
  142. 3350 [131]"REL..F","IE","RELIEFWAIT"
  143. 3360 [131]"  S..GE","IE","SIEGEWAIT"
  144. 3370 [131]" TH..VES","IE","THIEVESWAIT"
  145. 3380 [131]"ACH..VE","IE","ACHIEVEWAIT"
  146. 3390 [131]"  R..N","EI","REINWAIT"
  147. 3400 [131]"  V..L","EI","VEILWAIT"
  148. 4900 [143]
  149. 4910 [143]
  150. 4911 [143] [204]
  151. 4919 [143] [204]
  152. 4920 [143] LINES 5000-10110 GIVES THE
  153. 4930 [143] STUDENT HIS SCORE AND
  154. 4940 [143] CALCULATES HIS PER CENT.
  155. 4950 [143] HE IS THEN GIVEN THE OPTION
  156. 4960 [143] OF STARTING FRESH OR OF
  157. 4970 [143] LEAVING THE PROGRAM
  158. 4980 [143]
  159. 4990 [143]
  160. 5000 [153]"LOAD"
  161. 5010 [153]"YOU GOT"N"CORRECT OUT OF"CO
  162. 5020 [153]"WHICH IS";[181](N[173]CO[172]100[170].5)"%"
  163. 10000 [153]"WOULD YOU LIKE TO TRY AGAIN?(YES/NO)"
  164. 10005 [133] A$:[143] ANSWER
  165. 10010 [139] [200](A$,1)[178]"Y" [167] [138] 790
  166. 10015 [153]"LOAD"
  167. 10016 [143] [204]
  168. 10017 [143]
  169. 10018 [143]
  170. 10019 [143] THE BALANCE OF THE PROGRAM
  171. 10020 [143] PRINTS A HAPPY FACE WHICH
  172. 10021 [143] [204]
  173. 10022 [143] ANY KEY IS DEPRESSED.
  174. 10023 [143] [204]
  175. 10024 [143]
  176. 10025 [151]53280,4:[151] 53281,15
  177. 10030 [153]"":[143] SET CURSOR TO RED
  178. 10040 [153] ""
  179. 10050 [153][163]14)"    (null)(null)(null)"
  180. 10060 [153][163]14)"  (null)(null)   (null)(null)"
  181. 10070 [153][163]14)" (null)  * *  (null)"
  182. 10080 [153][163]14)"(null)    LEFT$    (null)"
  183. 10090 [153][163]14)"(null)         (null)"
  184. 10100 [153][163]14)" (null) (null)TOTOTO(null) (null)"
  185. 10110 [153][163]14)"  (null)     (null)"
  186. 10120 [153][163]14)"   (null)(null)(null)(null)(null)"
  187. 10300 [153]"OKAY, THANK YOU FOR PLAYING"
  188. 10310 [153]"...AND HAVE A HAPPY IE/EIWAIT DAY."
  189. 10320 [161] J$:[139] J$[178]""[167] 10320
  190. 10340 [153]"LOAD"
  191. 10341 [128]
  192.