1 line
13 KiB
Plaintext
1 line
13 KiB
Plaintext
3 DIM WF%(256)
|
|
FOR I= 0 TO 127
|
|
WF%(I)=127
|
|
WF%(255-I)=-128
|
|
NEXT I
|
|
WAVE 0,WF%
|
|
|
|
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)
|
|
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)
|
|
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)
|
|
140 FOR DLAY = 1 TO 1500:NEXT DLAY
|
|
|
|
200 GOTO 201
|
|
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
|
|
|
|
250 SOUND AM,7:SOUND 0,1:SOUND CT,5:SOUND 0,2:SOUND AM,3:SOUND 0,1:SOUND FM,5:SOUND 0,1:SOUND EM,3:SOUND 0,1:SOUND DM,3:SOUND 0,1:SOUND EM,6:SOUND 0,1:SOUND DM,3:SOUND 0,1
|
|
253 SOUND CM,3:SOUND 0,4:SOUND CHM,5:SOUND 0,1:SOUND DM,3:SOUND 0,2:SOUND A,5:SOUND 0,1:SOUND GH,3:SOUND 0,1:SOUND A,4:SOUND 0,1:SOUND CM,6:SOUND 0,3
|
|
255 SOUND A,5:SOUND 0,1:SOUND G,3:SOUND 0,2:SOUND F,5:SOUND 0,1:SOUND G,5:SOUND 0,2:SOUND A,5:SOUND 0,1:SOUND CM,4:SOUND 0,1:SOUND DM,4:SOUND 0,1:SOUND FM,5:SOUND 0,1
|
|
259 SOUND DM,3:SOUND 0,1:SOUND CM,3:SOUND 0,1:SOUND DM,4:SOUND 0,1:SOUND EM,4:SOUND 0,1:SOUND GM,4:SOUND 0,1:SOUND EM,4:SOUND 0,1:SOUND DM,4:SOUND 0,1:SOUND EM,3:SOUND 0,1:SOUND GM,6:SOUND 0,1:SOUND CM,3:SOUND 0,4
|
|
262 SOUND CT,6:SOUND 0,1:SOUND AM,4:SOUND 0,1:SOUND FM,4:SOUND 0,1:SOUND EM,4:SOUND 0,1:SOUND DM,4:SOUND 0,1:SOUND EM,6:SOUND 0,1:SOUND DM,4:SOUND 0,1:SOUND CM,5:SOUND 0,1:CLS
|
|
265 SOUND CHM,7:SOUND 0,1:SOUND DM,4:SOUND 0,1:SOUND AM,4:SOUND 0,1:SOUND AHM,3:SOUND 0,1:SOUND AM,4:SOUND 0,1:SOUND DM,4:SOUND 0,1
|
|
266 SOUND DM,3:SOUND EM,3:SOUND FM,3:SOUND DM,3:SOUND EM,3:SOUND FM,3:SOUND DM,3:SOUND EM,3:SOUND FM,3:SOUND 0,1:SOUND FM,4:SOUND 0,1:SOUND GM,4:SOUND 0,1:SOUND AM,4:SOUND 0,1:SOUND CT,7:SOUND 0,1
|
|
269 SOUND AM,4:SOUND 0,1:SOUND GM,1:SOUND AM,1:SOUND GM,1:SOUND AM,1:SOUND GM,1:SOUND AM,1:SOUND GM,1:SOUND AM,1:SOUND 0,1:SOUND FM,3:SOUND 0,1:SOUND GM,3:SOUND 0,1:SOUND FM,10
|
|
|
|
300 LINE(175,100)-(150,100):LINE-(150,50):LINE-(175,50):LINE(150,75)-(170,75):LINE(188,50)-(213,100):LINE(188,100)-(213,50):LINE(215,100)-(237,50):LINE-(259,100):LINE(226,75)-(248,75)
|
|
301 CIRCLE(285,75),25,,1,5.2:LINE(300,50)-(325,50):LINE(313,50)-(313,100):LINE(325,100)-(347,50):LINE-(369,100):LINE(336,75)-(358,75)
|
|
305 LINE(100,150)-(122,200):LINE-(144,150):LINE(175,200)-(150,200):LINE-(150,150):LINE-(175,150):LINE(150,175)-(170,175):LINE(185,200)-(185,150):LINE-(212,150):LINE-(215,153):LINE-(215,172):LINE-(212,175):LINE-(185,175):LINE(190,175)-(215,200)
|
|
308 LINE(247,175)-(250,178):LINE-(250,197):LINE-(247,200):LINE-(225,200):LINE-(225,150):LINE-(247,150):LINE-(250,153):LINE-(250,172):LINE-(247,175):LINE-(225,175):CIRCLE(275,175),25
|
|
313 LINE(300,200)-(300,150):LINE-(327,150):LINE-(330,153):LINE-(330,172):LINE-(327,175):LINE-(300,175):LINE(305,175)-(330,200):LINE(337,150)-(337,200):LINE-(365,195):LINE(365,150)-(365,200)
|
|
315 LINE(375,200)-(375,150):LINE-(395,170):LINE-(415,150):LINE-(415,200)
|
|
|
|
320 FOR DLAY = 1 TO 1500:NEXT DLAY
|
|
325 CLS
|
|
330 PRINT"":PRINT""
|
|
331 PRINT" Please press the number key indicating your grade level or"
|
|
333 PRINT" the grade level of vocabulary you wish to drill on--"
|
|
334 PRINT"":PRINT" 3, 4, 5, 6, 7, 8, 9=VIZ-ED SET
|
|
335 PRINT"":PRINT" NOTE: numbers 1 and 2 access special vocabulary lists."
|
|
337 PRINT" 1 gets HENLE'S FIRST, PART 1, 2 gets HENLE'S FIRST, PART2"
|