home *** CD-ROM | disk | FTP | other *** search
- 2 REM ***GRAMMAR DRILL***
- 3 REM
- 4 REM
- 7 REM DRILL IN SPELLING WORDS WITH
- 9 REM *ER/IR/UR*
- 10 REM
- 11 REM PROGRAM DEVELOPED BY
- 13 REM JOE URSANO,SPRINGDALE PARK
- 14 REM ROAD, BRACEBRIDGE,ONTARIO
- 15 REM(null)
- 16 REM LINES 20 TO 510 SET UP AND
- 17 REM PRINT THE PROGRAM TITLE
- 18 POKE 53280,9:POKE53281,15
- 19 PRINT"[144]":REM SET CURSOR TO BLACK
- 20 PRINT"[147]"
- 21 REM(null)
- 24 FOR I=1TO25
- 25 PRINT TAB(7)"[191][146]";
- 30 GOSUB 500
- 40 NEXT
- 45 PRINT
- 50 FOR I=1TO5
- 60 PRINT TAB(31)"[191][146]"
- 70 GOSUB 500
- 80 NEXT
- 90 FOR I=31 TO 7 STEP-1
- 100 PRINTTAB(I)"[145][191][146]"
- 110 GOSUB 500
- 120 NEXT
- 130 FOR I=1TO5
- 140 PRINT TAB(7)"[145][145][191][146]"
- 150 GOSUB 500
- 160 NEXT
- 170 PRINT"ER/IR/UR"
- 180 PRINTTAB(14)"BY J. URSANO"
- 190 FOR Y=1TO3500:NEXT
- 200 PRINT"[147]"
- 299 REM(null)
- 498 REM (null)
- 499 GOTO 800
- 500 FOR L=1TO50:NEXT
- 510 RETURN
- 750 REM
- 760 REM
- 770 REM LINES 900 TO 998 ARE
- 780 REM INSTRUCTIONS FOR STUDENTS
- 785 REM
- 790 REM
- 800 PRINT:PRINT:PRINT
- 810 PRINTTAB(5)"THIS PROGRAMME WILL GIVE"
- 815 PRINTTAB(5)"YOU PRACTICE IN SPELLING"
- 820 PRINTTAB(5)"WORDS THAT HAVE THE SOUND OF"
- 830 PRINTTAB(10)"ER[146]"
- 840 PRINTTAB(15)"IR[146]"
- 845 PRINTTAB(20)"UR[146]"
- 850 PRINT"PRESS ANY KEY[146] TO GO ON"
- 860 GET K$:IF K$=""THEN 860
- 870 PRINTCHR$(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 PRINTTAB(12)"WINT..WOULD BE WINTER[146]"
- 940 PRINT"TH..ST WOULD BE THIR[146]ST"
- 950 PRINT"DIST..B WOULD BE DISTUR[146]B"
- 998 PRINTTAB(5)"PRESS ANY KEY[146] TO GO ON"
- 999 GET K$:IF K$=""THEN 999
- 2000 REM
- 2001 REM
- 2005 REM PUTTING DATA INTO ARRAY
- 2010 REM A$=WORD WITH BLANK(F..LD)
- 2012 REM B$=CORRECT ANSWER(IE OR EI)
- 2014 REM C$=CORRECT WORD(FIELD)
- 2016 REM P1 IS SIZE OF ARRAY
- 2018 REM
- 2019 P1=103
- 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
- 2061 REM (null)
- 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]"
- 2110 CO=CO+1
- 2120 PRINT"",TAB(13)
- 2130 PRINT""A$(I)
- 2140 PRINT"[145]",TAB(18)
- 2145 REM CHECK TO SEE THAT ANSWER IS
- 2147 REM CORRECT
- 2148 REM
- 2149 REM (null)
- 2150 GETD$:IFD$=""THEN2150
- 2160 GETE$:IFE$=""THEN2160
- 2165 Z$=D$+E$
- 2170 PRINT"";Z$
- 2180 IF D$+E$=B$(I) THEN 2220
- 2200 PRINT"NO,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 GO ON"
- 2250 PRINT "PRESS S[146] TO SEE S[146]CORE"
- 2280 GET R$:IFR$=""THEN2280
- 2290 IF R$=CHR$(32) THEN 2090
- 2300 IF R$="S" THEN 5000
- 2315 GOTO 2280
- 2505 REM
- 2510 REM
- 3000 REM DATA STATEMENTS BEGIN
- 3001 REM(null)
- 3005 REM
- 3006 REM
- 3099 REM (null)
- 3100 DATA" F..N","ER","FERN[146]"
- 3110 DATA"WHISP..","ER","WHISPER[146]"
- 3120 DATA" T..M","ER","TERM[146]"
- 3130 DATA" J..K","ER","JERK[146]"
- 3140 DATA" H..","ER","HER[146]"
- 3150 DATA" S..F","ER","SERF[146]"
- 3160 DATA" V..B","ER","VERB[146]"
- 3170 DATA" H..D","ER","VERB[146]"
- 3180 DATA" M..CURY","ER","MERCURY[146]"
- 3190 DATA" P..K","ER","PERK[146]"
- 3200 DATA" P..T","ER","PERT[146]"
- 3210 DATA" TH..ST","IR","THIRST[146]"
- 3220 DATA" SQU..M","IR","SQUIRM[146]"
- 3230 DATA" SQU..T","IR","SQUIRT[146]"
- 3240 DATA" SK..MISH","IR","SKIRMISH[146]"
- 3250 DATA" CONF..M","IR","CONFIRM[146]"
- 3260 DATA" B..THDAY","IR","BIRTHDAY[146]"
- 3270 DATA" ..CHIN","UR","URCHIN[146]"
- 3280 DATA" F..NISH","UR","FURNISH[146]"
- 3290 DATA" DIST..B","UR","DISTURB[146]"
- 3300 DATA" SAT..N","UR","SATURN[146]"
- 3310 DATA" S..PLUS","UR","SURPLUS[146]"
- 3320 DATA" SAT..DAY","UR","SATURDAY[146]"
- 3330 DATA" H..MIT","ER","HERMIT[146]"
- 3340 DATA"THUND..","ER","THUNDER[146]"
- 3350 DATA" SIFT..","ER","SIFTER[146]"
- 3360 DATA" SING..","ER","SINGER[146]"
- 3370 DATA" FING..","ER","FINGER[146]"
- 3380 DATA" LING..","ER","LINGER[146]"
- 3390 DATA"MONST..","ER","MONSTER[146]"
- 3400 DATA" HUNT..","ER","HUNTER[146]"
- 3410 DATA" WH..L","IR","WHIRL[146]"
- 3420 DATA" F..ST","IR","FIRST[146]"
- 3430 DATA" SK..T","IR","SKIRT[146]"
- 3440 DATA" SM..K","IR","SMIRK[146]"
- 3450 DATA" SW..L","IR","SWIRL[146]"
- 3460 DATA" TW..L","IR","TWIRL[146]"
- 3470 DATA" C..L","UR","CURL[146]"
- 3480 DATA" CH..N","UR","CHURN[146]"
- 3490 DATA" CH..CH","UR","CHURCH[146]"
- 3500 DATA" BL..T","UR","BLURT[146]"
- 3510 DATA" B..ST","UR","BURST[146]"
- 3520 DATA"WHISK..","ER","WHISKER[146]"
- 3530 DATA" TIMB..","ER","TIMBER[146]"
- 3540 DATA" SILV..","ER","SILVER[146]"
- 3550 DATA" P..MIT","ER","PERMIT[146]"
- 3560 DATA" P..HAPS","ER","PERHAPS[146]"
- 3570 DATA"SHELT..","ER","SHELTER[146]"
- 3580 DATA" LANT..N","ER","LANTERN[146]"
- 3590 DATA" TEND..","ER","TENDER[146]"
- 3600 DATA" ENT..","ER","ENTER[146]"
- 3610 DATA" ST..","IR","STIR[146]"
- 3620 DATA" B..CH","IR","BIRCH[146]"
- 3630 DATA" CH..P","IR","CHIRP[146]"
- 3640 DATA" SH..T","IR","SHIRT[146]"
- 3650 DATA" TH..D","IR","THIRD[146]"
- 3660 DATA" B..TH","IR","BIRTH[146]"
- 3670 DATA" SP..N","UR","SPURN[146]"
- 3680 DATA" S..F","UR","SURF[146]"
- 3690 DATA" T..N","UR","TURN[146]"
- 3700 DATA" BL..","UR","BLUR[146]"
- 3710 DATA" H..T","UR","HURT[146]"
- 3720 DATA" L..K","UR","LURK[146]"
- 3730 DATA" H..L","UR","HURL[146]"
- 3740 DATA" SP..","UR","SPUR[146]"
- 3750 DATA" SL..","UR","SLUR[146]"
- 3760 DATA" NUMB..","ER","NUMBER[146]"
- 3770 DATA" MAST..","ER","MASTER[146]"
- 3780 DATA" TEMP..","ER","TEMPER[146]"
- 3790 DATA" WINT..","ER","WINTER[146]"
- 3800 DATA" SIST..","ER","SISTER[146]"
- 3810 DATA" UND..","ER","UNDER[146]"
- 3820 DATA" ST..N","ER","STERN[146]"
- 3830 DATA" P..CH","ER","PERCH[146]"
- 3840 DATA" S..","IR","SIR[146]"
- 3850 DATA" B..D","IR","BIRD[146]"
- 3860 DATA" F..M","IR","FIRM[146]"
- 3870 DATA" D..T","IR","DIRT[146]"
- 3880 DATA" G..L","IR","GIRL[146]"
- 3890 DATA" C..","UR","CUR[146]"
- 3900 DATA" B..N","UR","BURN[146]"
- 3910 DATA" T..N","UR","TURN[146]"
- 3920 DATA" C..B","UR","CURB[146]"
- 3930 DATA" F..THER","UR","FURTHER[146]"
- 3940 DATA"FURTH..","ER","FURTHER[146]"
- 3950 DATA" M..DER","UR","MURDER[146]"
- 3960 DATA" MURD..","ER","MURDER[146]"
- 3970 DATA" P..SE","UR","PURSE[146]"
- 3980 DATA" N..SE","UR","NURSE[146]"
- 3990 DATA" V..SE","ER","VERSE[146]"
- 4000 DATA" BETT..","ER","BETTER[146]"
- 4010 DATA" DEEP..","ER","DEEPER[146]"
- 4020 DATA" MILL..","ER","MILLER[146]"
- 4030 DATA" HAMM..","ER","HAMMER[146]"
- 4040 DATA" DINN..","ER","DINNER[146]"
- 4050 DATA"PAINT..","ER","PAINTER[146]"
- 4060 DATA" SUMM..","ER","SUMMER[146]"
- 4070 DATA"SLEEP..","ER","SLEEPER[146]"
- 4080 DATA" BITT..","ER","BITTER[146]"
- 4090 DATA" UPP..","ER","UPPER[146]"
- 4100 DATA"FLUTT..","ER","FLUTTER[146]"
- 4110 DATA"TEACH..","ER","TEACHER[146]"
- 4120 DATA" CL..K","ER","CLERK[146]"
- 4130 DATA" N..VE","ER","NERVE[146]"
- 4900 REM
- 4910 REM
- 4920 REM LINES 5000-10110 GIVES THE
- 4930 REM STUDENT HIS SCORE AND
- 4940 REM CALCULATES HIS PER CENT.
- 4950 REM HE IS THEN GIVEN THE OPTION
- 4960 REM OF STARTING FRESH OR OF
- 4970 REM LEAVING THE PROGRAM
- 4980 REM
- 4981 REM (null)
- 4990 REM
- 5000 PRINT"[147]"
- 5010 PRINT"YOU GOT"N"CORRECT OUT OF"CO
- 5020 PRINT"WHICH IS";INT(N/CO*100+.5)"%"
- 10000 PRINT"WOULD YOU LIKE TO TRY AGAIN?(YES/NO)"
- 10005 INPUT A$:REM ANSWER
- 10010 IF LEFT$(A$,1)="Y" THEN RUN 2019
- 10015 PRINT"[147]"
- 10016 REM (null)
- 10017 REM
- 10018 REM
- 10019 REM THE BALANCE OF THE PROGRAM
- 10020 REM PRINTS A HAPPY FACE WHICH
- 10021 REM REMAINS ON THE SCREEN UNTIL
- 10022 REM ANY KEY IS DEPRESSED.
- 10023 REM
- 10024 REM
- 10025 PRINT""
- 10032 REM(null)
- 10050 PRINTTAB(14)" [209][209][209]"
- 10060 PRINTTAB(14)" [209][209] [209][209]"
- 10070 PRINTTAB(14)" [209] * * [209]"
- 10080 PRINTTAB(14)"[209] [194] [209]"
- 10090 PRINTTAB(14)"[209] [209]"
- 10100 PRINTTAB(14)" [209] [205][164][164][164][206] [209]"
- 10110 PRINTTAB(14)" [209] [209]"
- 10120 PRINTTAB(14)" [209][209][209][209][209]"
- 10300 PRINT"OKAY, THANK YOU FOR PLAYING"
- 10310 PRINT"AND HAVE A HAPPY ER/IR/UR[146] DAY."
- 10320 GET J$:IF J$=""THEN 10320
- 10340 PRINT"[147]"
- 10341 END
-