1 line
14 KiB
Plaintext
1 line
14 KiB
Plaintext
|
|
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
|