***GRAMMAR DRILL***> DRILL IN SPELLING WORDS WITHe *OU/OW* SUITABLE FOR GRADES 4-8.k  PROGRAM DEVELOPED BY J J URSANO SPRINGDALE PARK BRACEBEODGE, ONTARIO APRIL/83  LINES 20 TO 510 SET UP AND  PRINT THE PROGRAM TITLE  , ""T  53280,5:53281,7: SCREEN COLOURSr "": SET CURSOR TO REDz   I125  7)"";  500 ( - 2 I15 < 31)"" F 500 P Z I31 7 1 dI)"" n 500 x I15 7)""* 5000 [ "OU/OW"x 14)"BY J. URSANO" Y13500: ""  800  L130:     LINES 800 TO 950 ARE  INSTRUCTIONS FOR STUDENTS   ""/ 8)"R E M E M B E R "U *"1) OU OR OW CAN SAY OU"u 4"2) OW SAYS LONG O" H"PRESS*ANY KEY*WHEN READY" R K$: K$"" 850 \"" "TYPE THE MISSING LETTERS" "TO COMPLETE THE WORD"* "EXAMPLE:"@  ""l  "SH..T WOULD BE SHOUT" "" "PRESS*ANY KEY*WHEN READY"  K$: K$"" 960      PUTTING DATA INTO ARRAY(  A$=WORD WITH BLANK(M..TH)J  B$=CORRECT ANSWER(OU OR OW)g  C$=CORRECT WORD(MOUTH)  P1 IS SIZE OF ARRAY  P144 A$(P1),B$(P1),C$(P1)  I1P1 A$(I),B$(I),C$(I)  I   RANDOMIZE AND PRESENT WORDS AND SET COUNTER AT 0!'8 I0:CO0:N0N*I(P1((TI))1)W4""9 53280,9:53281,15:"": SET CURSOR TO BLACK>COCO1H"",13)R""A$(I)\"",16)a CHECK TO SEE THAT ANSWER ISc CORRECTd fD$:D$""2150 pE$:E$""2160-uZ$D$E$9z"";Z$R D$E$B$(I) 2220u"SORRY,THAT IS NOT CORRECT""THE ANSWER IS ";C$(I) 2240NN1 STUDENT OPTION TO CONTINUE OR TO CHECK SCORE"WELL DONE!"2" PRESS SPACE BAR TO CONTINUE"W" PRESS S TO SEE SCORE"l R$:R$""2280 R$(32) 2090 R$"S" 5000 2280B " ..CH","OU","OUCH"L "ARR..","OW","ARROW"   DATA STATEMENTS BEGIN     : "ALL..","OW","ALLOW"T " D..N","OW",RDOWN"r " H..ND","OU","HOUND" " R..","OW","ROW" " H..SE","OU","HOUSE" " BR..N","OW","BROWN" " M..","OW","MOW" " BL..","OW","BLOW" " H..L","OW","HOWL"3 " ST..","OW","STOW"Q& " M..TH","OU","MOUTH"n0 " GR..L","OW","GROWL": " SH..ER","OW","SHOWER"D " KN..","OW","KNOW"N " S..ND","OU","SOUND"X " AR..ND","OU","AROUND"b " B..","OW","BOW"l " D..N","OW","DOWN"9v " P..ND","OU","POUND"V " SH..T","OU","SHOUT"t " T..ER","OW","TOWER" " SH..","OW","SHOW" " GR..ING","OW","GROWING" " CR..D","OW","CROWD" " W..","OW","WOW" " H..","OW","HOW" " ..CH","OU","OUCH": "ARR..","OW","ARROW"Z " C..ARD","OW","COWARD"v "BEL..","OW","BELOW" " P..DER","OW","POWDER" " GR..","OW","GROW" " BR..","OW","BROW" " SL..LY","OW","SLOWLY"  " B..ND","OU","BOUND"( " FL..ER","OW","FLOWER"E* " GR..L","OW","GROWL"a4 "BEL..","OW","BELOW"}> "THR..","OW","THROW"H " SN..","OW","SNOW"R " CL..N","OW","CLOWN"\ " P..ER","OW","POWER"f " DR..N","OW","DROWN"$.8 LINES 5000-10110 GIVES THE9B STUDENT HIS SCORE ANDXL CALCULATES HIS PER CENT.zV HE IS THEN GIVEN THE OPTION` OF STARTING AGAIN OR OFj LEAVING THE PROGRAMt~"""YOU GOT"N"CORRECT OUT OF"CO"THAT IS";(NCO100.5)"%"F'"WOULD YOU LIKE TO TRY AGAIN?(YES/NO)"O' A$i' (A$,1)"Y" 790r'""z ' !'"'#' THE BALANCE OF THE PROGRAM$' PRINTS A HAPPY FACE WHICH%' REMAINS ON THE SCREEN UNTIL&' ANY KEY IS DEPRESSED. ''('-)'"":53280,5:53281,0I.'"": CURSOR TO WHITE\B'14)" "qL'14)" "V'14)" * * "`'14)" "j'14)" "t'14)" "~'14)" "'14)" "' '<("OKAY, THANK YOU FOR PLAYING"UF("...AND HAVE A HAPPY OU/OW DAY"mP( J$: J$"" 10320vd(""|e(ZN