10 CLS:GOTO 200
12 GOSUB 210


60 PSET(210,119):PSET(209,120):PSET(209,121):PSET(208,122):PSET(207,122):PSET(206,123):PSET(205,123):PSET(222,123):PSET(222,122):PSET(222,121)
61 PSET(204,122):PSET(203,121):PSET(202,120):PSET(202,119):PSET(202,118):PSET(203,117):PSET(203,116):PSET(204,115):PSET(205,114):PSET(206,114):PSET(207,113):PSET(208,113):PSET(209,113):PSET(210,113):PSET(211,114):PSET(212,114):PSET(213,115):PSET(214,115)
62 PSET(227,119):PSET(226,120):PSET(226,121):PSET(207,116):PSET(206,117):PSET(205,118):PSET(205,119):PSET(206,119):PSET(207,119):PSET(212,121):PSET(213,121):PSET(216,121):PSET(222,121):PSET(223,121):PSET(227,117):PSET(227,118)
63 PSET(214,116):PSET(215,116):PSET(216,117):PSET(217,118):PSET(218,119):PSET(219,120):PSET(218,121):PSET(220,121):PSET(220,119):PSET(220,118):PSET(221,117):PSET(222,116):PSET(223,116):PSET(224,116):PSET(225,116):PSET(226,116)
64 PSET(212,121):PSET(213,121):PSET(216,121):PSET(217,121)
65 PSET(205,124):PSET(222,124):PSET(205,125):PSET(222,125):PSET(205,126):PSET(209,126):PSET(210,126)
66 PSET(211,126):PSET(212,126):PSET(213,126):PSET(216,126):PSET(217,126):PSET(218,126):PSET(219,126):PSET(220,126):PSET(222,126):PSET(203,127):PSET(204,127):PSET(205,127):PSET(210,127):PSET(211,127):PSET(212,127):PSET(217,127):PSET(218,127):PSET(219,127)
67 PSET(222,127):PSET(223,127):PSET(203,128):PSET(205,128):PSET(210,128):PSET(212,128):PSET(217,128):PSET(218,128):PSET(219,128):PSET(222,128):PSET(223,128):PSET(203,129):PSET(205,129):PSET(222,129):PSET(223,129):PSET(203,130):PSET(206,130):PSET(221,130)
68 PSET(223,130):PSET(204,131):PSET(206,131):PSET(221,131):PSET(223,131):PSET(204,132):PSET(207,132):PSET(213,132):PSET(216,132):PSET(221,132):PSET(222,132):PSET(205,133):PSET(207,133):PSET(208,133):PSET(212,133):PSET(217,133):PSET(221,133):PSET(222,133)
69 PSET(208,134):PSET(221,134):PSET(209,135):PSET(211,135):PSET(221,135):PSET(209,136):PSET(212,136):PSET(213,136):PSET(214,136):PSET(215,136):PSET(216,136):PSET(217,136):PSET(220,136):PSET(209,137):PSET(220,137):PSET(210,138):PSET(219,138):PSET(211,139)
70 PSET(218,139):PSET(212,140):PSET(217,140):PSET(213,141):PSET(214,141):PSET(215,141):PSET(216,141):PSET(209,142):PSET(209,143):PSET(209,144):PSET(209,145):PSET(209,146):PSET(209,147):PSET(210,142):PSET(210,143):PSET(210,144):PSET(210,145):PSET(210,146)
71 PSET(210,147):PSET(211,143):PSET(211,144):PSET(211,145):PSET(211,146):PSET(212,143):PSET(212,144):PSET(212,145):PSET(212,146):PSET(213,144):PSET(213,145):PSET(214,143):PSET(214,144):PSET(214,145):PSET(215,144):PSET(215,145):PSET(215,146):PSET(217,143)
72 PSET(217,144):PSET(217,145):PSET(217,146):PSET(218,142):PSET(218,143):PSET(218,144):PSET(218,145):PSET(218,146):PSET(218,147):PSET(219,142):PSET(219,143):PSET(219,144):PSET(219,145):PSET(219,146):PSET(219,147):PSET(216,143):PSET(216,144):PSET(216,145)
73 PSET(216,146):PSET(230,112):PSET(230,113):PSET(230,114):PSET(230,115):PSET(230,116):PSET(230,117):PSET(230,118):PSET(230,119):PSET(230,120):PSET(231,113):PSET(232,114):PSET(233,115):PSET(234,114):PSET(235,113):PSET(236,112):PSET(236,113):PSET(236,114)
74 PSET(236,115):PSET(236,116):PSET(236,117):PSET(236,118):PSET(236,119):PSET(236,120):PSET(238,112):PSET(238,113):PSET(238,114):PSET(238,115):PSET(238,116):PSET(238,117):PSET(238,118):PSET(238,119):PSET(238,120):PSET(239,112):PSET(240,112):PSET(241,112)
75 PSET(242,112):PSET(243,112):PSET(244,113):PSET(244,114):PSET(244,115):PSET(243,116):PSET(242,116):PSET(241,116):PSET(240,116):PSET(239,116):PSET(242,117):PSET(243,118):PSET(243,119):PSET(244,120):PSET(246,120):PSET(250,113):PSET(250,114):PSET(250,115)
76 PSET(250,116):PSET(250,117):PSET(250,118):PSET(250,119):PSET(251,112):PSET(252,112):PSET(253,112):PSET(254,112):PSET(255,112):PSET(256,113):PSET(251,120):PSET(252,120):PSET(253,120):PSET(254,120):PSET(255,120):PSET(256,119):PSET(258,120):GOSUB 215
77 PSET(230,126):PSET(230,127):PSET(230,128):PSET(230,129):PSET(230,130):PSET(230,131):PSET(230,132):PSET(231,126):PSET(232,126):PSET(233,126):PSET(234,126):PSET(235,126):PSET(236,127):PSET(236,128):PSET(236,129):PSET(235,130):PSET(234,130):PSET(233,130)
78 PSET(232,130):PSET(231,130):PSET(230,133):PSET(230,134):PSET(238,126):PSET(238,127):PSET(238,128):PSET(238,129):PSET(238,130):PSET(238,131):PSET(238,132):PSET(238,133):PSET(238,134):PSET(239,126):PSET(240,126):PSET(241,126):PSET(242,126):PSET(243,126)
79 PSET(244,127):PSET(244,128):PSET(244,129):PSET(243,130):PSET(242,130):PSET(241,130):PSET(240,130):PSET(239,130):PSET(242,131):PSET(243,132):PSET(243,133):PSET(244,134):PSET(246,127):PSET(246,128):PSET(246,129):PSET(246,130)
80 PSET(246,131):PSET(246,132):PSET(246,133):PSET(247,126):PSET(248,126):PSET(249,126):PSET(250,126):PSET(251,126):PSET(252,127):PSET(252,128):PSET(252,129):PSET(252,130):PSET(252,131):PSET(252,132):PSET(252,133):PSET(251,134):PSET(250,134):PSET(249,134)
81 PSET(248,134):PSET(254,126):PSET(255,126):PSET(255,127):PSET(255,128):PSET(255,129):PSET(255,130):PSET(255,131):PSET(255,132):PSET(255,133):PSET(256,134):PSET(255,134):PSET(257,134):PSET(258,134):PSET(259,134):PSET(257,126):PSET(258,126):PSET(259,126)
82 PSET(260,127):PSET(260,128):PSET(260,129):PSET(260,130):PSET(260,131):PSET(260,132):PSET(260,133):PSET(247,134):PSET(256,126):PSET(254,134):PSET(262,126):PSET(262,127):PSET(262,128):PSET(262,129):PSET(262,130):PSET(262,131):PSET(262,132):PSET(263,133)
83 PSET(263,134):PSET(264,134):PSET(265,134):PSET(266,134):PSET(267,133):PSET(268,126):PSET(268,127):PSET(268,129):PSET(268,130):PSET(268,131):PSET(268,132):PSET(268,133):PSET(268,134):PSET(271,126):PSET(272,126):PSET(273,126):PSET(274,126):PSET(275,126)
84 PSET(276,127):PSET(270,127):PSET(270,128):PSET(270,129):PSET(270,130):PSET(270,131):PSET(270,132):PSET(270,133):PSET(271,134):PSET(272,134):PSET(273,134):PSET(274,134):PSET(275,134):PSET(276,133):PSET(268,128):PSET(278,126):PSET(279,126):PSET(280,126)
85 PSET(281,126):PSET(282,126):PSET(283,126):PSET(280,127):PSET(280,128):PSET(280,129):PSET(280,130):PSET(280,131):PSET(280,132):PSET(280,133):PSET(280,134):PSET(286,126):PSET(286,127):PSET(286,128):PSET(286,129):PSET(286,130):PSET(286,131):PSET(286,132)
86 PSET(286,133):PSET(286,134):PSET(289,126):PSET(290,126):PSET(291,126):PSET(292,126):PSET(293,126):PSET(288,127):PSET(288,128):PSET(288,129):PSET(288,130):PSET(288,131):PSET(288,132):PSET(288,133):PSET(289,134):PSET(289,134):PSET(290,134):PSET(291,134)
87 PSET(292,134):PSET(293,134):PSET(294,127):PSET(294,129):PSET(294,130):PSET(294,131):PSET(294,132):PSET(294,133):PSET(294,128):PSET(296,126):PSET(296,127):PSET(296,128):PSET(296,129):PSET(296,130):PSET(296,131):PSET(296,132):PSET(296,133):PSET(296,134)
88 PSET(296,134):PSET(297,128):PSET(298,129):PSET(299,130):PSET(300,131):PSET(301,132):PSET(302,126):PSET(302,127):PSET(302,128):PSET(302,129):PSET(302,130):PSET(302,131):PSET(302,132):PSET(302,133):PSET(302,134):PSET(305,126):PSET(306,126):PSET(307,126)
89 PSET(308,126):PSET(309,126):PSET(310,127):PSET(304,127):PSET(304,128):PSET(304,129):PSET(305,130):PSET(306,130):PSET(307,130):PSET(308,130):PSET(309,130):PSET(310,131):PSET(310,132):PSET(310,133):PSET(309,134):PSET(308,134):PSET(307,134):PSET(306,134)
90 PSET(305,134):PSET(304,133):PSET(230,140):PSET(230,141):PSET(230,142):PSET(230,143):PSET(230,144):PSET(230,145):PSET(230,146):PSET(230,147):PSET(230,148):PSET(231,140):PSET(232,140):PSET(233,140):PSET(234,140):PSET(235,140):PSET(236,141):PSET(236,142)
91 PSET(236,143):PSET(235,144):PSET(234,144):PSET(233,144):PSET(232,144):PSET(231,144):PSET(238,140):PSET(238,141):PSET(238,142):PSET(238,143):PSET(238,144):PSET(238,145):PSET(238,146):PSET(238,147):PSET(238,148):PSET(239,140):PSET(240,140):PSET(241,140)
92 PSET(242,140):PSET(243,140):PSET(244,141):PSET(244,142):PSET(244,143):PSET(244,144):PSET(243,144):PSET(242,144):PSET(241,144):PSET(240,144):PSET(239,144):PSET(242,145):PSET(243,146):PSET(243,147):PSET(244,148):PSET(246,140):PSET(247,140):PSET(248,140)
93 PSET(249,140):PSET(250,140):PSET(251,140):PSET(252,140):PSET(246,141):PSET(246,142):PSET(246,143):PSET(246,144):PSET(246,145):PSET(246,146):PSET(246,147):PSET(246,148):PSET(247,148):PSET(248,148):PSET(249,148):PSET(250,148):PSET(251,148):PSET(252,148)
94 PSET(245,144):PSET(246,144):PSET(247,144):PSET(248,144):PSET(249,144):PSET(250,144):PSET(255,140):PSET(256,140):PSET(257,140):PSET(258,140):PSET(259,140):PSET(260,141):PSET(254,141):PSET(254,142):PSET(254,143):PSET(255,144):PSET(256,144):PSET(257,144)
95 PSET(258,144):PSET(259,144):PSET(260,145):PSET(260,147):PSET(259,148):PSET(258,148):PSET(257,148):PSET(256,148):PSET(255,148):PSET(254,147):PSET(263,140):PSET(264,140):PSET(262,140):PSET(265,140):PSET(266,140):PSET(267,140):PSET(268,140):PSET(262,141)
96 PSET(262,142):PSET(262,143):PSET(262,144):PSET(262,145):PSET(262,146):PSET(262,147):PSET(262,148):PSET(263,148):PSET(265,148):PSET(266,148):PSET(267,148):PSET(268,148):PSET(263,144):PSET(264,144):PSET(265,144):PSET(266,144):PSET(270,140):PSET(270,141)
97 PSET(270,142):PSET(270,143):PSET(270,144):PSET(270,145):PSET(270,146):PSET(270,147):PSET(270,148):PSET(271,142):PSET(272,143):PSET(273,144):PSET(274,145):PSET(275,146):PSET(276,140):PSET(276,142):PSET(276,143):PSET(276,144):PSET(276,145):PSET(276,146)
98 PSET(276,147):PSET(276,148):PSET(276,141):PSET(278,140):PSET(279,140):PSET(280,140):PSET(281,140):PSET(282,140):PSET(283,140):PSET(284,140):PSET(281,141):PSET(281,142):PSET(281,143):PSET(281,144):PSET(281,145):PSET(281,146):PSET(281,147):PSET(281,148)
99 PSET(287,140):PSET(288,140):PSET(289,140):PSET(290,140):PSET(291,140):PSET(292,141):PSET(286,141):PSET(286,142):PSET(286,143):PSET(287,144):PSET(288,144):PSET(289,144):PSET(290,144):PSET(291,144):PSET(292,145):PSET(292,146):PSET(292,147):PSET(291,148)
100 PSET(290,148):PSET(289,148):PSET(288,148):PSET(287,148):PSET(286,147):GOSUB 220
133 LINE (380,270)-(380,274):LINE(381,269)-(384,269):LINE(385,270)-(385,274):LINE(380,275)-(384,275):PSET(382,271):PSET(383,271):PSET(382,272):PSET(382,273):PSET(283,273):LINE(388,270)-(388,274):PSET(390,271):PSET(391,270):PSET(391,272):PSET(392,270)

