8bitfiles.net/archives/archives.tar/archives/genie-commodore-file-library/C64Educational/DRILL-IE-EI

Commodore BASIC | 2019-04-13 | 4KB | 192 lines

2 PRINT"[155]"
3 REM
5 REM ***GRAMMAR DRILL***
7 REM DRILL IN SPELLING WORDS WITH
9 REM *IE/EI* SUITABLE FOR GRADES 4-8.
10 REM
11 REM PROGRAMME DEVELOPED BY J URSANO
12 REM SPRINGDALE PARK ROAD
13 REM BRACEBRODGE. ONTARIO (1983)
14 REM ROAD, BRACEBRIDGE,ONTARIO
15 REM (null)
18 REM(null)
19 POKE53280,8:POKE 53281,6
20 PRINT"[147]"
24 FOR I=1TO25
25 PRINT TAB(7)"[209]";
30 GOSUB 500
40 NEXT
45 PRINT
50 FOR I=1TO5
60 PRINT TAB(31)"[209]"
70 GOSUB 500
80 NEXT
90 FOR I=31 TO 7 STEP-1
100 PRINTTAB(I)"[145][209]"
110 GOSUB 500
120 NEXT
130 FOR I=1TO5
140 PRINT TAB(7)"[145][145][209]"
150 GOSUB 500
160 NEXT
170 PRINT"IE/EI"
180 PRINTTAB(14)"BY J. URSANO"
190 FOR Y=1TO3500:NEXT
200 PRINT"[147]"
499 GOTO 800
500 FOR L=1TO45:NEXT
510 RETURN
750 REM
751 REM (null)
760 REM
770 REM LINES 800 TO 960 ARE
780 REM INSTRUCTIONS FOR STUDENTS
785 REM
786 REM
790 PRINT"[147]"
800 PRINTTAB(8)"R E M E M B E R [146]"
810 PRINT"1) IE SAYS E"
820 PRINT"2) EI SAYS A"
830 PRINT"3) PUT I BEFORE E EXCEPT AFTER C.
840 [153]"PRESS*ANY KEY*WAITWHEN READY"
850 [161] K$:[139] K$[178]""[167] 850
860 [153]"LOAD"
900 [153]"TYPE THE MISSING LETTERS"
910 [153]"TO COMPLETE THE WORD"
920 [153]"EXAMPLE:"
925 [153] "TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB("
930 [153] "GR..F WOULD BE GRIEWAITF"
940 [153]"STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$"
950 [153]"PRESS*ANY KEY*WAITWHEN READY"
960 [161] K$:[139] K$[178]""[167] 960
1000 [151]53280,8:[151]53281,0
1990 [143] [204]
2000 [143]
2001 [143]
2005 [143] PUTTING DATA INTO ARRAY
2010 [143] A$=WORD WITH BLANK(F..LD)
2012 [143] B$=CORRECT ANSWER(IE OR EI)
2014 [143] C$=CORRECT WORD(FIELD)
2016 [143] P1 IS SIZE OF ARRAY
2018 [143]
2019 P1[178]31
2020 [134]A$(P1),B$(P1),C$(P1)
2030 [129] I[178]1[164]P1
2040 [135]A$(I),B$(I),C$(I)
2050 [130] I
2059 [143]
2060 [143]  RANDOMIZE AND PRESENT WORDS
2065 [143] AND SET COUNTER AT 0
2066 [143] [204]
2070 [143]
2075 [143]
2080 I[178]0:CO[178]0:N[178]0
2090 I[178][181](P1[172]([187](TI))[170]1)
2100 [153]"LOAD"
2110 CO[178]CO[170]1
2120 [153]"",[163]13)
2130 [153]""A$(I)
2140 [153]"ON",[163]16)
2145 [143] CHECK TO SEE THAT ANSWER IS
2147 [143] CORRECT
2148 [143]
2150 [161]D$:[139]D$[178]""[167]2150
2160 [161]E$:[139]E$[178]""[167]2160
2165 Z$[178]D$[170]E$
2170 [153]"";Z$
2180 [139] D$[170]E$[178]B$(I) [167] 2220
2190 [153]"SORRY,THAT IS NOT CORRECT"
2200 [153]"THE ANSWER IS ";C$(I)
2210 [137] 2240
2220 N[178]N[170]1
2224 [143] STUDENT OPTION TO CONTINUE
2226 [143] OR TO CHECK SCORE
2228 [143]
2230 [153]"WELL DONE!"
2240 [153] "PRESS SPACE BARWAIT FOR ANOTHER WORD"
2250 [153] "PRESS SWAIT TO SEE SWAITCORE"
2280 [161] R$:[139]R$[178]""[167]2280
2290 [139] R$[178][199](32) [167] 2090
2300 [139] R$[178]"S" [167] 5000
2315 [137] 2280
2505 [143]
2510 [143]
3000 [143] DATA STATEMENTS BEGIN
3005 [143]
3006 [143]
3100 [131]"  W..GH","EI","WEIGHWAIT"
3110 [131]" CH..F","IE","CHIEFWAIT"
3120 [131]"  N..CE","IE","NIECEWAIT"
3130 [131]"BEL..VE","IE","BELIEVEWAIT"
3140 [131]" FR..GHT","EI","FREIGHTWAIT"
3150 [131]"   ..GHT","EI","EIGHTWAIT"
3160 [131]"  P..CES","IE","PIECESWAIT"
3170 [131]" TH..F","IE","THIEFWAIT"
3180 [131]"  R..NDEER","EI","REINDEERWAIT"
3190 [131]" BR..FLY","IE","BRIEFLYWAIT"
3200 [131]" CH..F","IE","CHIEFWAIT"
3210 [131]" SL..GH","EI","SLEIGHWAIT"
3220 [131]" SH..LD","IE","SHIELDWAIT"
3230 [131]"  N..GHBOUR","EI","NEIGHBOUR"
3240 [131]"  P..RCE","IE","PIERCEWAIT"
3250 [131]"SHR..K","IE","SHRIEKWAIT"
3260 [131]"  V..NS","EI","VEINS"
3270 [131]"  D..SEL","IE","DIESEL"
3280 [131]" GR..VE","IE","GRIEVEWAIT"
3290 [131]"  N..GH","EI","NEIGH"
3300 [131]"  F..RCE","IE","FIERCEWAIT"
3310 [131]"  P..R","IE","PIERWAIT"
3320 [131]"  Y..LD","IE","YIELDWAIT"
3330 [131]" PR..ST","IE","PRIESTWAIT"
3340 [131]"BEL..F","IE","BELIEFWAIT"
3350 [131]"REL..F","IE","RELIEFWAIT"
3360 [131]"  S..GE","IE","SIEGEWAIT"
3370 [131]" TH..VES","IE","THIEVESWAIT"
3380 [131]"ACH..VE","IE","ACHIEVEWAIT"
3390 [131]"  R..N","EI","REINWAIT"
3400 [131]"  V..L","EI","VEILWAIT"
4900 [143]
4910 [143]
4911 [143] [204]
4919 [143] [204]
4920 [143] LINES 5000-10110 GIVES THE
4930 [143] STUDENT HIS SCORE AND
4940 [143] CALCULATES HIS PER CENT.
4950 [143] HE IS THEN GIVEN THE OPTION
4960 [143] OF STARTING FRESH OR OF
4970 [143] LEAVING THE PROGRAM
4980 [143]
4990 [143]
5000 [153]"LOAD"
5010 [153]"YOU GOT"N"CORRECT OUT OF"CO
5020 [153]"WHICH IS";[181](N[173]CO[172]100[170].5)"%"
10000 [153]"WOULD YOU LIKE TO TRY AGAIN?(YES/NO)"
10005 [133] A$:[143] ANSWER
10010 [139] [200](A$,1)[178]"Y" [167] [138] 790
10015 [153]"LOAD"
10016 [143] [204]
10017 [143]
10018 [143]
10019 [143] THE BALANCE OF THE PROGRAM
10020 [143] PRINTS A HAPPY FACE WHICH
10021 [143] [204]
10022 [143] ANY KEY IS DEPRESSED.
10023 [143] [204]
10024 [143]
10025 [151]53280,4:[151] 53281,15
10030 [153]"":[143] SET CURSOR TO RED
10040 [153] ""
10050 [153][163]14)"    (null)(null)(null)"
10060 [153][163]14)"  (null)(null)   (null)(null)"
10070 [153][163]14)" (null)  * *  (null)"
10080 [153][163]14)"(null)    LEFT$    (null)"
10090 [153][163]14)"(null)         (null)"
10100 [153][163]14)" (null) (null)TOTOTO(null) (null)"
10110 [153][163]14)"  (null)     (null)"
10120 [153][163]14)"   (null)(null)(null)(null)(null)"
10300 [153]"OKAY, THANK YOU FOR PLAYING"
10310 [153]"...AND HAVE A HAPPY IE/EIWAIT DAY."
10320 [161] J$:[139] J$[178]""[167] 10320
10340 [153]"LOAD"
10341 [128]