110 '*********************************************************
120
130 SCREEN 1,320,200,3,1:
WINDOW 1,"DUNYA HARITASI ",,6,1:WIDTH 40:CLS:
COLOR 1,0
140 PRINT TAB(5) "DUNYA HARITASI" : PRINT
150 PRINT "Asagidakilerden birini secin:"
160 PRINT " Yarim-Olcek harita....(tek renk)..(l)"
180 PRINT " Yarim-Olcek harita....(iki renk)..(2)"
240 PRINT :INPUT "SECIMINIZ? (1-2) ",CHC
250
H
IF CHC<1 OR CHC>2 T EN BEEP:
PRINT "Geçersiz Secim...... Tekrar girin!":
FOR J=l TO 3000:NEXT J:GOTO 130
260 IF CHC=2 THEN CHC=3
270 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 (Xl+50,Yl+20)-(X+50,Y+20),3
320 IF CHC=2 OR CHC=4 OR CHC=6 OR CHC=8
THEN LINE (Xl*2,Yl*2)-(X*2,Y*2),3
330
FOR J TO N
= 3
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
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
395 DATA 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
405 DATA 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
415 DATA 15.35,11,37,9,39,9,36,12
420 DATA
12,39,10,40,9,43,9,46,1
39,
2,46,14,43,17,40
425 DATA 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
435 DATA 22,34,22,34,25,37,21
440 DATA 36,19,39,17,40,17,41,18,41,19,43,18,44,22,46
445 DATA 23,46,24,45,24,45,25
450 DATA 45,26,46,26,46,28,43,27,43,26,45,25,42,25,39
455 DATA 25,40,27,40,30,37,30
460 DATA 32,35,32,37,28,39,29,43,28,44,27,43,26,40,24
465 DATA 40,24,41,21,41,18,44
470 DATA 18,46,17,47,19,49,21,48,21,46,24,46,22,51,25
475 DATA 51,25,55,28,55,28,56
480 DATA 29,56,32,53,35,55,36,54,42,58,44,58,45,60,45
485 DATA 62,47,62,48,64,51,64
490 DATA 54,66,54,68,52,71,52,76,48,80,48,83,45,87,45
495 DATA 88,42,91,42,94,43,95
500 DATA 43,99,45,100,42,100,43,99,41,100,38,96,35,88
505 DATA 35,83.34,76,50,74,30,73
510 DATA 26,66,26,62,28,57,27,56,24,56,22,53,21,53,21
515 DATA 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
525 DATA 7,32,11,27,12,27,12,26
530 DATA 11,24,12,19,9,17,7,18,6,18,6,19,4,l9,2,20,2,16
550 DATA 5,31,8,34,7,35,8,32,9,31,8
570 DATA 4,34,9,36,9,34,11,34,9
590 DATA 5,36,7,38,7,38,8,36,8,36,7,40
610 DATA 42,7,46,4,44,4,43,6,41,6,41,5,44,4,48,2,50,2,51
615 DATA 3 ,50,4,54,3,58,3,61,1
620 DATA 64,1,65,3,67,0,67,4,65,8,64,8,62,10,63,10,63,11
623 DATA 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
635 DATA 7,50,4,4b,4,45,6,44,7,42,7,6
660 DATA 62,13,66,13,67,14,64,16,62,14,62,13,7
670 DATA 25,46,26,45,28,45,31,47,29,48,29,47,25,46
700 DATA 5,32,47,34,48,32,49,31,48,32,47
720 DATA 5,78,5,80,5,81,6,79,7,78,5
740 DATA 4,81,4,82,4,82,5,81,4
760 DATA 4,81,6,82,6,82, 7,81,6',8
780 DATA 94,10,94,8,97,6,98,6,98,7,95,9,95,10,94,10
800 DATA 9,96,70,98,69,98,66,y9,67,100,70,98,76,96,77
810 DATA 95,75,96,70,5
820 DATA 140,20,143,23,143,25,142,25,140,20
840 DATA 5,143,26,145,26,146,27,144,29,143,26,9
860 DATA 145,29,147,30,147,33,143,36,142,35,144,34
870 DATA 142,34,145,32,145,29,5
880 DATA 139,40,140,40,140,43,139,42,139,40,7
900 DATA 140,46,141,45,142,48,143,50,142,50,139,48
920 DATA 140,46,4,140,51,140,52,139,53,140,51
940 DATA 4,142,50,143,52,142,52,142,50,10
960 DATA 144,52,145,53,144,56,143,55,143,54,142,54
970 DATA 142,53,142,52,143,52,144,52,9
980 DATA 138,54,140,54,140,60,138,62,135,62,134,60
990 DATA 134,57,136,57,138,54,8
1000 DATA 141,58,144,58,144,59,142,59,143,64,141,64
1010 DATA 140,62,141,58,5
1020 DATA 145,58,146,58,146,59,145,59,145,58,15
1040 DATA 147,59,149,59,150,60,152,60,136,62,158,64
1050 DATA 160,64,158,66,160,68,157,68,155,66,152,67,151
1060 DATA 64,148,62,147,59,4
1070 DATA 143,66,140,66,140,67,141,67
1090 DATA 2,143,67,144,66,13
1110 DATA 160,86,162,86,163,90,160,93,159,92,154,96
1120 DATA 152,96,152,95,158,91,159,92,159,90,161,89
1130 DATA 160,86,26
1140 DATA 133,85,134,83,134,76,136,74,138,74,143,70
1145 DATA 145,70,148,68,150,68
1150 DATA 150,70,152,72,153,68,154,68,156,76,158,78
1155 DATA 152,88,146,89,148,90
1160 DATA 148,91,146,92,146,89,144,84,139,84,139,85
1170 DATA 134,85,133,84,10
1180 DATA 126,55,127,55,133,61,132,65,136,66,137,65
1190 DATA 136,64,131,64,126,57,126,55,9
1200 DATA 68,20,70,19,71,20,71,22,72,23,72,24,68,25
1210 DATA 69,22,68,20,5
1220 DATA 68,22,68,24,66,24,67,22,68,22,178
1240 DATA 65,36,60,44,60,52,66,57,74,57,74,60,77,64
1245 DATA 77,68,76,70,76,73,81,83
1250 DATA 86,83,91,76,91,73,94,70,94,66,93,64,93,62
1255 DATA 100,54,100,51,96,52
1260 DATA 92,47,90,40,94,46,96,50,100,49,102,48,105
1265 DATA 44,103,42,108,42,110,45
1270 DATA 112,45,113,52,115,55,116,55,117,52,117,55
1275 DATA 118,55,118,53,117,52
1280 DATA 118,48,122,44,127,51,127,53,130,58,132,58
1285 DATA 132,57,128,52,128,50
1290 DATA 132,54,134,52,134,50,132,46,132,44,136,44
1295 DATA 138,42,139,36,136,34
1300 DATA 136,32,134,32,134,30,137,30,139,34,140,34
1305 DATA 141,33,139,30,139,28
1310 DATA 141,28,141,28,136,18,136,16,141,16,141,14
1315 DATA 143,14,143,18,147,21
1320 DATA 148,20,145,15,148,12,147,10,150,10,149,8
1325 DATA 146,8,144,7,138,7,138,8
1330 DATA 134,8,134,7,126,7,126,8,122,8,122,7,115,7
1335 DATA 114,5,110,5,110,4,108,4
1340 DATA 106,2,104,4,105,4,105,3,106,3,106,5,108,5
1345 DATA 108,7,106,7,102,9,104,12
1350 DATA 102,12,100,8,99,8,99,10,100,12,94,12,92,13
1360 DATA 91,11,90,11,90,14,88,15
1360 DATA 88,14,89,13,84,10,82,10,74,17,74,20,76,19
1365 DATA 79,21,80,20,80,17,82,14
1370 DATA 84,16,82,18,83,20,80,22,76,22,76,20,75,20
1375 DATA 75,22,70,26,69,26,70,28
1380 DATA 70,29,66,29,65,33,67,34,71,33,71,31,76,29
1385 DATA 79,33,79,34,80,34,80,31
139G DATA 76,28,79,28,83,34,83,32,86,31,86,28,88,28
1395 DATA 89,29,90,27,92,27,91,28
1400 DATA 93,30,88,30,85,33,86,34,90,34,90,38,86,38
1405 DATA 83,36,80.38,76,36,76,34
1410 DATA 71,34,70,35,67,35,65,36,5
1430 DATA 96,28,98,27,100,34,98,34,96,28,-34
1450 ON CHC GOTO 1600,1600,1490,1490,1460,1460,1490,1490
1460 OH 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,72J56,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
1575 DATA 147,47,144,54
1580 DATA 78,31,79,5,147,91,141,61,139,41,44,27,32,48,95
1590 DATA 8,-23,-23,-23,-23
1600 A$=INPUT$(1)
1610 CLS
1620 END
