home *** CD-ROM | disk | FTP | other *** search
- 5 REM ***GRAMMAR DRILL***
- 7 REM DRILL IN SPELLING WORDS WITH
- 9 REM *OU/OW* SUITABLE FOR GRADES 4-8.
- 10 REM
- 11 REM PROGRAM DEVELOPED
- 13 REM BY J J URSANO SPRINGDALE PARK
- 14 REM BRACEBEODGE, ONTARIO APRIL/83
- 15 REM (null)
- 16 REM LINES 20 TO 510 SET UP AND
- 17 REM PRINT THE PROGRAM TITLE
- 18 REM
- 19 REM
- 20 PRINT"[147]"
- 21 POKE 53280,5:POKE53281,7:REM SCREEN COLOURS
- 22 PRINT"": REM SET CURSOR TO RED
- 23 REMCLOSE(null)
- 24 FOR I=1TO25
- 25 PRINT TAB(7)"[191]";
- 30 GOSUB 500
- 40 NEXT
- 45 PRINT
- 50 FOR I=1TO5
- 60 PRINT TAB(31)"[191]"
- 70 GOSUB 500
- 80 NEXT
- 90 FOR I=31 TO 7 STEP-1
- 100 PRINTTAB(I)"[145][191]"
- 110 GOSUB 500
- 120 NEXT
- 130 FOR I=1TO5
- 140 PRINT TAB(7)"[145][145][191]"
- 150 GOSUB 500
- 160 NEXT
- 170 PRINT"OU/OW"
- 180 PRINTTAB(14)"BY J. URSANO"
- 190 FOR Y=1TO3500:NEXT
- 200 PRINT"[147]"
- 499 GOTO 800
- 500 FOR L=1TO30:NEXT
- 510 RETURN
- 750 REM
- 760 REM
- 770 REM LINES 800 TO 950 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) OU OR OW CAN SAY OU"
- 820 PRINT"2) OW SAYS LONG O"
- 840 PRINT"PRESS*ANY KEY*[146]WHEN READY"
- 850 GET K$:IF K$=""THEN 850
- 860 PRINT"[147]"
- 900 PRINT"TYPE THE MISSING LETTERS"
- 910 PRINT"TO COMPLETE THE WORD"
- 920 PRINT"EXAMPLE:"
- 925 PRINT "[163][163][163][163][163][163][163][163]"
- 930 PRINT "SH..T WOULD BE SHOU[146]T"
- 940 PRINT"[196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196]"
- 950 PRINT"PRESS*ANY KEY*[146]WHEN READY"
- 960 GET K$:IF K$=""THEN 960
- 2000 REM
- 2001 REM
- 2004 REM (null)
- 2005 REM PUTTING DATA INTO ARRAY
- 2010 REM A$=WORD WITH BLANK(M..TH)
- 2012 REM B$=CORRECT ANSWER(OU OR OW)
- 2014 REM C$=CORRECT WORD(MOUTH)
- 2016 REM P1 IS SIZE OF ARRAY
- 2018 REM
- 2019 P1=44
- 2020 DIMA$(P1),B$(P1),C$(P1)
- 2030 FOR I=1TOP1
- 2040 READA$(I),B$(I),C$(I)
- 2050 NEXT I
- 2059 REM
- 2060 REM RANDOMIZE AND PRESENT WORDS
- 2065 REM AND SET COUNTER AT 0
- 2070 REM
- 2075 REM
- 2080 I=0:CO=0:N=0
- 2090 I=INT(P1*(RND(TI))+1)
- 2100 PRINT"[147]"
- 2105 POKE 53280,9:POKE53281,15:PRINT"[144]": REM SET CURSOR TO BLACK
- 2110 CO=CO+1
- 2120 PRINT"",TAB(13)
- 2130 PRINT""A$(I)
- 2140 PRINT"[145]",TAB(16)
- 2145 REM CHECK TO SEE THAT ANSWER IS
- 2147 REM CORRECT
- 2148 REM
- 2150 GETD$:IFD$=""THEN2150
- 2160 GETE$:IFE$=""THEN2160
- 2165 Z$=D$+E$
- 2170 PRINT"";Z$
- 2180 IF D$+E$=B$(I) THEN 2220
- 2190 PRINT"SORRY,THAT IS NOT CORRECT"
- 2200 PRINT"THE ANSWER IS ";C$(I)
- 2210 GOTO 2240
- 2220 N=N+1
- 2224 REM STUDENT OPTION TO CONTINUE
- 2226 REM OR TO CHECK SCORE
- 2228 REM
- 2230 PRINT"WELL DONE!"
- 2240 PRINT" PRESS SPACE BAR[146] TO CONTINUE"
- 2250 PRINT" PRESS S[146] TO SEE SCORE[146]"
- 2280 GET R$:IFR$=""THEN2280
- 2290 IF R$=CHR$(32) THEN 2090
- 2300 IF R$="S" THEN 5000
- 2315 GOTO 2280
- 2370 DATA" ..CH","OU","OUCH[146]"
- 2380 DATA"ARR..","OW","ARROW[146]"
- 2505 REM
- 2510 REM
- 3000 REM DATA STATEMENTS BEGIN
- 3004 REM (null)
- 3005 REM
- 3006 REM
- 3008 REM (null)
- 3010 DATA"ALL..","OW","ALLOW[146]"
- 3020 DATA" D..N","OW",RDOWN"
- 3030 [131]" H..ND","OU","HOUNDWAIT"
- 3040 [131]" R..","OW","ROWWAIT"
- 3050 [131]" H..SE","OU","HOUSEWAIT"
- 3060 [131]" BR..N","OW","BROWNWAIT"
- 3070 [131]" M..","OW","MOWWAIT"
- 3080 [131]" BL..","OW","BLOWWAIT"
- 3090 [131]" H..L","OW","HOWLWAIT"
- 3100 [131]" ST..","OW","STOWWAIT"
- 3110 [131]" M..TH","OU","MOUTHWAIT"
- 3120 [131]" GR..L","OW","GROWLWAIT"
- 3130 [131]" SH..ER","OW","SHOWERWAIT"
- 3140 [131]" KN..","OW","KNOWWAIT"
- 3150 [131]" S..ND","OU","SOUNDWAIT"
- 3160 [131]" AR..ND","OU","AROUNDWAIT"
- 3170 [131]" B..","OW","BOWWAIT"
- 3180 [131]" D..N","OW","DOWNWAIT"
- 3190 [131]" P..ND","OU","POUNDWAIT"
- 3200 [131]" SH..T","OU","SHOUTWAIT"
- 3210 [131]" T..ER","OW","TOWERWAIT"
- 3220 [131]" SH..","OW","SHOWWAIT"
- 3230 [131]" GR..ING","OW","GROWINGWAIT"
- 3240 [131]" CR..D","OW","CROWDWAIT"
- 3250 [131]" W..","OW","WOWWAIT"
- 3260 [131]" H..","OW","HOWWAIT"
- 3270 [131]" ..CH","OU","OUCHWAIT"
- 3280 [131]"ARR..","OW","ARROWWAIT"
- 3290 [131]" C..ARD","OW","COWARDWAIT"
- 3300 [131]"BEL..","OW","BELOW"
- 3310 [131]" P..DER","OW","POWDERWAIT"
- 3320 [131]" GR..","OW","GROWWAIT"
- 3330 [131]" BR..","OW","BROWWAIT"
- 3340 [131]" SL..LY","OW","SLOWLY"
- 3350 [131]" B..ND","OU","BOUNDWAIT"
- 3360 [131]" FL..ER","OW","FLOWERWAIT"
- 3370 [131]" GR..L","OW","GROWLWAIT"
- 3380 [131]"BEL..","OW","BELOWWAIT"
- 3390 [131]"THR..","OW","THROWWAIT"
- 3400 [131]" SN..","OW","SNOW"
- 3410 [131]" CL..N","OW","CLOWNWAIT"
- 3420 [131]" P..ER","OW","POWERWAIT"
- 3430 [131]" DR..N","OW","DROWNWAIT"
- 4900 [143]
- 4910 [143]
- 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 AGAIN 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]"THAT IS";[181](N[173]CO[172]100[170].5)"%"
- 10000 [153]"WOULD YOU LIKE TO TRY AGAIN?(YES/NO)"
- 10005 [133] A$
- 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] REMAINS ON THE SCREEN UNTIL
- 10022 [143] ANY KEY IS DEPRESSED.
- 10023 [143]
- 10024 [143]
- 10025 [153]"":[151]53280,5:[151]53281,0
- 10030 [153]"": [143] CURSOR TO WHITE
- 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) CHR$ (null)"
- 10090 [153][163]14)"(null) (null)"
- 10100 [153][163]14)" (null) (null)(null)(null)(null)(null) (null)"
- 10110 [153][163]14)" (null) (null)"
- 10120 [153][163]14)" (null)(null)(null)(null)(null)"
- 10125 [143] [204]
- 10300 [153]"OKAY, THANK YOU FOR PLAYING"
- 10310 [153]"...AND HAVE A HAPPY OU/OWWAIT DAY"
- 10320 [161] J$:[139] J$[178]""[167] 10320
- 10340 [153]"LOAD"
- 10341 [128]
- 20058 [143] [204]
-