Sayfa 88

16800 RETURN 17000 FOR x = 1 TO mh: FOR y = 1 TO mv 17100 m(x,y) = m(x,y) + m(x,y) * 16 17200 NEXT y,x 17500 f = INT ( RND (1) * 4) + 1 17600 ON f GOTO 17700,17800,17900,18000 17700 r = 0:s = - 1: GOTO 18100 17800 r = l:s = 0: GOTO 18100 17900 r = 0:s = 1: GOTO 18100 18000 r = - l:s = 0 18100 GOSUB 800 18200 ' 18300 IF MOUSE(0) = 0 THEN GOTO 18300 mox = MOUSE(5) moy = MOUSE(6)

IF mox > 474 AND mox < 516 AND moy > 82 AND moy < 90 THEN 19100 IF mox > 529 AND mox < 571 AND moy > 82 AND moy < 90 THEN 19400 IF mox > 507 AND mox < 540 AND moy > 70 AND moy < 80 THEN 20100 IF mox > 507 AND mox < 540 AND moy > 110 AND moy < 120 THEN 21300 GOTO 18300 18900 GOSUB 6000: GOTO 18300 19100 f = f - 1: IF f < 1 THEN f - 4 19200 GOTO 19500 19400 f - f + 1: IF f > 4 THEN f = 1 19500 ON f GOTO 19600,19700,19800,19900 19600 r = 0:s = - 1: GOTO 21000 19700 r = l:s = 0: GOTO 21000 19800 r = 0:s = 1: GOTO 21000 19900 r = - l:s = 0: GOTO 21000 20100 a = m(h,v) 20200 t = z * 2 ^ ( f - l ) : t = FN m(t / 128) 20300 IF t = 0 THEN 20600 205ÜÜ GOSUB 6000: GOTO 18300 20600 nm = nm + 1 \ WINDOW OUTPUT 2 LOCATE 23 PRINT PTAB(510)"HAREKET"nm WIND0W OUTPUT 3 20700 IF nm < 400 THEN w(nm) = f 20800 h - h + r:v - v + s 20900 IF v = 2 THEN 21500 21000 GOSUB 300 23100 GOTO 18300 21300 GOSUB 14700 21400 GOTO 18300 21500 WIND0W OUTPUT 3:CL3 : FRINT "tebrikler, "nm" adimda isi basardiniz." FOR zzz = 0 TO 6000:NEXT zzz 21600 GOSUB 6000: GOSUB 6000: GOSUB 6000 21700 v = vl:h = hl: GOSUB 14700 21900 x - INT (h * hz - hz / 2) + 1:y = INT (v * vz - vz / 2)+1 COLOR 3 22000 PSET (x,y) 22100 FOR n - 1 TO nm 22200 IF n > 400 THEN 22900 22300 f = w(n) 22400 IF f = 1 THEN v - v - 1 22500 IF f = 2 THEN h = h + 1 2260Ü IF f = 3 THEN-v = v + 1 22700 IF f = 4 THEN h = h - 1 22800 LINE –(INT (h * hz - hz / 2) + 1, INT (v * vz - vz / 2) + 1) 22900 NEXT n COLOR 1,4 23000 IF MOUSE(0) = 0 THEN 23000 GOTO 6400