134 PSET(393,271):PSET(393,272):PSET(392,273):PSET(391,274):PSET(395,271):PSET(395,273):PSET(396,270):PSET(396,272):PSET(396,274):PSET(397,271):PSET(397,273):PSET(399,271):PSET(400,270):PSET(400,272):PSET(401,270):PSET(401,273)
135 PSET(401,272):PSET(401,273):PSET(400,274):PSET(402,271):PSET(402,272):PSET(383,273)
136 GOTO 225
140 FOR DLAY = 1 TO 3000:NEXT DLAY
150 CLS
200 WAVE 0, SIN
201 GB=196:GHB=207.7:AB=220:AHB=233:BB=247:C=261.6:CH=277.2:D=293.7:DH=311:E=329.6:F=349.2:FH=370:G=392:GH=415.3
202 A=440:AH=466.2:B=493.9:CM=523.3:CHM=554.4:DM=587.3:DHM=622.3:EM=659.3:FM=698.5:FHM=740:GM=784:GHM=830.6
203 AM=880:AHM=932.3:BM=987.8:CT=1046.5:CHT=1108.7:DT=1174.7:DHT=1244.5:ET=1318.5
204 GOTO 12
210 SOUND B,4:SOUND 0,1:SOUND CM,6:SOUND 0,1:SOUND B,2:SOUND 0,1:SOUND A,4:SOUND 0,1:SOUND G,4:SOUND 0,1:SOUND E,6:SOUND 0,1:SOUND E,2:SOUND 0,1:SOUND CM,4:SOUND 0,3
211 RETURN

