From 6edf4e8925d2f28ef9a092a6b23d1443929f9089 Mon Sep 17 00:00:00 2001
From: Stephen MacKenzie <stevemac321@live.com>
Date: Mon, 15 Apr 2019 14:14:17 -0700
Subject: [PATCH] made it work with hacks

---
 AFRICA_FIXED.BAS | 886 +++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 886 insertions(+)
 create mode 100644 AFRICA_FIXED.BAS

diff --git a/AFRICA_FIXED.BAS b/AFRICA_FIXED.BAS
new file mode 100644
index 0000000..9b7039a
--- /dev/null
+++ b/AFRICA_FIXED.BAS
@@ -0,0 +1,886 @@
+10 SCREEN 11
+20 CLS: GOSUB 370
+30 DIM A(3000): DIM B(2000): DIM X(50): DIM CN(200): DIM ANSY(100)
+31 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
+
+REM 349 WAVE 0,SIN
+349
+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 GOTO 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
+554
+REM 555 B = 0
+REM 557 B = MOUSE(0)
+REM 559 IF B <> -1 THEN 555
+REM 560 CHX = MOUSE(1)
+REM 562 CHY = MOUSE(2)
+REM 570 IF CHX > 210 AND CHX < 225 AND CHY > 200 AND CHY < 220 THEN 1000
+REM 571 IF CHX > 210 AND CHX < 225 AND CHY > 225 AND CHY < 250 THEN 572 ELSE GOTO 573
+REM 572 BUBU = 1: GOTO 1000
+REM 573 IF CHX > 240 AND CHX < 255 AND CHY > 75 AND CHY < 100 THEN 3000
+REM 574 IF CHX > 210 AND CHX < 250 AND CHY > 135 AND CHY < 160 THEN 4000
+REM 576 IF CHX > 280 AND CHX < 295 AND CHY > 155 AND CHY < 180 THEN 5000
+REM 578 IF CHX > 330 AND CHX < 345 AND CHY > 145 AND CHY < 170 THEN 6000
+REM 580 IF CHX > 300 AND CHX < 315 AND CHY > 215 AND CHY < 240 THEN 7000
+gosub 1000
+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.  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 GOTO 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 GOTO 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 GOTO 780
+770 PRINT "": PRINT "": PRINT "": PRINT "": PRINT "": PRINT "": PRINT ""
+771 PRINT "": PRINT "": PRINT "": PRINT "": PRINT "": PRINT ""
+772 IF L < 2 THEN 774 ELSE GOTO 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)
+5000
+6000
+7000
+15000
+19000
+20000