1 line
12 KiB
Plaintext
1 line
12 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 3000:NEXT DLAY
|
|
150 CLS
|
|
160 FOR MUS=1 TO 5
|
|
161 SOUND 1760,1,150:FOR D=1 TO 200:NEXT D
|
|
162 SOUND 1568,1,10:FOR D=1 TO 200:NEXT D
|
|
163 NEXT MUS
|
|
|
|
170 OPEN "INTRO" FOR INPUT AS #1
|
|
171 IMAGE$=INPUT$(LOF(1),1)
|
|
172 PICTURE (75,34)-(420,250), IMAGE$
|
|
173 CLOSE
|
|
|
|
175 SOUND 96,5,150:FOR D=1 TO 1000:NEXT D
|
|
176 SOUND 110,5,150:FOR D=1 TO 1000:NEXT D
|
|
177 SOUND 131,5,150:FOR D=1 TO 3000:NEXT D
|
|
|
|
178 CLS:PRINT""
|
|
PRINT" THE ITEMS ON THIS DISC ARE ALL":CALL TEXTFACE(1)
|
|
PRINT" LEARNING EXERCISES.":CALL TEXTFACE (0)
|
|
PRINT" THEY ARE WORTH 2 TO 4 QP'S FOR JUST DOING THEM, IF"
|
|
PRINT" YOU WOULD LEARN SOMETHING BY DOING THEM."
|
|
PRINT" THEY DO NOT PROVIDE A SCORE."
|
|
PRINT""
|
|
PRINT" THE DRILLS THAT EARN YOU QP'S ARE ON THE DISC OF DRILLS"
|
|
PRINT" ON FRACTIONS AND DECIMALS."
|
|
PRINT""
|
|
PRINT" IF THIS IS NOT THE DISC YOU WANT, QUIT AND TRY ANOTHER."
|
|
PRINT""
|
|
PRINT" TO GO ON WITH THIS DISC, PRESS 'RETURN'."
|
|
INPUT V
|
|
|
|
180 CLS:PRINT""
|
|
181 PRINT" WHICH WOULD YOU LIKE TO DO? PRESS THE KEY FOR YOUR CHOICE."
|
|
184 PRINT""
|
|
185 PRINT,"1. LEARN HOW TO FIND A LEAST COMMON DENOMINATOR"
|
|
186 PRINT""
|
|
187 PRINT,"2. LEARN TO REDUCE TO LOWEST TERMS."
|
|
188 PRINT""
|
|
189 PRINT,"3. ADD AND SUBTRACT FRACTIONS"
|
|
190 PRINT""
|
|
191 PRINT,"4. MULTIPLY AND DIVIDE FRACTIONS"
|
|
192 PRINT""
|
|
194 PRINT,"5. CHANGE FROM IMPROPER TO MIXED NUMBER AND BACK"
|
|
196 PRINT""
|
|
198 PRINT,"6. CHANGE A FRACTION INTO A DECIMAL AND BACK"
|
|
200 PRINT""
|
|
201 PRINT" TO SEE MORE CHOICES, PRESS THE 'M' KEY."
|
|
220 CHC$=""
|
|
222 CHC$= INKEY$
|
|
224 IF CHC$="1" THEN RUN "LCD"
|
|
225 IF CHC$="2" THEN RUN "RED"
|
|
226 IF CHC$="3" THEN RUN "ADSUB"
|
|
227 IF CHC$="4" THEN RUN "MULDIV"
|
|
228 IF CHC$="5" THEN RUN "IMPMIX"
|
|
229 IF CHC$="6" THEN RUN "FRDEC"
|
|
230 IF CHC$="M" THEN 250
|
|
232 IF CHC$="7" THEN RUN "A/S-DEC"
|
|
233 IF CHC$="8" THEN RUN "MULTDEC"
|
|
234 IF CHC$="9" THEN RUN "DIVDEC"
|
|
235 IF CHC$="A" THEN RUN "PERDEC"
|
|
236 IF CHC$="Q" THEN END
|
|
237 IF CHC$="O" THEN 180
|
|
249 GOTO 220
|
|
250 CLS:PRINT""
|
|
252 PRINT,"7. ADDING AND SUBTRACTING WITH DECIMALS"
|
|
254 PRINT""
|
|
255 PRINT,"8. MULTIPLYING WITH DECIMALS"
|
|
256 PRINT""
|
|
258 PRINT,"9. DIVIDING WITH DECIMALS"
|
|
259 PRINT""
|
|
260 PRINT,"A. CHANGING PERCENTS TO DECIMALS AND VICE VERSA"
|
|
261 PRINT""
|
|
262 PRINT,"Q. QUIT"
|
|
265 PRINT"":PRINT"":PRINT""
|
|
280 PRINT" TO RETURN TO ORIGINAL LIST, PRESS THE 'O' KEY."
|
|
300 GOTO 220
|
|
|