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

9400 i = i + l:c(i) = 2
9500 IF m(r + l/s) < 15 THEN 9700
9600 i = i + l:c(i) = 3
9700 IF m(r,s + 1) < 15 THEN 9900
9800 i = i + l:c(i) = 4
9900 IF i = 0 THEN 12300
10000 IF i < > 1 THEN i = INT ( RND (1) * i) + 1
10100 ON c(i) GOTO 10300,10800,11300,11800
10300 m(r,s) = m(r,s) - FN m(m(r,s))
10400 r = r - 1
10500 m(r,s) = m(r,s) - FN m(m(r,s) / 4) * 4
10600 GOTO 13400
10800 m(r,s) = m(r,s) - FN m(m(r,s) / 8) * 8
10900 s = s - 1
11000 m(r,s) = m(r,s) - FN m(m(r,s) / 2) * 2
11100 GOTO 13400
11300 m(r,s) = m(r,s) - FN m(m(r,s) / 4) * 4
11400 r = r + 1
11500 m(r,s) = m(r,s) - FN m(m(r,s))
11600 GOTO 13400
11800 m(r,s) = m(r,s) - FN m(m(r,s) / 2) * 2
11900 s = s + 1
12000 m(r,s) = m(r,s) - FN m(m(r,s) / 8) * 8
12100 GOTO 13400
12300 IF d - - 1 THEN 12700
12400 IF r < > h THEN 13100
12500 IF s < > v THEN 13000
12600 r = 2:s = 2: GOTO 13200
12700 IF r < > 2 THEN 13100
12800 IF s < > v THEN 13000
12900 r = h:s = 2: GOTO 13200
13000 s = s + l:d = - d : GOTO 13200
13100 r = 6 + d
13200 IF m(r,s) - 15 THEN 12300
13300 GOTO 9000
13400 NEXT iw
13500 mh = h:mv - v
13700 i = INT ( RND (1) * (mh - 1)) + 2
13800 m(i,l) = O
13900 m(i,2) = m(i,2) - FN tn(m(i,2) / 8) * S
14000 h - INT ( RND ( 1) * (mh - 1)) + 2
14100 hl = h:vl = v
1420ü G03UB 6000
14300 FRINT "labirent tamamlandi.": GOSUB 6000
14400 GOTO 17000
14700 hz = INT (mx / mh):vz - INT (my / mv)
14800 CLS
14900 PSET (1 + hz, 1 + vz)
15000 LINE -(1 + hz,mv * vz + 1)
15100 FOR j = 1 TO mv: FOR i - 2 TO mh
15200 it - m(i,.i):x - i * hz + l:y = j * vz + 1
15300 IF FN m{n / 2.) = 0 THEN 15700
15500 PSET (x,y)
15600 LINE -