Amiga Dunyasi - Sayi 02 (Temmuz 1990).pdf - Retro Dergi

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
AMÎGA DÜNYASI 95