0 'Map of the World, Copyright(c)1989, by Henry Glover, 72256,2564. See also WORLD.DOC.
1 CLS:CALL16959:DEFSTRA-B:A=CHR$(27)+"p":B=CHR$(27)+"q":FORN=1TO8:PRINT@X,A;SPACE$(8):X=X+40:NEXT:X=0:PRINT@80,"1.ZONES":PRINT@120,"2.MENU":FORN=1TO951:READC,D:PSET(C,D):NEXT:RESTORE
2 Y=VAL(INKEY$):IFY=0THEN2
3 ONYGOTO4,9
4 PRINT@80,"1.MAP  ";B:LINE(52,0)-(52,63):LINE(236,0)-(236,63):PRINT@88,"IDL":PRINT@157,"IDL":LINE(140,0)-(140,63):PRINT@303,"GM":LINE(53,36)-(235,36):PRINT@289,A;"0":PRINT@209,"1":PRINT@170,"2":PRINT@51,"3":PRINT@93,"4567":PRINT@176," 7":PRINT@217," 8"
5 PRINT@20,"9":PRINT@58," 8":PRINT@140,"11":PRINT@220,"9":PRINT@300,"10":PRINT@22,"12":PRINT@63,"13":PRINT@104,"14":PRINT@183,"13":PRINT@186,"15":PRINT@265,"14":PRINT@107,"15":PRINT@148,"16":PRINT@189,"17":PRINT@71,"20":PRINT@110,"18":PRINT@151,"19"
6 PRINT@271,"20":PRINT@114,"21":PRINT@274,"22":PRINT@77,"25":PRINT@236,"23":PRINT@317,"24"
7 Y=VAL(INKEY$):IFY=0THEN7
8 ONYGOTO1,9
9 MENU:DATA53,10,55,10,56,10,58,9,59,1,59,3,59,5,59,44,60,0,60,2,60,4,60,6,60,9,60,23,61,0,61,2,61,4,61,7,61,9,62,0,62,7,62,8,62,25,63,0,63,8,63,26,64,0,64,8,64,27,65,0,65,7,66,0,66,7,67,0,67,6,68,1,68,6,69,1,69,6,70,1,70,6,71,1,71,6,72,1,72,6,73,1,73,7
10 DATA74,1,74,7,75,1,75,8,76,1,76,9,77,1,77,10,78,1,78,11,79,1,79,12,79,13,79,14,79,15,79,16,80,1,80,17,81,1,81,18,82,19,82,2,83,2,83,20,83,21,84,2,84,22,85,2,85,20,85,21,85,23,86,2,86,22,86,24,87,2,87,23,88,2,88,24,88,25,89,2,89,26,90,2
11 DATA90,27,91,2,91,28,92,2,92,28,93,1,93,2,93,22,93,23,93,24,93,25,93,26,93,29,94,0,94,21,94,27,94,29,94,6,95,0,95,21,95,27,95,29,95,5,95,7,96,1,96,4,96,7,96,21,96,26,96,27,96,30,96,36,97,1,97,4,97,21,97,25,97,30
12 DATA97,8,98,1,98,3,98,8,98,21,98,25,98,27,98,28,98,31,99,1,99,3,99,9,99,21,99,25,99,26,99,28,99,32,100,2,100,9,100,22,100,29,100,30,100,31,100,33,101,10,101,20,101,21,101,23,101,25,101,31,101,33,101,36,101,37,101,38,101,39,102,9,102,19
13 DATA102,22,102,23,102,25,102,31,102,34,102,35,102,40,102,41,103,4,103,5,103,6,103,7,103,8,103,17,103,18,103,26,103,31,103,42,104,4,104,16,104,26,104,31,104,43,104,55,104,56,104,57,104,58,104,60,104,61,105,5,105,15,105,30,105,44,105,51,105,52
14 DATA105,53,105,54,105,59,105,62,105,63,106,6,106,12,106,15,106,27,106,30,106,45,106,46,106,47,106,48,106,49,106,50,106,63,107,7,107,11,107,14,107,31,107,61,107,62,108,6,108,11,108,14,108,27,108,31,108,59,108,60,109,6,109,11,109,12,109,14,109,31,109,57
15 DATA109,58,110,7,110,11,110,13,110,14,110,19,110,31,110,56,111,8,111,11,111,13,111,31,111,55,111,61,112,8,112,10,112,32,112,53,112,54,112,61,113,0,113,9,113,11,113,12,113,33,113,53,114,1,114,12,114,33,114,53,115,2,115,34,115,52,116,3,116,4,116,35
16 DATA116,36,116,37,116,51,117,5,117,37,117,49,117,50,118,6,118,37,118,48,119,6,119,37,119,47,119,47,120,5,120,38,120,47,121,4,121,38,121,44,121,45,121,46,122,38,122,4,122,43,123,4,123,39,123,42,123,63,124,3,124,40,124,41,125,2,126,1,126,16,127,0,127,16
17 DATA129,3,129,28,130,2,130,4,131,2,131,4,132,2,132,4,132,22,132,24,132,25,132,28,132,29,133,2,133,4,133,23,133,26,133,27,133,30,134,3,134,4,134,22,134,31,135,9,135,10,135,20,135,21,135,32,136,8,136,11,136,14,136,15,136,16,136,17,136,19,136,33,137,9
18 DATA137,10,137,14,137,17,137,19,137,34,138,6,138,7,138,14,138,17,138,19,138,34,139,6,139,8,139,9,139,10,139,12,139,14,139,17,139,19,139,34,140,7,140,10,140,12,140,13,140,14,140,17,140,19,140,34,141,8,141,9,141,12,141,16,141,19,141,33,142,11
19 DATA142,15,142,18,142,33,143,4,143,5,143,6,143,10,143,14,143,18,143,33,144,4,144,7,144,9,144,14,144,18,144,34,145,4,145,6,145,9,145,14,145,18,145,34,145,35,145,36,146,4,146,7,146,10,146,15,146,18,146,19,146,37,146,38,147,3,147,8,147,10,147,14,147,16
20 DATA147,20,147,39,147,40,147,42,147,43,147,44,147,45,147,46,148,2,148,7,148,10,148,14,148,15,148,17,148,20,148,41,148,47,148,48,148,49,148,50,149,1,149,6,149,9,149,14,149,16,149,20,149,51,149,52,149,53,150,1,150,5,150,9,150,15,150,20,150,54,151,1,151,4
21 DATA151,6,151,8,151,16,151,17,151,19,151,54,152,0,152,4,152,5,152,6,152,7,152,16,152,19,152,54,153,0,153,4,153,6,153,15,153,20,153,53,154,0,154,6,154,16,154,20,154,53,155,0,155,14,155,17,155,20,155,52,156,1,156,13,156,15,156,18,156,20,156,51,157,1
22 DATA157,13,157,15,157,18,157,20,157,22,157,23,157,48,157,49,157,50,158,1,158,3,158,4,158,13,158,15,158,18,158,19,158,20,158,22,158,24,158,25,158,46,158,47,159,1,159,3,159,5,159,13,159,16,159,23,159,26,159,27,159,45,160,2,160,5,160,14,160,16,160,24
23 DATA160,25,160,28,160,38,160,39,160,40,160,44,161,2,161,4,161,15,161,26,161,29,161,37,161,41,161,42,161,43,162,3,162,27,162,28,162,30,162,36,162,45,162,46,162,47,162,48,163,3,163,13,163,14,163,29,163,30,163,35,163,44,163,44,163,49,164,3,164,13,164,15
24 DATA164,16,164,17,164,21,164,29,164,30,164,34,164,43,164,49,165,2,165,12,165,18,165,20,165,22,165,28,165,30,165,32,165,33,165,42,165,45,165,46,165,47,165,48,166,2,166,12,166,14,166,18,166,21,166,23,166,28,166,30,166,31,166,42,166,43,166,44,167,2,167,12
25 DATA167,13,167,15,167,16,167,17,167,18,167,21,167,24,167,27,168,2,168,21,168,23,168,27,169,2,169,21,169,24,169,26,170,2,170,22,170,25,171,2,171,23,172,2,172,24,173,2,173,24,174,1,174,2,174,25,175,0,175,26,176,0,176,25,177,0,177,26,177,27,177,28,177,29
26 DATA178,0,178,30,178,31,179,1,179,32,180,1,180,29,180,30,180,31,181,1,181,28,181,33,182,1,182,27,183,0,183,26,184,25,185,25,186,25,186,26,187,27,187,28,188,28,188,33,188,34,189,29,189,30,189,33,189,35,190,31,190,32,190,34,190,36,190,37,191,30,191,33
27 DATA191,34,191,35,191,38,192,31,192,34,192,35,192,36,192,39,193,25,193,26,193,27,193,32,193,37,193,38,193,39,194,25,194,28,194,31,195,25,195,26,195,29,195,30,195,35,195,36,195,37,195,40,196,0,196,25,196,34,196,38,196,40,196,48,196,49,196,50,197,0
28 DATA197,25,197,33,197,38,197,47,197,51,197,52,197,53,198,1,198,24,198,32,198,38,198,47,198,54,199,1,199,16,199,24,199,33,199,34,199,35,199,36,199,37,199,46,199,54,200,1,200,15,200,17,200,23,200,40,200,46,200,53,201,0,201,15,201,18,201,19,201,20,201,21
29 DATA201,22,201,24,201,25,201,28,201,29,201,37,201,45,201,53,202,0,202,15,202,30,202,32,202,40,202,44,202,53,203,0,203,16,203,17,203,43,203,53,204,0,204,18,204,19,204,39,204,43,204,52,205,1,205,15,205,16,205,17,205,19,205,36,205,42,205,52,206,1,206,14
30 DATA206,18,206,19,206,36,206,37,206,42,206,52,207,1,207,14,207,36,207,38,207,42,207,43,207,44,207,53,208,1,208,9,208,13,208,19,208,20,208,37,208,39,208,42,208,44,208,54,209,0,209,8,209,9,209,12,209,18,209,20,209,37,209,39,209,45,209,55,210,0,210,7
31 DATA210,9,210,10,210,11,210,14,210,15,210,16,210,17,210,19,210,37,210,40,210,45,210,56,211,0,211,7,211,13,211,18,211,38,211,40,211,42,211,43,211,44,211,45,211,56,212,0,212,7,212,10,212,11,212,14,212,15,212,16,212,17,212,38,212,40,212,43,212,44,212,56
32 DATA212,57,213,0,213,7,213,39,213,41,213,45,213,56,214,0,214,7,214,40,214,41,214,46,214,55,215,1,215,6,215,41,215,47,215,53,215,54,216,1,216,6,216,38,216,48,216,49,216,50,216,51,216,52,217,1,217,6,217,9,217,10,217,11,217,39,218,1,218,5,218,8,218,11
33 DATA219,1,219,5,219,7,219,10,219,41,220,1,220,5,220,6,220,9,221,1,221,5,221,6,221,8,222,1,222,6,222,7,222,32,222,47,223,1,223,6,223,58,223,59,224,1,224,6,224,33,224,57,224,59,225,1,225,6,225,56,225,59,226,1,226,5,226,55,226,58,227,1,227,5,227,10
34 DATA227,54,227,55,227,56,227,57,228,1,228,5,228,54,228,56,229,2,229,4,229,11,229,55,230,2,230,4,231,2,231,4,231,11,232,2,232,4,233,2,233,4,233,10,234,3,234,4,234,10,236,10
35 'Hit "1" for overlay of time zones, International Date line (IDL), Greenwich meridian (GM), and equator.