Club Amiga de Montreal - CAM/CAM_CD_1.iso/files/025.lha/WorldMap

Text File | 1987-04-02 | 7.0 KB | 162 lines

10 '**************************************************************************
20 '*                                                                        *
30 '*                          MAP OF THE WORLD                              *
40 '*                                                                        *
50 '*  Published in the Premier Edition of DIALOGUE Magazine (March, 1983)   *
60 '*                                                                        *
70 '*                  REQUIRES COLOR-GRAPHICS BOARD!!                       *
80 '*                                                                        *
90 '*  Uploaded to PCanada by Mark Magner (PC296) April 10, 1983             *
100 '*                                                                       *
110 '*************************************************************************
120 '
130 SCREEN 1,320,200,3,1:WINDOW 1,"WORLD MAP   ",,6,1: WIDTH 40:CLS : COLOR 1,0
140 PRINT TAB(5) "MAP OF THE WORLD" : PRINT
150 PRINT "Choose one of the following:"
160 PRINT "  Half-scale map..(1)"
180 PRINT "  Same as (1) (w/color)..(2)"
240 PRINT :INPUT "YOUR CHOICE?  (1 - 2) ",CHC
250 IF CHC<1 OR CHC>2 THEN BEEP : PRINT "Illegal choice........Try again!" : FOR J=1 TO 3000 : NEXT J : GOTO 130
    IF CHC=2 THEN CHC=3
    CLS
280 READ N
290 IF N < 0 THEN 1450
300 READ X1,Y1,X,Y
310 IF CHC = 1 OR CHC = 3 OR CHC = 5 OR CHC = 7 THEN LINE (X1+50, Y1+20) - (X+50,Y+20),3
320 IF CHC = 2 OR CHC = 4 OR CHC = 6 OR CHC = 8 THEN LINE (X1*2, Y1*2) - (X*2, Y*2),3
330     FOR J=3 TO N
340     READ X,Y
350     IF CHC = 1 OR CHC = 3 OR CHC = 5 OR CHC = 7 THEN LINE -(X+50, Y+20),3 : GOTO 370
360     LINE -(X*2, Y*2),3
370     NEXT J
380 GOTO 280
390 DATA 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
400 DATA 19,11,25,11,27,12,27,13,30,13,30,12,28,12,28,10,26,10,26,9,28,8,30,8
410 DATA 30,9,32,10,32,9,33,9,33,12,31,12,32,13,35,13,35,11,37,9,39,9,36,12
420 DATA 39,12,39,10,40,9,43,9,46,12,46,14,43,17,40,15,40,14,42,14,43,13,42,12
430 DATA 40,12,40,13,38,14,38,16,34,16,30,19,30,20,33,22,34,22,34,25,37,21
440 DATA 36,19,39,17,40,17,41,18,41,19,43,18,44,22,46,23,46,24,45,24,45,25
450 DATA 45,26,46,26,46,28,43,27,43,26,45,25,42,25,39,25,40,27,40,30,37,30
460 DATA 32,35,32,37,28,39,29,43,28,44,27,43,26,40,24,40,24,41,21,41,18,44
470 DATA 18,46,17,47,19,49,21,48,21,46,24,46,22,51,25,51,25,55,28,55,28,56
480 DATA 29,56,32,53,35,55,36,54,42,58,44,58,45,60,45,62,47,62,48,64,51,64
490 DATA 54,66,54,68,52,71,52,76,48,80,48,83,45,87,45,88,42,91,42,94,43,95
500 DATA 43,99,45,100,42,100,43,99,41,100,38,96,35,88,35,83,34,76,30,74,30,73
510 DATA 26,66,26,62,28,57,27,56,24,56,22,53,21,53,21,52,19,52,19,51,16,51
520 DATA 12,49,13,47,10,40,11,46,10,46,8,42,8,38,7,37,7,32,11,27,12,27,12,26
530 DATA 11,24,12,19,9,17,7,18,6,18,6,19,4,19,2,20,2,16
540 DATA 5
550 DATA 31,8,34,7,35,8,32,9,31,8
560 DATA 4
570 DATA 34,9,36,9,34,11,34,9
580 DATA 5
590 DATA 36,7,38,7,38,8,36,8,36,7
600 DATA 40
610 DATA 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
620 DATA 64,1,65,3,67,3,67,4,65,8,64,8,62,10,63,10,63,11,59,12,58,14,57,14
630 DATA 53,19,51,18,49,14,51,12,51,11,52,11,52,8,48,8,47,7,50,4,48,4,45,8
640 DATA 44,7,42,7
650 DATA 6
660 DATA 62,13,66,13,67,14,64,16,62,14,62,13
670 DATA 7
680 DATA 25,46,26,45,28,45,31,47,29,48,29,47,25,46
690 DATA 5
700 DATA 32,47,34,48,32,49,31,48,32,47
710 DATA 5
720 DATA 78,5,80,5,81,6,79,7,78,5
730 DATA 4
740 DATA 81,4,82,4,82,5,81,4
750 DATA 4
760 DATA 81,6,82,6,82,7,81,6

770 DATA 8
780 DATA 94,10,94,8,97,6,98,6,98,7,95,9,95,10,94,10
790 DATA 9
800 DATA 96,70,98,69,98,68,99,67,100,70,98,76,96,77,95,75,96,70
810 DATA 5
820 DATA 140,20,143,23,143,25,142,25,140,20
830 DATA 5
840 DATA 143,26,145,26,146,27,144,29,143,26

