Sayfa 87

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 -<x - hz,y) 15700 IF FN m(n / 4) - 0 THEN 16100 15900 PSET (x,y) 16000 LINE -<x,y - vz) 16100 NEXT i,j 16300 x - h * hz - i:y = v * vz - 1 COLOR 3 16400 PSET (x + l,y + 1) 16500 LINE -(x - hz + 2,y - vz + 2) 16600 PSET (x - hz + 2,y + 1) 1S700 LINE –(x + l,y - vz + 2)