Add files via upload
This commit is contained in:
Stephen MacKenzie
GitHub
parent
de54b352ac
commit
207d9fe3d9
201
AFRICA_FIXED.BAS
201
AFRICA_FIXED.BAS
|
|
@ -220,17 +220,16 @@ REM 349 WAVE 0,SIN
|
|||
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
|
||||
560 CHX = 211
|
||||
561 CHY = 201
|
||||
570 IF CHX > 210 AND CHX < 225 AND CHY > 200 AND CHY < 220 THEN 1000
|
||||
571 IF CHX > 210 AND CHX < 225 AND CHY > 225 AND CHY < 250 THEN 572 ELSE GOTO 573
|
||||
572 BUBU = 1: GOTO 1000
|
||||
573 IF CHX > 240 AND CHX < 255 AND CHY > 75 AND CHY < 100 THEN 3000
|
||||
574 IF CHX > 210 AND CHX < 250 AND CHY > 135 AND CHY < 160 THEN 4000
|
||||
576 IF CHX > 280 AND CHX < 295 AND CHY > 155 AND CHY < 180 THEN 5000
|
||||
578 IF CHX > 330 AND CHX < 345 AND CHY > 145 AND CHY < 170 THEN 6000
|
||||
580 IF CHX > 300 AND CHX < 315 AND CHY > 215 AND CHY < 240 THEN 7000
|
||||
590 CLS
|
||||
591 PRINT "": PRINT "": PRINT "": BEEP
|
||||
593 PRINT " YOU WERE NOT CAREFUL ENOUGH TO HAVE THE ARROW RIGHT ON"
|
||||
|
|
@ -288,11 +287,11 @@ gosub 1000
|
|||
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)
|
||||
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?"
|
||||
|
|
@ -411,259 +410,259 @@ gosub 1000
|
|||
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
|
||||
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
|
||||
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
|
||||
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
|
||||
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
|
||||
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
|
||||
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
|
||||
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
|
||||
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
|
||||
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
|
||||
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
|
||||
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
|
||||
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
|
||||
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
|
||||
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
|
||||
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
|
||||
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
|
||||
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
|
||||
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
|
||||
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
|
||||
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
|
||||
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
|
||||
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
|
||||
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
|
||||
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
|
||||
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
|
||||
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
|
||||
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
|
||||
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
|
||||
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
|
||||
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
|
||||
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
|
||||
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
|
||||
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
|
||||
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
|
||||
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
|
||||
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
|
||||
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
|
||||
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
|
||||
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
|
||||
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
|
||||
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
|
||||
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
|
||||
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
|
||||
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
|
||||
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
|
||||
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
|
||||
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
|
||||
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
|
||||
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
|
||||
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
|
||||
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
|
||||
|
|
@ -692,172 +691,172 @@ gosub 1000
|
|||
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
|
||||
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
|
||||
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
|
||||
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
|
||||
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
|
||||
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
|
||||
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
|
||||
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
|
||||
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
|
||||
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
|
||||
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
|
||||
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
|
||||
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
|
||||
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
|
||||
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
|
||||
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
|
||||
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
|
||||
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
|
||||
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
|
||||
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
|
||||
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
|
||||
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
|
||||
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
|
||||
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
|
||||
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
|
||||
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
|
||||
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
|
||||
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
|
||||
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
|
||||
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
|
||||
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
|
||||
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
|
||||
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
|
||||
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
|
||||
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
|
||||
|
|
|
|||
Loading…
Reference in New Issue