850 DATA 9
860 DATA 145,29,147,30,147,33,143,36,142,35,144,34,142,34,145,32,145,29
870 DATA 5
880 DATA 139,40,140,40,140,43,139,42,139,40
890 DATA 7
900 DATA 140,46,141,45,142,48,143,50,142,50,139,48,140,46
910 DATA 4
920 DATA 140,51,140,52,139,53,140,51
930 DATA 4
940 DATA 142,50,143,52,142,52,142,50
950 DATA 10
960 DATA 144,52,145,53,144,56,143,55,143,54,142,54,142,53,142,52,143,52,144,52
970 DATA 9
980 DATA 138,54,140,54,140,60,138,62,135,62,134,60,134,57,136,57,138,54
990 DATA 8
1000 DATA 141,58,144,58,144,59,142,59,143,64,141,64,140,62,141,58
1010 DATA 5
1020 DATA 145,58,146,58,146,59,145,59,145,58
1030 DATA 15
1040 DATA 147,59,149,59,150,60,152,60,156,62,158,64,160,64,158,66,160,68,157,68
1050 DATA 155,66,152,67,151,64,148,62,147,59
1060 DATA 4
1070 DATA 143,66,140,66,140,67,141,67
1080 DATA 2
1090 DATA 143,67,144,66
1100 DATA 13
1110 DATA 160,86,162,86,163,90,160,93,159,92,154,96,152,96,152,95,158,91
1120 DATA 159,92,159,90,161,89,160,86
1130 DATA 26
1140 DATA 133,85,134,83,134,76,136,74,138,74,143,70,145,70,148,68,150,68
1150 DATA 150,70,152,72,153,68,154,68,156,76,158,78,152,88,146,89,148,90
1160 DATA 148,91,146,92,146,89,144,84,139,84,139,85,134,85,133,84
1170 DATA 10
1180 DATA 126,55,127,55,133,61,132,65,136,66,137,65,136,64,131,64,126,57,126,55
1190 DATA 9
1200 DATA 68,20,70,19,71,20,71,22,72,23,72,24,68,25,69,22,68,20
1210 DATA 5
1220 DATA 68,22,68,24,66,24,67,22,68,22
1230 DATA 178
1240 DATA 65,36,60,44,60,52,66,57,74,57,74,60,77,64,77,68,76,70,76,73,81,83

1250 DATA 86,83,91,76,91,73,94,70,94,66,93,64,93,62,100,54,100,51,96,52
1260 DATA 92,47,90,40,94,46,96,50,100,49,102,48,105,44,103,42,108,42,110,45
1270 DATA 112,45,113,52,115,55,116,55,117,52,117,55,118,55,118,53,117,52
1280 DATA 118,48,122,44,127,51,127,53,130,58,132,58,132,57,128,52,128,50
1290 DATA 132,54,134,52,134,50,132,46,132,44,136,44,138,42,139,36,136,34
1300 DATA 136,32,134,32,134,30,137,30,139,34,140,34,141,33,139,30,139,28
1310 DATA 141,28,141,28,136,18,136,16,141,16,141,14,143,14,143,18,147,21
1320 DATA 148,20,145,15,148,12,147,10,150,10,149,8,146,8,144,7,138,7,138,8
1330 DATA 134,8,134,7,126,7,126,8,122,8,122,7,115,7,114,5,110,5,110,4,108,4
1340 DATA 106,2,104,4,105,4,105,3,106,3,106,5,108,5,108,7,106,7,102,9,104,12
1350 DATA 102,12,100,8,99,8,99,10,100,12,94,12,92,13,91,11,90,11,90,14,88,15
1360 DATA 88,14,89,13,84,10,82,10,74,17,74,20,76,19,79,21,80,20,80,17,82,14
1370 DATA 84,16,82,18,83,20,80,22,76,22,76,20,75,20,75,22,70,26,69,26,70,28
1380 DATA 70,29,66,29,65,33,67,34,71,33,71,31,76,29,79,33,79,34,80,34,80,31
1390 DATA 76,28,79,28,83,34,83,32,86,31,86,28,88,28,89,29,90,27,92,27,91,28
1400 DATA 93,30,88,30,85,33,86,34,90,34,90,38,86,38,83,36,80,38,76,36,76,34
1410 DATA 71,34,70,35,67,35,65,36
1420 DATA 5
1430 DATA 96,28,98,27,100,34,98,34,96,28
1440 DATA -34
1450 ON CHC GOTO 1600,1600,1490,1490,1460,1460,1490,1490
1460 ON CHC GOTO 1600,1600,1600,1600,1470,1470,1470,1470
1470 DEF SEG = 0 : SBR% = 260 : CALL SBR%(SBR%)
1480 GOTO 1600
1490 READ X,Y
1500 IF X < 0 OR Y < 0 THEN 1460
1510    IF CHC = 3 OR CHC = 7 THEN PAINT (X+50,Y+20),2,3 : GOTO 1530
1520    PAINT (X*2,Y*2),2,3
1530 GOTO 1490
1540 DATA 20,30
1550 DATA 110,30,98,72,56,10,150,80,154,64,138,58
1560 DATA 156,94,130,60,135,65,40,70,70,23,67,23
1570 DATA 64,14,47,4,28,46,79,5,145,27,146,32,142,23,141,47,144,54
1580 DATA 78,31,79,5,147,91,141,61,139,41,44,27,32,48,95,8
1590 DATA -23,-23,-23,-23
1600 A$=INPUT$(1)
1610 CLS
1620 END