; '**************************************************************************
; '*                                                                        *
; '*                          MAP OF THE WORLD                              *
; '*                                                                        *
; '*  Published in the Premier Edition of DIALOGUE Magazine (March, 1983)   *
; '*                                                                        *
; '*                  REQUIRES COLOR-GRAPHICS BOARD!!                       *
; '*                                                                        *
; '*  Uploaded To PCanada by Mark Magner (PC296) April 10, 1983             *
; '*                                                                       *
; '*************************************************************************
; '
;  Umgesetzt in Blitzbasic2 von MP. Januar 1994


 Klein = 1  ; oder 0

 Screen 0,3,"Weltbild !"
 ScreensBitMap 0,0
 NEWTYPE .duo
     x0.w
     y0.w
 End NEWTYPE

 Dim jaja.duo(178)

 Cls

Runde:
 Read N.w
 If N < 0 Then MouseWait:End
 For J=1 To N
   Read X.w,Y.w
     If Klein = 1 Then jaja(J)\x0 = X+50,Y+20
     If Klein = 0 Then jaja(J)\x0 = X*2, Y*2
 Next J
 Poly N,jaja(1),3
 Goto Runde

 Data.w 168,2,16,3,16,3,15,4,14,6,14,6,12,8,12,9,10,10,10,12,9,15,9,17,10
 Data.w 19,11,25,11,27,12,27,13,30,13,30,12,28,12,28,10,26,10,26,9,28,8,30,8
 Data.w 30,9,32,10,32,9,33,9,33,12,31,12,32,13,35,13,35,11,37,9,39,9,36,12
 Data.w 39,12,39,10,40,9,43,9,46,12,46,14,43,17,40,15,40,14,42,14,43,13,42,12
 Data.w 40,12,40,13,38,14,38,16,34,16,30,19,30,20,33,22,34,22,34,25,37,21
 Data.w 36,19,39,17,40,17,41,18,41,19,43,18,44,22,46,23,46,24,45,24,45,25
 Data.w 45,26,46,26,46,28,43,27,43,26,45,25,42,25,39,25,40,27,40,30,37,30
 Data.w 32,35,32,37,28,39,29,43,28,44,27,43,26,40,24,40,24,41,21,41,18,44
 Data.w 18,46,17,47,19,49,21,48,21,46,24,46,22,51,25,51,25,55,28,55,28,56
 Data.w 29,56,32,53,35,55,36,54,42,58,44,58,45,60,45,62,47,62,48,64,51,64
 Data.w 54,66,54,68,52,71,52,76,48,80,48,83,45,87,45,88,42,91,42,94,43,95
 Data.w 43,99,45,100,42,100,43,99,41,100,38,96,35,88,35,83,34,76,30,74,30,73
 Data.w 26,66,26,62,28,57,27,56,24,56,22,53,21,53,21,52,19,52,19,51,16,51
 Data.w 12,49,13,47,10,40,11,46,10,46,8,42,8,38,7,37,7,32,11,27,12,27,12,26
 Data.w 11,24,12,19,9,17,7,18,6,18,6,19,4,19,2,20,2,16
 Data.w 5
 Data.w 31,8,34,7,35,8,32,9,31,8
 Data.w 4
 Data.w 34,9,36,9,34,11,34,9
 Data.w 5
 Data.w 36,7,38,7,38,8,36,8,36,7
 Data.w 40
 Data.w 42,7,46,4,44,4,43,6,41,6,41,5,44,4,48,2,50,2,51,3,50,4,54,3,58,3,61,1
 Data.w 64,1,65,3,67,3,67,4,65,8,64,8,62,10,63,10,63,11,59,12,58,14,57,14
 Data.w 53,19,51,18,49,14,51,12,51,11,52,11,52,8,48,8,47,7,50,4,48,4,45,8
 Data.w 44,7,42,7
 Data.w 6
 Data.w 62,13,66,13,67,14,64,16,62,14,62,13
 Data.w 7
 Data.w 25,46,26,45,28,45,31,47,29,48,29,47,25,46
 Data.w 5
 Data.w 32,47,34,48,32,49,31,48,32,47
 Data.w 5
 Data.w 78,5,80,5,81,6,79,7,78,5
 Data.w 4
 Data.w 81,4,82,4,82,5,81,4
 Data.w 4
 Data.w 81,6,82,6,82,7,81,6

 Data.w 8
 Data.w 94,10,94,8,97,6,98,6,98,7,95,9,95,10,94,10
 Data.w 9
 Data.w 96,70,98,69,98,68,99,67,100,70,98,76,96,77,95,75,96,70
 Data.w 5
 Data.w 140,20,143,23,143,25,142,25,140,20
 Data.w 5
 Data.w 143,26,145,26,146,27,144,29,143,26

 Data.w 9
 Data.w 145,29,147,30,147,33,143,36,142,35,144,34,142,34,145,32,145,29
 Data.w 5
 Data.w 139,40,140,40,140,43,139,42,139,40
 Data.w 7
 Data.w 140,46,141,45,142,48,143,50,142,50,139,48,140,46
 Data.w 4
 Data.w 140,51,140,52,139,53,140,51
 Data.w 4
 Data.w 142,50,143,52,142,52,142,50
 Data.w 10
 Data.w 144,52,145,53,144,56,143,55,143,54,142,54,142,53,142,52,143,52,144,52
 Data.w 9
 Data.w 138,54,140,54,140,60,138,62,135,62,134,60,134,57,136,57,138,54
 Data.w 8
 Data.w 141,58,144,58,144,59,142,59,143,64,141,64,140,62,141,58
 Data.w 5
 Data.w 145,58,146,58,146,59,145,59,145,58
 Data.w 15
 Data.w 147,59,149,59,150,60,152,60,156,62,158,64,160,64,158,66,160,68,157,68
 Data.w 155,66,152,67,151,64,148,62,147,59
 Data.w 4
 Data.w 143,66,140,66,140,67,141,67
 Data.w 2
 Data.w 143,67,144,66
 Data.w 13
 Data.w 160,86,162,86,163,90,160,93,159,92,154,96,152,96,152,95,158,91
 Data.w 159,92,159,90,161,89,160,86
 Data.w 26
 Data.w 133,85,134,83,134,76,136,74,138,74,143,70,145,70,148,68,150,68
 Data.w 150,70,152,72,153,68,154,68,156,76,158,78,152,88,146,89,148,90
 Data.w 148,91,146,92,146,89,144,84,139,84,139,85,134,85,133,84
 Data.w 10
 Data.w 126,55,127,55,133,61,132,65,136,66,137,65,136,64,131,64,126,57,126,55
 Data.w 9
 Data.w 68,20,70,19,71,20,71,22,72,23,72,24,68,25,69,22,68,20
 Data.w 5
 Data.w 68,22,68,24,66,24,67,22,68,22
 Data.w 178
 Data.w 65,36,60,44,60,52,66,57,74,57,74,60,77,64,77,68,76,70,76,73,81,83

 Data.w 86,83,91,76,91,73,94,70,94,66,93,64,93,62,100,54,100,51,96,52
 Data.w 92,47,90,40,94,46,96,50,100,49,102,48,105,44,103,42,108,42,110,45
 Data.w 112,45,113,52,115,55,116,55,117,52,117,55,118,55,118,53,117,52
 Data.w 118,48,122,44,127,51,127,53,130,58,132,58,132,57,128,52,128,50
 Data.w 132,54,134,52,134,50,132,46,132,44,136,44,138,42,139,36,136,34
 Data.w 136,32,134,32,134,30,137,30,139,34,140,34,141,33,139,30,139,28
 Data.w 141,28,141,28,136,18,136,16,141,16,141,14,143,14,143,18,147,21
 Data.w 148,20,145,15,148,12,147,10,150,10,149,8,146,8,144,7,138,7,138,8
 Data.w 134,8,134,7,126,7,126,8,122,8,122,7,115,7,114,5,110,5,110,4,108,4
 Data.w 106,2,104,4,105,4,105,3,106,3,106,5,108,5,108,7,106,7,102,9,104,12
 Data.w 102,12,100,8,99,8,99,10,100,12,94,12,92,13,91,11,90,11,90,14,88,15
 Data.w 88,14,89,13,84,10,82,10,74,17,74,20,76,19,79,21,80,20,80,17,82,14
 Data.w 84,16,82,18,83,20,80,22,76,22,76,20,75,20,75,22,70,26,69,26,70,28
 Data.w 70,29,66,29,65,33,67,34,71,33,71,31,76,29,79,33,79,34,80,34,80,31
 Data.w 76,28,79,28,83,34,83,32,86,31,86,28,88,28,89,29,90,27,92,27,91,28
 Data.w 93,30,88,30,85,33,86,34,90,34,90,38,86,38,83,36,80,38,76,36,76,34
 Data.w 71,34,70,35,67,35,65,36
 Data.w 5
 Data.w 96,28,98,27,100,34,98,34,96,28
 Data.w -1