215 SOUND E,4:SOUND 0,1:SOUND D,2:SOUND 0,1:SOUND G,6:SOUND 0,1:SOUND G,4:SOUND 0,1:SOUND G,4:SOUND 0,1:SOUND FH,4:SOUND 0,1:SOUND G,2:SOUND 0,1:SOUND A,4:SOUND 0,3
216 RETURN

220 SOUND B,4:SOUND 0,1:SOUND CM,6:SOUND 0,1:SOUND B,2:SOUND 0,1:SOUND A,2:SOUND 0,1:SOUND A,2:SOUND 0,1:SOUND G,4:SOUND 0,1:SOUND E,4:SOUND 0,1:SOUND E,4:SOUND 0,1:SOUND CM,6:SOUND 0,3
221 RETURN

225 SOUND E,1:SOUND 0,1:SOUND D,3:SOUND 0,1:SOUND FH,1:SOUND 0,1:SOUND A,3:SOUND 0,1:SOUND CM,1:SOUND 0,1:SOUND B,2:SOUND 0,1:SOUND G,4:SOUND A,2:SOUND G,4
226 GOTO 250

230 SOUND D,3:SOUND 0,1:SOUND D,1:SOUND 0,1:SOUND G,4:SOUND 0,1:SOUND G,6:SOUND 0,1:SOUND FH,4:SOUND 0,1:SOUND A,4:SOUND 0,1:SOUND A,6:SOUND 0,3
231 RETURN
233 SOUND D,3:SOUND 0,1:SOUND D,1:SOUND 0,1:SOUND A,4:SOUND 0,1:SOUND A,6:SOUND 0,1:SOUND G,4:SOUND 0,1:SOUND B,4:SOUND 0,1:SOUND B,6:SOUND 0,3
234 RETURN
235 SOUND G,3:SOUND 0,1:SOUND G,1:SOUND 0,1:SOUND B,4:SOUND 0,1:SOUND B,6:SOUND 0,1:SOUND B,2:SOUND 0,1:SOUND CM,4:SOUND 0,1:SOUND EM,6:SOUND 0,1:SOUND EM,2:SOUND FM,2:SOUND EM,4:SOUND 0,1
237 RETURN
238 SOUND EM,8:SOUND 0,1:SOUND DM,2:SOUND 0,1:SOUND DM,4:SOUND 0,1:SOUND CM,4:SOUND 0,1:SOUND FH,4:SOUND 0,1:SOUND A,4:SOUND 0,1:SOUND G,2:SOUND 0,1:SOUND G,12
239 IF BOBO < 2 THEN 250 ELSE 240
237 RETURN
240 SOUND EM,16:SOUND 0,1:SOUND DM,4:SOUND 0,1:SOUND DM,8:SOUND 0,1:SOUND CM,8:SOUND 0,1:SOUND FH,8:SOUND 0,1:SOUND G,20
241 GOTO 268
250 CLS:BOBO = BOBO + 1:GOSUB 230
251 CIRCLE (110,170),20,,1,4:CIRCLE (85,200),20,,3,1
252 LINE(110,50)-(190,70),,BF:LINE(150,70)-(180,230):GOSUB 233
254 LINE(190,100)-(215,150),,BF:CIRCLE (240,110),40,,4,5.3:LINE(260,100)-(260,160)
256 LINE (310,45)-(350,65),,BF:LINE(310,65)-(310,210):LINE(295,120)-(330,140),,BF:GOSUB 235
258 FOR R=0 TO 15:CIRCLE (435,60),R:NEXT R:LINE(420,60)-(420,197):LINE(380,150)-(447,100)
260 CALL MOVETO (20,270):PRINT"VARIOUS DRILLS FOR 3RD AND 4TH GRADE ENGLISH":GOTO 238

