Bu sayfadaki yazılar
Sayfanın metni
Sayfa 85
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
Klavyeyle gezinmek için ← ve → tuşları.
Sayfa 84
10 '********************************************************* 20 '* * 30 '* DUNYA HARITASI * 40 '* * 50 '* AMIGA DUNYASI (Haziran, 1990) * 100 '* *
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