Macintosh-SW
/
MrCBASIC
mirror of https://github.com/stevemac321/MrCBASIC.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity
MrCBASIC/AFRICA.BAS

1 line
49 KiB
QBasic
Raw Permalink Blame History

10
20 CLS:GOSUB 370
30 DIM A(3000):DIM B(2000):DIM X(50):DIM CN(200):DIM ANSY(100)
31 DIM DOT(100):DIM MTN(100):DIM SCR(5000)
40 GPA=0:MISS=0:TEMPU$=TIME$
100 LINE(316,96)-(312,96):LINE-(311,95):LINE-(307,95):LINE-(305,96):LINE-(297,96):LINE-(286,91):LINE-(282,93):LINE-(284,95):LINE-(281,97):LINE-(273,94):LINE-(270,90):LINE-(267,89):LINE-(264,90):LINE-(260,87):LINE-(260,86):LINE-(262,84):LINE-(262,80)
101 LINE(262,80)-(264,78):LINE-(262,79):LINE-(261,78):LINE-(257,78):LINE-(255,79):LINE-(253,78):LINE-(249,79):LINE-(246,78):LINE-(242,78):LINE-(232,81):LINE-(226,81):LINE-(224,78):LINE-(222,80):LINE-(220,83):LINE-(213,87):LINE-(212,92):LINE-(206,97)
102 LINE(206,97)-(203,98):LINE-(189,115):LINE-(190,120):LINE-(190,124):LINE-(187,131):LINE-(183,135):LINE-(185,137):LINE-(185,140):LINE-(192,150):LINE-(192,154):LINE-(197,159):LINE-(200,160):LINE-(205,164):LINE-(210,165):LINE-(216,163):LINE-(219,163)
103 LINE(219,163)-(222,164):LINE-(225,164):LINE-(237,160):LINE-(240,160):LINE-(242,165):LINE-(245,165):LINE-(249,167):LINE-(249,165):LINE-(254,169):LINE-(251,181):LINE-(251,184):LINE-(261,201):LINE-(260,204):LINE-(262,210):LINE-(261,212):LINE-(257,223)
104 LINE(257,223)-(257,229):LINE-(258,229):LINE-(258,234):LINE-(263,240):LINE-(262,243):LINE-(265,252):LINE-(272,265):LINE-(272,267):LINE-(271,268):LINE-(271,269):LINE-(272,270):LINE-(272,272):LINE-(275,272):LINE-(276,274):LINE-(279,272):LINE-(282,272)
105 LINE(282,272)-(284,271):LINE-(286,272):LINE-(290,272):LINE-(291,271):LINE-(293,271):LINE-(302,265):LINE-(309,256):LINE-(310,250):LINE-(316,247):LINE-(318,239):LINE-(316,236):LINE-(334,221):LINE-(332,219):LINE-(333,214):LINE-(334,211):LINE-(334,209)
106 LINE(334,209)-(330,203):LINE-(330,198):LINE-(329,196):LINE-(336,186):LINE-(339,186):LINE-(341,183):LINE-(343,179):LINE-(355,169):LINE-(365,152):LINE-(364,151):LINE-(364,148):LINE-(361,148):LINE-(358,151):LINE-(356,151):LINE-(348,152):LINE-(344,152)
107 LINE(344,152)-(344,150):LINE-(340,150):LINE-(342,148):LINE-(334,138):LINE-(332,138):LINE-(332,136):LINE-(329,130):LINE-(326,130):LINE-(326,120):LINE-(321,117):LINE-(321,113):LINE-(313,100):LINE-(314,100):LINE-(318,104):LINE-(318,100):LINE-(316,96)
108 LINE(355,215)-(355,219):LINE-(351,219):LINE-(351,223):LINE-(342,226):LINE-(340,232):LINE-(340,237):LINE-(337,242):LINE-(336,245):LINE-(337,250):LINE-(339,252):LINE-(345,250):LINE-(350,240):LINE-(354,228):LINE-(354,226):LINE-(355,224):LINE-(357,228)
109 LINE(357,228)-(358,226):LINE-(357,217):LINE-(355,215)
110 IF TITLE>0 THEN 264
160 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)
161 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)
162 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)
163 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)
164 PSET(212,121):PSET(213,121):PSET(216,121):PSET(217,121)
165 PSET(205,124):PSET(222,124):PSET(205,125):PSET(222,125):PSET(205,126):PSET(209,126):PSET(210,126)
166 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)
167 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)
168 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)
169 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)
170 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)
171 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)
172 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)
173 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)
174 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)
175 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)
176 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)
177 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)
178 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)
179 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)
180 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)
181 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)
182 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)
183 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)
184 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)
185 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)
186 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)
187 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)
188 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)
189 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)
190 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)
191 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)
192 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)
193 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)
194 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)
195 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)
196 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)
197 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)
198 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)
199 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)
200 PSET(290,148):PSET(289,148):PSET(288,148):PSET(287,148):PSET(286,147)
233 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)
235 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)
236 PSET(401,272):PSET(401,273):PSET(400,274):PSET(402,271):PSET(402,272):PSET(383,273)
237 GOSUB 370
240 LINE(145,260)-(145,232):LINE-(147,230):LINE-(153,230):LINE-(155,232):LINE-(155,260):LINE(145,240)-(155,240)
241 LINE(158,230)-(158,260):LINE-(168,260):LINE(171,230)-(171,260):LINE-(181,260)
242 LINE(188,260)-(188,232):LINE-(190,230):LINE-(196,230):LINE-(198,232):LINE-(198,260):LINE(188,240)-(198,240)
243 LINE(201,260)-(201,230):LINE-(209,230):LINE-(211,232):LINE-(211,243):LINE-(209,245):LINE-(201,245):LINE(209,245)-(211,247):LINE-(211,258):LINE-(209,260):LINE-(201,260)
244 LINE(214, 258)-(214,232):LINE-(216,230):LINE-(222,230):LINE-(224,232):LINE-(224,258):LINE-(222,260):LINE-(216,260):LINE-(214,258)
245 LINE(227,230)-(227,258):LINE-(229,260):LINE-(234,260):LINE-(236,258):LINE(237,230)-(237,260)
246 LINE(245,230)-(245,260):LINE(240,230)-(250,230)
248 LINE(360,260)-(360,232):LINE-(362,230):LINE-(368,230):LINE-(370,232):LINE-(370,260):LINE(360,240)-(370,240)
249 LINE(373,260)-(373,230):LINE-(383,230):LINE(373,240)-(380,240)
250 LINE(386,260)-(386,230):LINE-(394,230):LINE-(396,232):LINE-(396,243):LINE-(394,245):LINE-(386,245):LINE(393,245)-(396,260)
251 LINE (399,230)-(399,260)
252 LINE (412,258)-(410,260):LINE-(405,260):LINE-(403,258):LINE-(403,232):LINE-(405,230):LINE-(410,230):LINE-(412,232)
253 LINE (415,260)-(415,232):LINE-(417,230):LINE-(423,230):LINE-(425,232):LINE-(425,260):LINE(415,240)-(425,240)
260 FOR DLAY=1 TO 5000:NEXT DLAY
261 CLS
262 TITLE=1:GOTO 100
264 GET (180,70)-(390,280),A
270 CLS:PRINT"":PRINT""
271 INPUT" Please type in and ENTER your name"; NOMEN$
272 PRINT""
273 PRINT" Are you a BOY (1), or a GIRL (2) ?"
274 SEX$=""
275 SEX$=INKEY$
276 IF SEX$="1" THEN PN$="HE":GOTO 290
277 IF SEX$="2" THEN PN$="SHE":GOTO 290
278 GOTO 274
290 CLS
300 PRINT"":PRINT""
305 PRINT" At which level do you want to play?":PRINT""
310 PRINT,"0) SURVEY LEVEL, uses MOUSE to input choice of answer."
311 PRINT," (Recommended for first few times through.)
315 PRINT,"1) LEARNER LEVEL, shows choices, but you must type answer in."
320 PRINT,"2) STUDY LEVEL, does not show choices unless asked."
325 PRINT,"3) GRADE LEVEL, calculates your percentage for a grade. Does NOT"
326 PRINT," ever show the choices; goes on whether you are right or not."
330 L$=""
331 L$=INKEY$
332 IF L$="0" THEN L=0:GOTO 495
333 IF L$="1" THEN L=1:GOTO 495
334 IF L$="2" THEN L=2:GOTO 495
335 IF L$="3" THEN L=3:GOTO 495
340 GOTO 330
345 SOUND F,D
346 FOR DLAY = 1 TO 200*D:NEXT DLAY
347 RETURN
349 WAVE 0,SIN
350 SOUND F,D
352 SOUND 0,1
353 RETURN
355 F=932.3:D=3:GOSUB 349
356 F=880:D=3:GOSUB 350
357 F=698.5:D=4:GOSUB 350
358 F=784:D=3:GOSUB 350
359 F=698.5:D=6:GOSUB 350
360 FOR DLAY = 1 TO 2000:NEXT DLAY
361 RETURN
363 F=784:D=6:GOSUB 349
364 F=523.2:D=4:GOSUB 350
365 F=659.3:D=3:GOSUB 350
366 F=784:D=10:GOSUB 350
367 RETURN
370 F=293.7:D=6:GOSUB 349
371 F=349.2:D=6:GOSUB 350
372 F=440:D=14:GOSUB 350
373 F=293.7:D=6:GOSUB 350
374 F=349.2:D=6:GOSUB 350
375 F=440:D=6:GOSUB 350
376 F=392:D=14:GOSUB 350
377 F=349.2:D=10:GOSUB 350
378 F=293.7:D=6:GOSUB 350
379 F=329.6:D=6:GOSUB 350
380 F=349.2:D=6:GOSUB 350
381 SG=SG+1
382 IF SG=1 THEN 383 ELSE 386
383 F=293.7:D=14:GOSUB 350
384 GOTO 370
386 F=293.7:D=10:GOSUB 350
387 F=261.6:D=10:GOSUB 350
388 F=293.7:D=14:GOSUB 350
389 SG=0:RETURN
390 F=523.2:D=10:GOSUB 350
391 F=440:D=6:GOSUB 350
392 F=440:D=4:GOSUB 350
393 F=0:D=2:GOSUB 350
394 F=440:D=6:GOSUB 350
395 F=440:D=4:GOSUB 350
396 F=392:D=6:GOSUB 350
397 F=440:D=6:GOSUB 350
398 RETURN
400 F=349.2:D=10:GOSUB 350
401 F=293.7:D=10:GOSUB 350
402 F=349.2:D=5:GOSUB 350
403 F=293.7:D=5:GOSUB 350
404 F=261.6:D=5:GOSUB 350
405 F=293.7:D=5:GOSUB 350
406 RETURN
410 F=532.2:D=8:GOSUB 349
411 F=440:D=4:GOSUB 350
412 F=392:D=8:GOSUB 350
413 F=440:D=4:GOSUB 350
414 F=532.2:D=3:GOSUB 350
415 F=466:D=8:GOSUB 350
416 F=440:D=4:GOSUB 350
417 F=392:D=8:GOSUB 350
418 F=349.2:D=4:GOSUB 350
419 F=392:D=4:GOSUB 350
420 F=440:D=8:GOSUB 350
421 F=392:D=4:GOSUB 350
422 F=349.2:D=8:GOSUB 350
423 F=440:D=4:GOSUB 350
424 F=392:D=12:GOSUB 350
425 RETURN
495 R=L
500 CLS
501 PUT (180,70),A
502 LINE(240,100)-(240,80):LINE-(250,100):LINE-(250,80)
503 LINE(210,140)-(215,160):LINE-(218,150):LINE-(221,160):LINE-(226,140)
504 LINE(290,162)-(288,160):LINE-(282,160):LINE-(280,162):LINE-(280,178):LINE-(282,180):LINE-(288,180):LINE-(290,178)
505 LINE(340,170)-(330,170):LINE-(330,150):LINE-(340,150):LINE(330,160)-(337,160)
506 LINE(210,220)-(210,202):LINE-(212,200):LINE-(218,200):LINE-(220,202):LINE-(220,220):LINE(210,207)-(220,207):LINE(223,217)-(223,223)
507 LINE(310,222)-(308,220):LINE-(302,220):LINE-(300,222):LINE-(300,228):LINE-(302,230):LINE-(308,230):LINE-(310,232):LINE-(310,238):LINE-(308,240):LINE-(302,240):LINE-(300,238)
508 LINE (210,250)-(210,232):LINE-(212,230):LINE-(218,230):LINE-(220,232):LINE-(220,250):LINE(210,237)-(220,237):LINE(223,247)-(225,247):LINE-(226,248):LINE-(226,250):LINE-(223,253):LINE-(226,253)
516 GET (180,70)-(370,280),B
517 PRINT" THERE WILL BE SEVEN REGIONS TO STUDY--TWO WHOLE AREA ONES"
519 PRINT " OR THE SEPARATE REGIONS IDENTIFIED BY LETTERS."
520 GOSUB 390
523 FOR DLAY=1 TO 2000:NEXT DLAY
525 CLS
530 PUT (180,70),B
535 PRINT "YOU MAY CHOOSE AN AREA TO DO BY PLACING THE MOUSE ARROW OVER THE"
537 PRINT "LETTER FOR AN AREA AND CLICKING THE BUTTON A MOMENT."
538 GOSUB 390
539 FOR DLAY=1 TO 2000:NEXT DLAY
540 CLS
541 PUT (180,70),B
542 PRINT"TO GET THE WHOLE AREA IN GENERAL, CLICK EITHER LETTER 'A' "
543 PRINT "IN THE SPACE WEST OF AFRICA."
544 GOSUB 400
545 FOR DLAY = 1 TO 2000:NEXT DLAY
550 CLS
551 PUT (180,70),B
553 PRINT "CHOOSE YOUR AREA NOW.":GOSUB 400
555 B=0
557 B=MOUSE(0)
559 IF B<>-1 THEN 555
560 CHX=MOUSE(1)
562 CHY=MOUSE(2)
570 IF CHX>210 AND CHX<225 AND CHY>200 AND CHY<220 THEN 1000
571 IF CHX>210 AND CHX<225 AND CHY>225 AND CHY<250 THEN 572 ELSE 573
572 BUBU=1 :GOTO 1000
573 IF CHX>240 AND CHX<255 AND CHY>75 AND CHY<100 THEN 3000
574 IF CHX>210 AND CHX<250 AND CHY>135 AND CHY<160 THEN 4000
576 IF CHX>280 AND CHX<295 AND CHY>155 AND CHY<180 THEN 5000
578 IF CHX>330 AND CHX<345 AND CHY>145 AND CHY<170 THEN 6000
580 IF CHX>300 AND CHX< 315 AND CHY>215 AND CHY<240 THEN 7000
590 CLS
591 PRINT"":PRINT"":PRINT"": BEEP
593 PRINT " YOU WERE NOT CAREFUL ENOUGH TO HAVE THE ARROW RIGHT ON"
594 PRINT " ONE OF THE LETTERS. YOU ARE BEING SENT BACK TO TRY AGAIN."
595 PRINT"":PRINT"": BEEP
596 PRINT " PLEASE TAKE CARE THIS TIME TO BE RIGHT ON A LETTER ."
598 FOR DLAY=1 TO 5000:NEXT DLAY
599 GOTO 550
600 CLS
601 IF L=3 THEN 625
602 PRINT"":PRINT"AT THIS TIME YOU HAVE THREE CHOICES"
604 PRINT""
605 PRINT " 1. YOU MAY GO BACK AND REVIEW THOSE YOU GOT WRONG,"
606 PRINT " 2. YOU MAY GO ON TO ANOTHER SECTION, OR"
607 PRINT " 3. YOU MAY QUIT.":GOSUB 410
608 PRINT"":PRINT" IF YOU CHOOSE TO GO BACK AND REVIEW THOSE YOU GOT WRONG,"
609 PRINT " THAT IS EXACTLY WHAT WILL HAPPEN--THOSE YOU GOT WRONG (OR"
610 PRINT " THOSE YOU ASKED FOR HELP ON ON LEVEL 2) WILL BE PRESENTED AGAIN,"
611 PRINT " AND ONLY THOSE, FOR YOU TO TRY AGAIN. YOU WON'T HAVE TO DO THOSE"
612 PRINT " YOU ALREADY KNOW OVER. COMING RIGHT BACK TO HERE MEANS YOU NO"
613 PRINT " LONGER HAVE ANY WRONG."
613 PRINT " IF YOU CHOOSE TO GO ON TO ANOTHER SECTION, YOU WILL BE SENT BACK"
614 PRINT " TO THE CHOOSE A SECTION MAP, TO GO ON FROM THERE."
615 PRINT " IF YOU CHOOSE QUIT, YOU WILL BE SENT TO THE END OF THE PROGRAM."
616 PRINT"":PRINT "MAKE YOUR CHOICE BY TYPING IN 1,2, OR 3.":GOSUB 410
617 CHC$=""
618 CHC$=INKEY$
619 IF CHC$ = "1" THEN RETURN
620 IF CHC$ = "2" THEN 550
621 IF CHC$ = "3" THEN 19000
622 GOTO 617
625 CLS:PRINT"":PRINT" OKAY, "NOMEN$"
627 PRINT" IF YOU DID WELL ENOUGH TO EARN A GRADE ON THIS THAT YOU WOULD "
628 PRINT" ACTUALLY WANT TO HAVE, CONSIDERING THAT YOU GET ONLY ONE "
629 PRINT" GRADE FOR EACH SECTION AND THAT YOU MIGHT BE ABLE TO GO "
630 PRINT" BACK AND STUDY MORE AND GET A BETTER GRADE, GO GET THE TEACHER "
631 PRINT" TO COME AND LOOK AT THIS PERCENTAGE RESULT AND GIVE YOU A"
632 PRINT" GRADE ON THIS.":GOSUB 400
633 PRINT"": PRINT" ** YOUR TOTAL PERCENTAGE WAS:"; SCORE "% **"
634 PRINT" ON SECTION "SECTION$" ."
635 PRINT" AFTER THE GRADE HAS BEEN REPORTED, OR IF YOU CHOOSE NOT TO"
636 PRINT" HAVE THE GRADE REPORTED, YOU MAY EITHER GO ON TO A DIFFERENT"
637 PRINT" SECTION OR QUIT."
638 PRINT" TO GO ON TO A DIFFERENT SECTION, TYPE IN A 2 AND HIT RETURN."
639 PRINT" TO QUIT, TYPE IN A 3 AND HIT RETURN."
640 WWV$=""
641 WWV$=INKEY$
642 IF WWV$="2" THEN 643 ELSE 644
643 MISS=0:GPA=0: GOTO 550
644 IF WWV$="3"THEN 20000
645 GOTO 640
690 FOR H = 1 TO 200
691 CN(H)=0
692 NEXT H
693 RETURN
700 GA=0
701 CLS:GPA=GPA+1
702 PUT (XX,YY),A
703 LINE(X-1,Y-1)-(X-1,Y+12),30:LINE(X,Y-1)-(X+8,Y+7),30:PSET(X+2,9+9),30:LINE(X+1,Y+10)-(X+1,Y+10),30:LINE(X-1,Y+11)-(X,Y+11),30:LINE(X+5,Y+9)-(X+6,Y+9),30:LINE(X+6,Y+8)-(X+7,Y+8),30
704 LINE(X,Y)-(X,Y+11):LINE(X+1,Y+1)-(X+1,Y+10):LINE(X+2,Y+2)-(X+2,Y+9)
705 LINE(X+3,Y+3)-(X+3,Y+10):LINE(X+4,Y+4)-(X+4,Y+12):LINE(X+5,Y+5)-(X+5,Y+9)
706 LINE(X+5,Y+10)-(X+5,Y+14):LINE(X+6,Y+6)-(X+6,Y+8):LINE(X+6,Y+13)-(X+6,Y+16)
707 PSET(X+7,Y+7):LINE(X+7,Y+15)-(X+7,Y+18):LINE(X+8,Y+16)-(X+8,Y+20):LINE(X+9,Y+18)-(X+9,Y+22):LINE(X+10,Y+20)-(X+10,Y+24):LINE(X+11,Y+22)-(X+11,Y+24)
710 IF Z=1 THEN PRINT "WHAT COUNTRY?"
712 IF Z=2 THEN PRINT "WHAT CITY?"
714 IF Z=3 THEN PRINT "WHAT RIVER?"
716 IF Z=4 THEN PRINT "WHAT MOUNTAIN OR MOUNTAIN RANGE?"
718 IF Z=5 THEN PRINT "WHAT BODY OF WATER?"
720 IF Z=6 THEN PRINT"WHAT SPECIAL OR UNUSUAL THING?"
722 IF Z=7 THEN PRINT "WHAT TYPE OF LAND OR CLIMATE?"
724 IF Z=8 THEN PRINT "WHAT KIND OF PRODUCE OR ANIMAL RAISED HERE?"
726 IF Z=9 THEN PRINT "WHAT MINERAL OR OTHER NATURAL RESOURCE?"
728 IF Z=10 THEN PRINT "WHAT ISLAND, PENINSULA, OR OTHER LAND FORM?"
729 IF Z=11 THEN PRINT "WHAT TYPE OF PEOPLE OR TRIBE IS FROM HERE?"
730 IF Z=12 THEN PRINT "WHAT HISTORICAL PLACE WAS HERE?"
731 IF Z=13 THEN PRINT "WHAT HISTORICAL EVENT TOOK PLACE HERE?"
732 IF Z=14 THEN PRINT "IMPORTANT PERSON TO THIS PLACE"
733 IF Z=15 THEN PRINT "WHAT PRODUCT MANUFACTURED HERE?"
734 IF Z=16 THEN PRINT "WHAT IS ITS CAPITAL CITY?"
735 IF Z=17 THEN PRINT "WHAT IMPORTANT CITY?"
736 IF Z=18 THEN PRINT "WHAT COLONY?"
737 IF Z=19 THEN PRINT "COLONY OF WHAT COUNTRY?"
740 IF L>1 THEN GET (1,1)-(480,280),SCR: GOTO 770
742 PRINT C1$:PRINT C2$:PRINT C3$
743 GET (1,1)-(480,280),SCR
744 IF L>0 THEN 770
745 B=0
746 B=MOUSE(0)
748 IF B<>-1 THEN 746
749 WRDX=MOUSE(1)
750 WRDY=MOUSE(2)
752 IF WRDX<100 THEN 754 ELSE 745
754 IF WRDY<32 AND WRDY>16 THEN BARY=16
755 IF WRDY >=32 AND WRDY <=48 THEN BARY=32
756 IF WRDY>48 AND WRDY<65 THEN BARY=48
758 GET (1,BARY)-(200, BARY+16),ANSY
759 LINE (1,BARY)-(200,BARY+16),33,BF
760 PUT (1,BARY),ANSY
761 FOR DLAY=1 TO 5000:NEXT DLAY
762 IF ANS=1 THEN ANSQ=16
763 IF ANS=2 THEN ANSQ=32
764 IF ANS=3 THEN ANSQ=48
765 IF ANSQ=BARY THEN 830 ELSE 780
770 PRINT"":PRINT"":PRINT"":PRINT"":PRINT"":PRINT"":PRINT""
771 PRINT"":PRINT"":PRINT"":PRINT"":PRINT"":PRINT""
772 IF L<2 THEN 774 ELSE 773
773 PRINT"":PRINT"":PRINT""
774 INPUT "WHAT DOES THE ARROW POINT TO";AA$
775 IF AA$ = A$ THEN 830
780 CLS
781 PRINT "THAT IS NOT CORRECT--"
782 BEEP:FOR DLAY = 1 TO 500:NEXT DLAY
784 CN(N)=0
785 IF L=3 THEN 816
786 IF L=2 THEN 800
788 PRINT "YOU WILL BE SENT BACK TO TRY AGAIN."
790 FOR DLAY=1 TO 2500:NEXT DLAY
791 CLS:PUT (1,1),SCR
792 GOTO 744
800 PRINT "YOU NOW HAVE THREE CHOICES--"
801 PRINT " 1 = YOU MAY GO BACK AND TRY AGAIN, STRAIGHT"
802 PRINT " 2 = YOU MAY GO BACK AND TRY AGAIN, BUT FIRST"
803 PRINT " THE PROGRAM SHOULD SHOW YOU THE THREE CHOICES."
804 PRINT " 3 = GO ON TO THE NEXT ONE. NOTE--YOU CAN ALWAYS COME"
805 PRINT " BACK TO THE WRONG ONES AT THE END OF A SEQUENCE."
807 GOSUB 390
808 W$=""
809 W$=INKEY$
810 IF W$="1" THEN CLS:PRINT"":PUT (1,1),SCR: GOTO 744
812 IF W$="3" THEN 850
814 IF W$="2" THEN L=1:CLS:PRINT"":PUT (1,1),SCR:GOTO 742
815 GOTO 808
816 MISS=MISS+1
820 DSCORE = (GPA-MISS)/GPA
821 PSCORE = 100*DSCORE
822 SCORE = INT(PSCORE)
823 PRINT"":PRINT"":PRINT "YOUR PRESENT SCORE IS: " SCORE"%."
824 GOSUB 355
826 GOTO 850
830 CLS
840 PRINT"":PRINT"":PRINT " THAT IS CORRECT--"
842 PRINT"":PRINT"":PRINT "YOU WILL NOW BE SENT ON TO THE NEXT ITEM."
843 PRINT"":PRINT"":PRINT"":PRINT""
844 PRINT" CONGRATULATIONS!"
845 IF L=3 THEN 820
846 IF MUS = 355 THEN GOSUB 355
847 IF MUS = 363 THEN GOSUB 363
849 FOR DLAY = 1 TO 2000:NEXT DLAY
850 RETURN
1000 CLS:GOSUB 690
1001 LINE(316,96)-(312,96):LINE-(311,95):LINE-(307,95):LINE-(305,96):LINE-(297,96):LINE-(286,91):LINE-(282,93):LINE-(284,95):LINE-(281,97):LINE-(273,94):LINE-(270,90):LINE-(267,89):LINE-(264,90):LINE-(260,87):LINE-(260,86):LINE-(262,84):LINE-(262,80)
1002 LINE(262,80)-(264,78):LINE-(262,79):LINE-(261,78):LINE-(257,78):LINE-(255,79):LINE-(253,78):LINE-(249,79):LINE-(246,78):LINE-(242,78):LINE-(232,81):LINE-(226,81):LINE-(224,78):LINE-(222,80):LINE-(220,83):LINE-(213,87):LINE-(212,92):LINE-(206,97)
1003 LINE(206,97)-(203,98):LINE-(189,115):LINE-(190,120):LINE-(190,124):LINE-(187,131):LINE-(183,135):LINE-(185,137):LINE-(185,140):LINE-(192,150):LINE-(192,154):LINE-(197,159):LINE-(200,160):LINE-(205,164):LINE-(210,165):LINE-(216,163):LINE-(219,163)
1004 LINE(219,163)-(222,164):LINE-(225,164):LINE-(237,160):LINE-(240,160):LINE-(242,165):LINE-(245,165):LINE-(249,167):LINE-(249,165):LINE-(254,169):LINE-(251,181):LINE-(251,184):LINE-(261,201):LINE-(260,204):LINE-(262,210):LINE-(261,212):LINE-(257,223)
1005 LINE(257,223)-(257,229):LINE-(258,229):LINE-(258,234):LINE-(263,240):LINE-(262,243):LINE-(265,252):LINE-(272,265):LINE-(272,267):LINE-(271,268):LINE-(271,269):LINE-(272,270):LINE-(272,272):LINE-(275,272):LINE-(276,274):LINE-(279,272):LINE-(282,272)
1006 LINE(282,272)-(284,271):LINE-(286,272):LINE-(290,272):LINE-(291,271):LINE-(293,271):LINE-(302,265):LINE-(309,256):LINE-(310,250):LINE-(316,247):LINE-(318,239):LINE-(316,236):LINE-(334,221):LINE-(332,219):LINE-(333,214):LINE-(334,211):LINE-(334,209)
1007 LINE(334,209)-(330,203):LINE-(330,198):LINE-(329,196):LINE-(336,186):LINE-(339,186):LINE-(341,183):LINE-(343,179):LINE-(355,169):LINE-(365,152):LINE-(364,151):LINE-(364,148):LINE-(361,148):LINE-(358,151):LINE-(356,151):LINE-(348,152):LINE-(344,152)
1008 LINE(344,152)-(344,150):LINE-(340,150):LINE-(342,148):LINE-(334,138):LINE-(332,138):LINE-(332,136):LINE-(329,130):LINE-(326,130):LINE-(326,120):LINE-(321,117):LINE-(321,113):LINE-(313,100):LINE-(314,100):LINE-(318,104):LINE-(318,100):LINE-(316,96)
1009 LINE(355,215)-(355,219):LINE-(351,219):LINE-(351,223):LINE-(342,226):LINE-(340,232):LINE-(340,237):LINE-(337,242):LINE-(336,245):LINE-(337,250):LINE-(339,252):LINE-(345,250):LINE-(350,240):LINE-(354,228):LINE-(354,226):LINE-(355,224):LINE-(357,228)
1010 LINE(357,228)-(358,226):LINE-(357,217):LINE-(355,215)
1011 LINE(210,110)-(215,105):LINE-(220,110):LINE(215,104)-(220,99):LINE-(225,104):LINE(220,100)-(225,95):LINE-(230,100):LINE(227,97)-(231,93):LINE-(235,97):LINE(218,124)-(221,127),33,BF:LINE(297,108)-(300,105):LINE-(303,108):LINE-(297,108)
1012 LINE(312,169)-(307,165):LINE-(307,163):LINE-(308,158):LINE-(308,157):LINE-(305,153):LINE-(305,148):LINE-(307,143):LINE-(306,134):LINE-(310,128):LINE-(310,119):LINE-(309,114):LINE-(310,100):LINE-(309,95)
1013 LINE(316,171)-(311,172):LINE-(310,174):LINE-(312,175):LINE-(311,178):LINE-(312,178):LINE-(313,180):LINE-(315,178):LINE-(316,179):LINE-(319,177):LINE-(316,177):LINE-(319,174):LINE-(315,174):LINE-(316,171):LINE(325,170)-(330,165):LINE-(335,170)
1014 PSET(329,166):PSET(331,166):PSET(328,167):PSET(330,167):PSET(332,167):LINE(322,191)-(328,185):LINE-(334,191):PSET (327,186):PSET(329,186):PSET(326,187):PSET(328,187):PSET(330,187)
1015 LINE(270,140)-(267,138):LINE-(264,138):LINE-(263,139):LINE-(264,140):LINE-(267,140):LINE-(268,142):LINE-(269,143):LINE-(270,142):LINE-(270,140)
1016 LINE(202,152)-(201,150):LINE-(204,148):LINE-(212,146):LINE-(216,142):LINE-(216,138):LINE-(214,136):LINE-(214,133):LINE-(221,133):LINE-(229,129):LINE-(237,138):LINE-(241,140):LINE-(242,144):LINE-(240,146):LINE-(246,146):LINE-(248,148):LINE-(248,150)
1017 LINE(248,150)-(248,158):LINE-(247,163):LINE-(244,165)
1018 LINE(304,198)-(302,198):LINE-(301,190):LINE-(297,188):LINE-(297,187):LINE-(292,187):LINE-(292,184):LINE-(291,182):LINE-(289,182):LINE-(285,178):LINE-(281,180):LINE-(275,190):LINE-(271,190):LINE-(268,194):LINE-(260,198)
1019 LINE(307,189)-(308,198):LINE-(311,200):LINE-(311,198):LINE-(310,197):LINE-(310,192):LINE-(309,190):LINE-(307,189):LINE(316,203)-(316,206):LINE-(314,210):LINE-(315,214):LINE-(316,215):LINE-(316,210):LINE-(318,206):LINE-(318,204):LINE-(316,203)
1020 LINE(292,228)-(293,234),33,BF:LINE(283,218)-(286,223):LINE-(286,230):LINE-(288,232):LINE-(290,231):LINE-(292,232):LINE-(295,230):LINE-(298,226):LINE-(300,227):LINE-(306,227):LINE-(312,231):LINE-(318,231):LINE-(320,232)
1021 LINE(287,252)-(293,250):LINE-(294,248):LINE-(295,243):LINE-(300,238):LINE-(302,237):LINE-(306,240):LINE-(310,250)
1022 LINE(300,252)-(298,251):LINE-(289,259):LINE-(287,260):LINE-(286,259):LINE-(283,256):LINE-(282,256):LINE-(278,260):LINE-(276,260):LINE-(272,257):LINE-(271,258):LINE-(269,259)
1023 LINE(222,78)-(225,81),33,BF:LINE(218,85)-(221,88),33,BF:LINE(307,95)-(310,98),33,BF:LINE(314,136)-(317,139),33,BF:LINE(273,268)-(280,271),33,BF:LINE(250,164)-(255,159):LINE-(260,164)
1030 GET (180,70)-(370,280),A
1031 XX=180
1032 YY=70
1033 MUS = 355
1035 IF BUBU=1 GOTO 1352
1037 SECTION$="A1"
1101 IF CN(1)=1 THEN 1111
1102 CN(1)=1:X=308:Y=130:Z=3:L=R:GA=1:ANS=3:N=1
1103 C1$="NIGER RIVER":C2$="COLUMBIA RIVER":C3$="NILE RIVER"
1106 A$="NILE RIVER"
1107 GOSUB 700
1111 IF CN(2)=1 THEN 1121
1112 CN(2)=1:N=2:X=280:Y=182:Z=3:L=R:GA=1:ANS=2
1113 C1$="LIMPOPO RIVER":C2$="CONGO RIVER":C3$="ZAMBEZI RIVER"
1116 A$="CONGO RIVER"
1117 GOSUB 700
1121 IF CN(3)=1 THEN 1131
1122 CN(3)=1:N=3:X=221:Y=127:Z=2:L=R:GA=1:ANS=1
1123 C1$="TOMBOUCTOU":C2$="ALEXANDRIA":C3$="OUAGADOUGOU"
1126 A$="TOMBOUCTOU"
1127 GOSUB 700
1131 IF CN(4)=1 THEN 1141
1132 CN(4)=1:N=4:X=220:Y=100:Z=4:L=R:GA=1:ANS=3
1133 C1$="TARTAR MOUNTAINS":C2$="RUB AL K'HALI MOUNTAINS":C3$="ATLAS MOUNTAINS"
1136 A$="ATLAS MOUNTAINS"
1137 GOSUB 700
1141 IF CN(5)=1 THEN 1151
1142 CN(5)=1:N=5:X=300:Y=108:Z=6:L=R:GA=1:ANS=2
1143 C1$="PHAROAH'S LIGHTHOUSE":C2$="PYRAMIDS":C3$="ASWAN DAM"
1146 A$="PYRAMIDS"
1147 GOSUB 700
1151 IF CN(6)=1 THEN 1161
1152 CN(6)=1:N=6:X=292:Y=258:Z=3:L=R:GA=1:ANS=2
1153 C1$="LIMPOPO RIVER":C2$="ORANGE RIVER":C3$="ZAMBEZI RIVER"
1156 A$="ORANGE RIVER"
1157 GOSUB 700
1161 IF CN(7)=1 THEN 1171
1162 CN(7)=1:N=7:X=316:Y=178:Z=5:L=R:GA=1:ANS=1
1163 C1$="LAKE VICTORIA":C2$="LAKE STANLEY":C3$="KAUNDA LAKE"
1166 A$="LAKE VICTORIA"
1167 GOSUB 700
1171 IF CN(8)=1 THEN 1181
1172 CN(8)=1:N=8:X=332:Y=130:Z=5:L=R:GA=1:ANS=3
1173 C1$="PERSIAN GULF":C2$="GULF OF AQABA":C3$="RED SEA"
1176 A$="RED SEA"
1177 GOSUB 700
1181 IF CN(9)=1 THEN 1191
1182 CN(9)=1:N=9:X=310:Y=120:Z=6:L=R:GA=1:ANS=1
1183 C1$="ASWAN DAM":C2$="CRATERS OF THE MOON PARK":C3$="TEMPLE OF KHARNAK"
1186 A$="ASWAN DAM"
1187 GOSUB 700
1191 IF CN(10)=1 THEN 1201
1192 CN(10)=1:N=10:X=330:Y=170:Z=4:L=R:GA=1:ANS=3
1193 C1$="MOUNT SURIBACHI":C2$="MOUNT KOSCIUSKO":C3$="MOUNT KENYA"
1196 A$="MOUNT KENYA"
1197 GOSUB 700
1201 IF CN(11)=1 THEN 1211
1202 CN(11)=1:N=11:X=280:Y=240:Z=7:L=R:GA=1:ANS=2
1203 C1$="ORANGE RAIN FOREST":C2$="KALAHARI DESERT":C3$="NAMIBIAN FORESTS"
1206 A$="KALAHARI DESERT"
1207 GOSUB 700
1211 IF CN(12)=1 THEN 1221
1212 CN(12)=1:N=12:X=310:Y=200:Z=5:L=R:GA=1:ANS=2
1213 C1$="LAKE NAIROBI":C2$="LAKE TANGANYIKA":C3$="LAKE NYASA"
1216 A$="LAKE TANGANYIKA"
1217 GOSUB 700
1221 IF CN(13)=1 THEN 1231
1222 CN(13)=1:N=13:X=285:Y=240:Z=14:L=R:GA=1:ANS=1
1223 C1$="CECIL RHODES":C2$="DR.DAVID LIVINGSTONE":C3$="HENRY MORTON STANLEY"
1226 A$="CECIL RHODES"
1227 GOSUB 700
1231 IF CN(14)=1 THEN 1241
1232 CN(14)=1:N=14:X=300:Y=238:Z=3:L=R:GA=1:ANS=3
1233 C1$="ZAMBEZI RIVER":C2$="VAAL RIVER":C3$="LIMPOPO RIVER"
1236 A$="LIMPOPO RIVER"
1237 GOSUB 700
1241 IF CN(15)=1 THEN 1251
1242 CN(15)=1:N=15:X=316:Y=100:Z=10:L=R:GA=1:ANS=2
1243 C1$="SUEZ PENINSULA":C2$="SINAI PENINSULA":C3$="HARNEY BASIN"
1246 A$="SINAI PENINSULA"
1247 GOSUB 700
1251 IF CN(16)=1 THEN 1261
1252 CN(16)=1:N=16:X=180:Y=120:Z=5:L=R:GA=1:ANS=3
1253 C1$="PACIFIC OCEAN":C2$="MEDITERRANEAN SEA":C3$="ATLANTIC OCEAN"
1256 A$="ATLANTIC OCEAN"
1257 GOSUB 700
1261 IF CN(17)=1 THEN 1271
1262 CN(17)=1:N=17:X=235:Y=165:Z=5:L=R:GA=1:ANS=1
1263 C1$="GULF OF GUINEA":C2$="GULF OF NIGERIA":C3$="GREAT AFRICAN BIGHT"
1266 A$="GULF OF GUINEA"
1267 GOSUB 700
1271 IF CN(18)=1 THEN 1281
1272 CN(18)=1:N=18:X=265:Y=90:Z=12:L=R:GA=1:ANS=2
1273 C1$="CARTHAGE":C2$="SHORES OF TRIPOLI":C3$="EL ALAMEIN"
1276 A$="SHORES OF TRIPOLI"
1277 GOSUB 700
1281 IF CN(19)=1 THEN 1291
1282 CN(19)=1:N=19:X=350:Y=240:Z=10:L=R:GA=1:ANS=1
1283 C1$="MADAGASCAR":C2$="MOZAMBIQUE":C3$="MANAGUA"
1286 A$="MADAGASCAR"
1287 GOSUB 700
1291 IF CN(20)=1 THEN 1301
1292 CN(20)=1:N=20:X=220:Y=133:Z=3:L=R:GA=1:ANS=2
1293 C1$="GUINEA RIVER":C2$="NIGER RIVER":C3$="SENEGAL RIVER"
1296 A$="NIGER RIVER"
1297 GOSUB 700
1301 IF CN(21)=1 THEN 1311
1302 CN(21)=1:N=21:X=272:Y=272:Z=10:L=R:GA=1:ANS=3
1303 C1$="WALVIS BAY":C2$="PURVIS PENINSULA":C3$="CAPE OF GOOD HOPE"
1306 A$="CAPE OF GOOD HOPE"
1307 GOSUB 700
1311 IF CN(22)=1 THEN 1321
1312 CN(22)=1:N=22:X=272:Y=272:Z=14:L=R:GA=1:ANS=3
1313 C1$="CAPT. GEORGE PURVIS":C2$="DR. DAVID LIVINGSTONE":C3$="BARTHOLOMEW DIAS"
1316 A$="BARTHOLOMEW DIAS"
1317 GOSUB 700
1321 IF CN(23)=1 THEN 1331
1322 CN(23)=1:N=23:X=328:Y=190:Z=4:L=R:GA=1:ANS=2
1323 C1$="MOUNT KENYA":C2$="MOUNT KILIMANJARO":C3$="MOUNT CAMEROON"
1326 A$="MOUNT KILIMANJARO"
1327 GOSUB 700
1331 IF CN(24)=1 THEN 1341
1332 CN(24)=1:N=24:X=300:Y=228:Z=3:L=R:GA=1:ANS=3
1333 C1$="LIMPOPO RIVER":C2$="CONGO RIVER":C3$="ZAMBEZI RIVER"
1336 A$="ZAMBEZI RIVER"
1337 GOSUB 700
1341 IF CN(25)=1 THEN 1350
1342 CN(25)=1:N=25:X=317:Y=216:Z=5:L=R:GA=1:ANS=2
1343 C1$="LAKE TANGANYIKA":C2$="LAKE NYASA":C3$="LAKE VICTORIA"
1346 A$="LAKE NYASA"
1347 GOSUB 700
1350 GOSUB 600
1351 GOTO 1101
1352 BUBU=0:SECTION$="A2":MUS = 355:IF CN(26)=1 THEN 1361
1353 CN(26)=1:N=26:X=305:Y=204:Z=14:L=R:GA=1:ANS=1
1354 C1$="DR. DAVID LIVINGSTONE":C2$="CECIL RHODES":C3$="KING SHAKA"
1357 A$="DR. DAVID LIVINGSTONE"
1358 GOSUB 700
1361 IF CN(27)=1 THEN 1371
1362 CN(27)=1:N=27:X=285:Y=264:Z=13:L=R:GA=1:ANS=2
1363 C1$="FIRST BATTLE OF WW II IN AFRICA":C2$="BOER WAR":C3$="DISCOVERY OF INDIA"
1366 A$="BOER WAR"
1367 GOSUB 700
1371 IF CN(28)=1 THEN 1381
1372 CN(28)=1:N=28:X=262:Y=80:Z=12:L=R:GA=1:ANS=3
1373 C1$="ISRAELITES WANDERED HERE":C2$="LIBRARY OF ALEXANDRIA":C3$="ANCIENT CARTHAGE"
1376 A$="ANCIENT CARTHAGE"
1377 GOSUB 700
1381 IF CN(29)=1 THEN 1391
1382 CN(29)=1:N=29:X=215:Y=68:Z=12:L=R:GA=1:ANS=1
1383 C1$="PILLARS OF HERCULES":C2$="ANCIENT 'END OF THE WORLD'":C3$="HOME OF ATLAS"
1386 A$="PILLARS OF HERCULES"
1387 GOSUB 700
1391 IF CN(30)=1 THEN 1401
1392 CN(30)=1:N=30:X=332:Y=198:Z=10:L=R:GA=1:ANS=3
1393 C1$="SEYCHELLES ISLAND":C2$="PITCAIRN ISLAND":C3$="ZANZIBAR"
1396 A$="ZANZIBAR"
1399 GOSUB 700
1401 IF CN(31)=1 THEN 1411
1402 CN(31)=1:N=31:X=269:Y=143:Z=5:L=R:GA=1:ANS=2
1403 C1$="LAKE CAMEROON":C2$="LAKE CHAD":C3$="LAKE NYASA"
1406 A$="LAKE CHAD"
1407 GOSUB 700
1411 IF CN(32)=1 THEN 1421
1412 CN(32)=1:N=32:X=390:Y=200:Z=5:L=R:GA=1:ANS=3
1413 C1$="GULF OF ARABIA":C2$="PERSIAN GULF":C3$="INDIAN OCEAN"
1416 A$="INDIAN OCEAN"
1417 GOSUB 700
1421 IF CN(33)=1 THEN 1431
1422 CN(33)=1:N=33:X=270:Y=150:Z=7:L=R:GA=1:ANS=2
1423 C1$="TROPICAL RAINFOREST":C2$="TROPICAL SAVANNAH":C3$="DESERT"
1426 A$="TROPICAL SAVANNAH"
1427 GOSUB 700
1431 IF CN(34)=1 THEN 1441
1432 CN(34)=1:N=34:X=315:Y=139:Z=2:L=R:GA=1:ANS=1
1433 C1$="KHARTOUM":C2$="ADDIS ABABA":C3$="MEMPHIS"
1436 A$="KHARTOUM"
1437 GOSUB 700
1441 IF CN(35)=1 THEN 1451
1442 CN(35)=1:N=35:X=305:Y=175:Z=10:L=R:GA=1:ANS=2
1443 C1$="WESTERN STEPPES":C2$="WESTERN RIFT VALLEY":C3$="WESTERN MOUNTAINS"
1446 A$="WESTERN RIFT VALLEY"
1447 GOSUB 700
1451 IF CN(36)=1 THEN 1461
1452 CN(36)=1:N=36:X=275:Y=175:Z=7:L=R:GA=1:ANS=1
1453 C1$="TROPICAL RAINFOREST":C2$="TROPICAL SAVANNAH":C3$="DESERT"
1456 A$="TROPICAL RAINFOREST"
1457 GOSUB 700
1461 IF CN(37)=1 THEN 1471
1462 CN(37)=1:N=37:X=308:Y=98:Z=2:L=R:GA=1:ANS=3
1463 C1$="CAIRO":C2$="MEMPHIS":C3$="ALEXANDRIA"
1466 A$="ALEXANDRIA"
1467 GOSUB 700
1471 IF CN(38)=1 THEN 1481
1472 CN(38)=1:N=38:X=335:Y=230:Z=5:L=R:GA=1:ANS=1
1473 C1$="MOZAMBIQUE CHANNEL":C2$="MADAGASCAR CHANNEL":C3$="STRAIT OF BARTHOLOMEW DIAS"
1476 A$="MOZAMBIQUE CHANNEL"
1477 GOSUB 700
1481 IF CN(39)=1 THEN 1491
1482 CN(39)=1:N=39:X=224:Y=82:Z=2:L=R:GA=1:ANS=1
1483 C1$="TANGER":C2$="CASABLANCA":C3$="EL ALAMEIN"
1486 A$="TANGER"
1487 GOSUB 700
1491 IF CN(40)=1 THEN 1501
1492 CN(40)=1:N=40:X=220:Y=88:Z=2:L=R:GA=1:ANS=2
1493 C1$="TANGER":C2$="CASABLANCA":C3$="EL ALAMEIN"
1496 A$="CASABLANCA"
1497 GOSUB 700
1501 IF CN(41)=1 THEN 1511
1502 CN(41)=1:N=41:X=290:Y=210:Z=7:L=R:GA=1:ANS=2
1503 C1$="TROPICAL RAINFOREST":C2$="TROPICAL SAVANNAH":C3$="DESERT"
1506 A$="TROPICAL SAVANNAH"
1507 GOSUB 700
1511 IF CN(42)=1 THEN 1521
1512 CN(42)=1:N=42:X=285:Y=265:Z=9:L=R:GA=1:ANS=1
1513 C1$="CHROMIUM":C2$="OIL":C3$="IRON"
1516 A$="CHROMIUM"
1517 GOSUB 700
1521 IF CN(43)=1 THEN 1531
1522 CN(43)=1:N=43:X=280:Y=70:Z=5:L=R:GA=1:ANS=1
1523 C1$="MEDITERRANEAN SEA":C2$="RED SEA":C3$="INDIAN OCEAN"
1526 A$="MEDITERRANEAN SEA"
1527 GOSUB 700
1531 IF CN(44)=1 THEN 1541
1532 CN(44)=1:N=44:X=330:Y=160:Z=8:L=R:GA=1:ANS=2
1533 C1$="BANANAS":C2$="COFFEE":C3$="INCENSE"
1536 A$="COFFEE"
1537 GOSUB 700
1541 IF CN(45)=1 THEN 1551
1542 CN(45)=1:N=45:X=293:Y=233:Z=6:L=R:GA=1:ANS=3
1543 C1$="WORLD'S LARGEST DIAMOND":C2$="HUGE URANIUM MINE":C3$="VICTORIA FALLS"
1546 A$="VICTORIA FALLS"
1547 GOSUB 700
1551 IF CN(46)=1 THEN 1561
1552 CN(46)=1:N=46:X=255:Y=164:Z=4:L=R:GA=1:ANS=2
1553 C1$="MOUNT KILIMANJARO":C2$="MOUNT CAMEROON":C3$="MOUNT CONGO"
1556 A$="MOUNT CAMEROON"
1557 GOSUB 700
1561 IF CN(47)=1 THEN 1571
1562 CN(47)=1:N=47:X=325:Y=165:Z=10:L=R:GA=1:ANS=3
1563 C1$="EASTERN MOUNTAINS":C2$="EASTERN GORGE":C3$="EASTERN RIFT VALLEY"
1566 A$="EASTERN RIFT VALLEY"
1567 GOSUB 700
1571 IF CN(48)=1 THEN 1581
1572 CN(48)=1:N=48:X=318:Y=175:Z=10:L=R:GA=1:ANS=2
1573 C1$="KALAHARI DESERT":C2$="SERENGETI PLAIN":C3$="CENTRAL RIFT VALLEY"
1576 A$="SERENGETI PLAIN"
1577 GOSUB 700
1581 IF CN(49)=1 THEN 1591
1582 CN(49)=1:N=49:X=308:Y=110:Z=11:L=R:GA=1:ANS=1
1583 C1$="LAND OF THE PHAROAHS":C2$="ABRAHAM'S HOMELAND":C3$="BIRTHPLACE OF MOHAMMED"
1586 A$="LAND OF THE PHAROAHS"
1587 GOSUB 700
1591 IF CN(50)=1 THEN 1601
1592 CN(50)=1:N=50:X=290:Y=140:Z=10:L=R:GA=1:ANS=2
1593 C1$="KALAHARI DESERT":C2$="KORDOFAN PLATEAU":C3$="CENTRAL RIFT VALLEY"
1596 A$="KORDOFAN PLATEAU"
1597 GOSUB 700
1601 IF CN(51)=1 THEN 1611
1602 CN(51)=1:N=51:X=280:Y=190:Z=11:L=R:GA=1:ANS=2
1603 C1$="BANTU":C2$="PYGMY":C3$="MASAI"
1606 A$="PYGMY"
1607 GOSUB 700
1611 GOSUB 600
1612 GOTO 1352
3000 CLS:GOSUB 690
3001 LINE(394,173)-(394,170):LINE-(392,167):LINE-(388,164):LINE-(387,162):LINE-(386,157):LINE-(373,135):LINE-(379,142):LINE-(380,140):LINE-(380,137):LINE-(382,134):LINE-(378,128):LINE-(374,129):LINE-(372,128):LINE-(369,128):LINE-(366,126):LINE-(363,126)
3002 LINE-(360,129):LINE-(350,128):LINE-(345,127):LINE-(343,128):LINE-(342,126):LINE-(337,125):LINE-(335,124):LINE-(334,122):LINE-(331,122):LINE-(329,121):LINE-(324,123):LINE-(324,132):LINE-(320,132):LINE-(316,130):LINE-(310,128):LINE-(307,128)
3003 LINE-(305,123):LINE-(300,123):LINE-(298,122):LINE-(295,120):LINE-(291,120):LINE-(289,117):LINE-(286,117):LINE-(286,115):LINE-(292,111):LINE-(289,108):LINE-(289,107):LINE-(292,105):LINE-(291,103):LINE-(289,104):LINE-(286,102):LINE-(283,104)
3004 LINE-(273,104):LINE-(270,105):LINE-(266,103):LINE-(264,103):LINE-(260,104):LINE-(252,104):LINE-(248,107):LINE-(245,107):LINE-(241,110):LINE-(239,108):LINE-(234,110):LINE-(233,110):LINE-(230,106):LINE-(228,106):LINE-(225,111):LINE-(216,116)
3005 LINE-(212,119):LINE-(212,123):LINE-(210,126):LINE-(210,130):LINE-(204,134):LINE-(198,138):LINE-(194,140):LINE-(192,144):LINE-(187,146):LINE-(184,152):LINE-(174,166):LINE-(173,169):LINE-(175,169):LINE-(176,172):LINE-(174,177):LINE-(176,178)
3006 LINE-(176,182):LINE-(171,194)
3007 LINE(173,189)-(183,189):LINE-(188,196):LINE-(191,196):LINE-(194,192):LINE-(194,195):LINE-(197,196):LINE-(201,194):LINE-(204,197):LINE-(216,197):LINE-(218,195):LINE-(221,175):LINE-(218,162):LINE-(218,154):LINE-(224,154)
3008 LINE(173,168)-(190,168):LINE-(190,160):LINE-(196,157):LINE-(196,147):LINE-(210,147):LINE-(210,142):LINE-(193,142)
3009 LINE(243,109)-(243,115):LINE-(242,117):LINE-(244,123):LINE-(236,123):LINE-(232,130):LINE-(228,130):LINE-(222,132):LINE-(217,132):LINE-(214,134):LINE-(212,136):LINE-(212,142):LINE-(248,172):LINE-(248,174):LINE-(254,175):LINE-(256,180):LINE-(260,180)
3010 LINE(260,190)-(260,180):LINE-(261,180):LINE-(292,163):LINE-(290,160):LINE-(288,160):LINE-(286,156):LINE-(283,156):LINE-(281,150):LINE-(285,144):LINE-(285,132):LINE-(282,128):LINE-(282,125):LINE-(278,118):LINE-(278,114):LINE-(279,114):LINE-(281,104)
3011 LINE(292,120)-(288,126):LINE-(285,128):LINE-(284,132)
3012 LINE(292,163)-(298,166):LINE-(302,166):LINE-(310,159):LINE-(340,183):LINE-(340,176):LINE-(344,176):LINE-(344,150):LINE-(342,137):LINE-(342,127)
3013 LINE(344,168)-(392,167)
3036 GET (140,100)-(400,200),A
3037 CLS
3040 XX=140
3045 YY=100
3050 SECTION$="N"
3051 MUS = 363
3101 IF CN(1)=1 THEN 3111
3102 CN(1)=1:N=1:X=284:Y=120:Z=1:L=R:GA=1:ANS=2
3103 C1$="ALGERIA":C2$="TUNISIA":C3$="LIBYA"
3106 A$="TUNISIA"
3107 GOSUB 700
3111 IF CN(2)=1 THEN 3121
3112 CN(2)=1:N=2:X=290:Y=104:Z=16:L=R:GA=1:ANS=3
3113 C1$="TRIPOLI":C2$="CARTHAGE":C3$="TUNIS"
3116 A$="TUNIS"
3117 GOSUB 700
3121 IF CN(3)=1 THEN 3131
3122 CN(3)=1:N=3:X=286:Y=104:Z=17:L=R:GA=1:ANS=3
3123 C1$="GABES":C2$="NABUL":C3$="BIZERTE"
3126 A$="BIZERTE"
3127 GOSUB 700
3131 IF CN(4)=1 THEN 3141
3132 CN(4)=1:N=4:X=288:Y=112:Z=7:L=R:GA=1:ANS=1
3133 C1$="MEDITERRANEAN":C2$="DESERT":C3$="RAIN FOREST"
3136 A$ = "MEDITERRANEAN"
3137 GOSUB 700
3141 IF CN(5)=1 THEN 3151
3142 CN(5)=1:N=5:X=288:Y=112:Z=9:L=R:GA=1:ANS=2
3143 C1$="GOLD":C2$="PHOSPHATES":C3$="COAL"
3146 A$="PHOSPHATES"
3147 GOSUB 700
3151 IF CN(6)=1 THEN 3161
3152 CN(6)=1:N=6:X=220:Y=125:Z=1:L=R:GA=1:ANS=2
3153 C1$="WESTERN SAHARA":C2$="MOROCCO":C3$="TANGIERS"
3156 A$="MOROCCO"
3157 GOSUB 700
3161 IF CN(7)=1 THEN 3171
3162 CN(7)=1:N=7:X=220:Y=115:Z=16:L=R:GA=1:ANS=3
3163 C1$="TANGIERS":C2$="CASABLANCA":C3$="RABAT"
3166 A$="RABAT"
3167 GOSUB 700
3171 IF CN(8)=1 THEN 3181
3172 CN(8)=1:N=8:X=230:Y=113:Z=17:L=R:GA=1:ANS=2
3173 C1$="CASABLANCA":C2$="FES":C3$="MARRAKESH"
3176 A$="FES"
3177 GOSUB 700
3181 IF CN(9)=1 THEN 3191
3182 CN(9)=1:N=9:X=214:Y=126:Z=17:L=R:GA=1:ANS=3
3183 C1$="THE CASBAH":C2$="TANGIERS":C3$="MARRAKECH"
3186 A$="MARRAKECH"
3187 GOSUB 700
3191 IF CN(10)=1 THEN 3201
3192 CN(10)=1:N=10:X=225:Y=125:Z=4:L=R:GA=1:ANS=1
3193 C1$="ATLAS MOUNTAINS":C2$="HAMADA DU DRA":C3$="MOROCCAN MOUNTAINS"
3196 A$="ATLAS MOUNTAINS"
3197 GOSUB 700
3201 IF CN(11)=1 THEN 3211
3202 CN(11)=1:N=11:X=212:Y=130:Z=8:L=R:GA=1:ANS=3
3203 C1$="GRAPES":C2$="OLIVES":C3$="CEREAL GRAINS"
3206 A$="CEREAL GRAINS"
3207 GOSUB 700
3211 IF CN(12)=1 THEN 3221
3212 CN(12)=1:N=12:X=190:Y=150:Z=1:L=R:GA=1:ANS=1
3213 C1$="WESTERN SAHARA":C2$="MAURITANIA":C3$="IFNI"
3216 A$="WESTERN SAHARA"
3217 GOSUB 700
3221 IF CN(13)=1 THEN 3231
3222 CN(13)=1:N=13:X=204:Y=175:Z=1:L=R:GA=1:ANS=2
3223 C1$="MALI":C2$="MAURITANIA":C3$="MOROCCO"
3226 A$="MAURITANIA"
3227 GOSUB 700
3231 IF CN(14)=1 THEN 3241
3232 CN(14)=1:N=14:X=177:Y=181:Z=16:L=R:GA=1:ANS=2
3233 C1$="TOMBOUCTOU":C2$="NOUAKCHOTT":C3$="TIMBEDRA"
3236 A$="NOUAKCHOTT"
3237 GOSUB 700
3241 IF CN(15)=1 THEN 3251
3242 CN(15)=1:N=15:X=260:Y=140:Z=1:L=R:GA=1:ANS=1
3243 C1$="ALGERIA":C2$="LIBYA":C3$="TRIPOLITANIA"
3246 A$="ALGERIA"
3247 GOSUB 700
3251 IF CN(16)=1 THEN 3261
3252 CN(16)=1:N=16:X=261:Y=105:Z=16:L=R:GA=1:ANS=2
3253 C1$="TRIPOLI":C2$="ALGIERS":C3$="HASSI MARROKET"
3256 A$="ALGIERS"
3257 GOSUB 700
3261 IF CN(17)=1 THEN 3271
3262 CN(17)=1:N=17:X=238:Y=126:Z=17:L=R:GA=1:ANS=1
3263 C1$="BECHAR":C2$="BENI ABBES":C3$="MONTESANO"
3266 A$="BECHAR"
3267 GOSUB 700
3271 IF CN(18)=1 THEN 3281
3272 CN(18)=1:N=18:X=275:Y=110:Z=17:L=R:GA=1:ANS=1
3273 C1$="QACENTINA":C2$="EL GOLEA":C3$="LAGHOUAT"
3276 A$="QACENTINA"
3277 GOSUB 700
3281 IF CN(19)=1 THEN 3291
3282 CN(19)=1:N=19:X=270:Y=114:Z=8:L=R:GA=1:ANS=3
3283 C1$="GRAPES":C2$="OLIVES":C3$="CEREAL GRAINS"
3286 A$="CEREAL GRAINS"
3287 GOSUB 700
3291 IF CN(20)=1 THEN 3301
3292 CN(20)=1:N=20:X=270:Y=130:Z=9:L=R:GA=1:ANS=2
3293 C1$="URANIUM":C2$="OIL":C3$="CHROMIUM"
3296 A$="OIL"
3297 GOSUB 700
3301 IF CN(21)=1 THEN 3311
3302 CN(21)=1:N=21:X=270:Y=116:Z=7:L=R:GA=1:ANS=3
3303 C1$="DESERT":C2$="RAIN FOREST":C3$="MEDITERRANEAN"
3306 A$="MEDITERRANEAN"
3307 GOSUB 700
3311 IF CN(22)=1 THEN 3321
3312 CN(22)=1:N=22:X=260:Y=160:Z=7:L=R:GA=1:ANS=1
3313 C1$="DESERT":C2$="RAIN FOREST":C3$="MEDITERRANEAN"
3316 A$="DESERT"
3317 GOSUB 700
3321 IF CN(23)=1 THEN 3331
3322 CN(23)=1:N=23:X=321:Y=140:Z=1:L=R:GA=1:ANS=3
3323 C1$="TRIPOLITANIA":C2$="UNITED ARAB REPUBLIC":C3$="LIBYA"
3326 A$="LIBYA"
3327 GOSUB 700
3331 IF CN(24)=1 THEN 3341
3332 CN(24)=1:N=24:X=298:Y=122:Z=16:L=R:GA=1:ANS=2
3333 C1$="CYRENE":C2$="TRIPOLI":C3$="DARNAH"
3336 A$="TRIPOLI"
3337 GOSUB 700
3341 IF CN(25)=1 THEN 3351
3342 CN(25)=1:N=25:X=320:Y=128:Z=5:L=R:GA=1:ANS=1
3343 C1$="GULF OF SIDRA":C2$="BAY OF TRIPOLI":C3$="IONIAN SEA"
3346 A$="GULF OF SIDRA"
3347 GOSUB 700
3351 IF CN(26)=1 THEN 3361
3352 CN(26)=1:N=26:X=298:Y=123:Z=6:L=R:GA=1:ANS=2
3353 C1$="THEATER OF DYONISIUS":C2$="ARCH OF MARCUS AURELIUS":C3$="PYRAMID OF CHEOPS"
3356 A$="ARCH OF MARCUS AURELIUS"
3357 GOSUB 700
3361 IF CN(27)=1 THEN 3371
3362 CN(27)=1:N=27:X=330:Y=140:Z=9:L=R:GA=1:ANS=3
3363 C1$="PHOSPHATES":C2$="IRON":C3$="OIL"
3366 A$="OIL"
3367 GOSUB 700
3371 IF CN(28)=1 THEN 3381
3372 CN(28)=1:N=28:X=363:Y=145:Z=1:L=R:GA=1:ANS=2
3373 C1$="TOLEDO":C2$="EGYPT":C3$="ARABIA"
3376 A$="EGYPT"
3377 GOSUB 700
3381 IF CN(29)=1 THEN 3391
3382 CN(29)=1:N=29:X=368:Y=134:Z=16:L=R:GA=1:ANS=3
3383 C1$="ALEXANDRIA":C2$="TEL AVIV":C3$="CAIRO"
3386 A$="CAIRO"
3387 GOSUB 700
3391 IF CN(30)=1 THEN 3401
3392 CN(30)=1:N=30:X=363:Y=126:Z=17:L=R:GA=1:ANS=2
3393 C1$="MEMPHIS":C2$="ALEXANDRIA":C3$="GIZA"
3396 A$="ALEXANDRIA"
3397 GOSUB 700
3401 IF CN(31)=1 THEN 3411
3402 CN(31)=1:N=31:X=357:Y=129:Z=12:L=R:GA=1:ANS=1
3403 C1$="EL ALAMEIN":C2$="TEMPLE OF KHARNAK":C3$="HOME OF MOSES"
3406 A$="EL ALAMEIN"
3407 GOSUB 700
3411 IF CN(32)=1 THEN 3421
3412 CN(32)=1:N=32:X=370:Y=140:Z=3:L=R:GA=1:ANS=2
3413 C1$="JORDAN":C2$="NILE":C3$="YELLOW"
3416 A$="NILE"
3417 GOSUB 700
3421 IF CN(33)=1 THEN 3431
3422 CN(33)=1:N=33:X=373:Y=133:Z=6:L=R:GA=1:ANS=2
3423 C1$="TEMPLE OF DOOM":C2$="SUEZ CANAL":C3$="PYRAMID OF CHEOPS"
3426 A$="SUEZ CANAL"
3427 GOSUB 700
3431 IF CN(34)=1 THEN 3441
3432 CN(34)=1:N=34:X=355:Y=150:Z=7:L=R:GA=1:ANS=2
3433 C1$="MEDITERRANEAN":C2$="DESERT":C3$="TROPICAL SAVANNAH"
3436 A$="DESERT"
3437 GOSUB 700
3441 GOSUB 600
3999 GOTO 3101
4000 CLS:GOSUB 690
4001 LINE(84,40)-(82,46):LINE-(76,56):LINE-(74,58):LINE-(69,60):LINE-(69,62):LINE-(72,62):LINE-(74,66):LINE-(74,70):LINE-(75,71):LINE-(77,71):LINE-(77,74):LINE-(75,77):LINE-(72,78):LINE-(72,82):LINE-(74,84):LINE-(79,85):LINE-(79,86):LINE-(76,86)
4002 LINE-(72,87):LINE-(75,90):LINE-(78,89):LINE-(75,93):LINE-(77,94):LINE-(81,93):LINE-(85,93):LINE-(88,91):LINE-(91,93):LINE-(88,93):LINE-(83,96):LINE-(86,97):LINE-(84,99):LINE-(87,100):LINE-(93,105):LINE-(92,108):LINE-(96,112):LINE-(100,113)
4003 LINE-(102,116):LINE-(102,120):LINE-(107,121):LINE-(105,122):LINE-(107,124):LINE-(105,125):LINE-(107,126):LINE-(110,126):LINE-(109,129):LINE-(104,130):LINE-(109,134):LINE-(109,137):LINE-(113,137):LINE-(113,140):LINE-(115,141):LINE-(111,141)
4004 LINE-(123,146):LINE-(124,148):LINE-(122,148):LINE-(127,150):LINE-(129,153):LINE-(133,153):LINE-(135,156):LINE-(149,166):LINE-(151,166):LINE-(163,174):LINE-(180,170):LINE-(183,170):LINE-(180,168):LINE-(181,166):LINE-(186,168):LINE-(190,168)
4005 LINE-(192,167):LINE-(188,165):LINE-(194,166):LINE-(202,166):LINE-(195,164):LINE-(200,163):LINE-(202,163):LINE-(207,165):LINE-(210,165):LINE-(212,167):LINE-(225,171):LINE-(232,166):LINE-(240,164):LINE-(245,160):LINE-(253,160):LINE-(255,158)
4006 LINE-(257,159):LINE-(264,154):LINE-(277,154):LINE-(284,151):LINE-(286,152):LINE-(293,152):LINE-(298,154):LINE-(302,159):LINE-(304,159):LINE-(304,162):LINE-(307,164):LINE-(305,165):LINE-(307,170):LINE-(308,172):LINE-(310,173):LINE-(315,173)
4007 LINE-(322,175):LINE-(322,172):LINE-(327,175):LINE-(330,174)
4008 LINE(83,42)-(88,44):LINE-(94,43):LINE-(102,42):LINE-(107,43):LINE-(109,46):LINE-(114,46):LINE-(115,48):LINE-(115,52):LINE-(121,55):LINE-(121,60):LINE-(124,64):LINE-(124,68):LINE-(123,72):LINE-(128,78):LINE-(129,80):LINE-(129,85):LINE-(125,86)
4009 LINE-(123,85):LINE-(119,85):LINE-(114,84):LINE-(90,84):LINE-(84,86):LINE-(82,87):LINE-(79,85)
4010 LINE(77,74)-(87,74):LINE-(92,72):LINE-(98,74):LINE-(102,74):LINE-(104,76):LINE-(101,76):LINE-(101,77):LINE-(97,78):LINE-(95,76):LINE-(90,76):LINE-(85,78):LINE-(83,80):LINE-(72,80)
4011 LINE(88,101)-(92,98):LINE-(99,95):LINE-(105,95):LINE-(105,92):LINE-(103,90):LINE-(105,88):LINE-(105,84)
4012 LINE(123,94)-(121,88):LINE-(123,85):LINE-(122,83):LINE-(119,82):LINE-(116,82):LINE-(110,78):LINE-(104,76):LINE-(102,75):LINE-(100,76):LINE-(97,76):LINE-(95,75):LINE-(93,75):LINE-(89,74):LINE-(79,77):LINE-(75,76)
Reference in New Issue View Git Blame Copy Permalink