268 FOR D=1 TO 2000:NEXT D

280 CLS:PRINT""
281 PRINT"  WHICH WOULD YOU LIKE TO DO?  PRESS THE NUMBER."
282 PRINT""
283 PRINT,"1. CONFUSING HOMONYMS"
284 PRINT""
285 PRINT,"2. THIS, THAT, THESE, AND THOSE"
286 PRINT""
287 PRINT,"3. SHORT FORMS"
288 PRINT""
289 PRINT,"4. THERE,THEIR,THEY'RE"
290 PRINT""
291 PRINT,"5. ALL ABOUT LETTERS"
292 PRINT""
293 PRINT,"6. IS THE WORD A NOUN OR A VERB?"
294 PRINT""
295 PRINT"  TO SEE MORE CHOICES, PRESS THE 'M' KEY"
300 CHC$ = ""
301 CHC$ = INKEY$
302 IF CHC$ = "1" THEN RUN "COHO"
303 IF CHC$ = "2" THEN RUN "THTH"
304 IF CHC$ = "3" THEN RUN "CONT.S"
305 IF CHC$ = "4" THEN RUN "THERE/ETC"
306 IF CHC$ = "5" THEN RUN "LETTER"
307 IF CHC$ = "6" THEN RUN "N/V"
308 IF CHC$ = "M" THEN 400
309 IF CHC$ = "7" THEN RUN "SENT"
310 IF CHC$ = "8" THEN RUN "SU/PR"
311 IF CHC$ = "F" THEN 280
312 IF CHC$ = "9" THEN RUN "VERBS"
320 GOTO 300
400 CLS:PRINT""
401 PRINT,"7. IS IT A SENTENCE OR NOT?"
402 PRINT""
403 PRINT,"8. TELL THE SUBJECT AND PREDICATE"
404 PRINT""
405 PRINT,"9. CORRECT USAGE OF SOME VERBS"
406 PRINT""
430 PRINT"  TO GO BACK TO THE FIRST LIST, PRESS THE 'F' KEY"
431 GOTO 300