Sayfa 86

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