mirror of
https://github.com/stevemac321/MrCBASIC.git
synced 2024-06-16 03:29:30 +00:00
made it work with hacks
This commit is contained in:
parent
e86bbf453e
commit
6edf4e8925
886
AFRICA_FIXED.BAS
Normal file
886
AFRICA_FIXED.BAS
Normal file
|
@ -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
|
Loading…
Reference in New Issue
Block a user