Bu sayfadaki yazılar
Sayfanın metni
Sayfa 86
100 zz = FRE (0) 200 GOTO 6400 800 n = 2 : a = h : b = v : f f = 2 ' ( f - 1 ) 900 CLS 1000 z = m(a,b) * ff 1200 IF FN m(2 / 16) - 0 THEN 1600 1300 rl = - 1: GOSUB 5400 1400 GOTO 2000 1600 w = m(a + s,b - r) * ff 1700 IF FN m(w / 128) = 0 THEN 2000 1800 rl = - 1: GOSUB 4600 2000 IF FN m(z / 64) = 0 THEN 2400 2100 rl = 1: GOSUB 5400 2200 GOTO 2800 2400 w - m(a - s,b + r> * ff 2500 IF FN m(w / 128) = O THEN 2600 2600 rl = 1: GOSUB 4600 2300 IF FN m(z / 128) = 1 THEN 3400 3000 n = n + 1: IF n > 8 THEN 3500 3100 a = a + r:b = b + s: IF b < 2 THEN 3500 3200 GOTO 1000 3400 GOSUB 3800 3500 RETURN 3800 PSET (vx + dx(n),yu(n)) 3900 LINE -(vx + dx(n),yd(n)) 4000 LINE –(vx - dx(n),yd(n)) 4100 LINE -(vx - dx(n),yu(n)) 4200 LINE -(vx + dx(n),yu(n)) 4300 RETURN 4600 PSET (vx + rl * dx(n - l),yu(n)) 4700 LINE -(vx + rl * dx<n),yu(n)) 4800 LINE -(vx 4 rl * dx(n),yd(n)) 4900 LINE -(vx + rl * dx(n - l),yd(n)) 5000 RETURN 5400 PSET (vx + rl * dx(n - l),yu(n - i)) 5500 LINE -(.vx + rl * dx(n),yu(n).) 5600 LINE - ( vx + r 1 * dx(n ).. yd( n )) 5700 LINE -(vx + rl * dx(n - l),yd(n - 1)> 5800 IF n > 2 THEN LINE (vx + rl * dx(n - l),yu(n – 1)) 5900 RETURN 6000 REM hata sesi BEEP 6300 RETURN 6400 RANDOMIZE T1MER 0500 DEF FN m(x) = INT (x) - INT ( INT (x) / 2) * 2 6600 fx = 36: INPUT "LÜTFEN LABİRENT BOYUTUNU GİRİN (h,v) ";h,v: PRINT 6700 h = INT (h):v - INT (v) 6800 IF h - 2 AND h < 31 AND v > 2 AND v < 31 THEN 7000 6900 PRINT "2<h<31 -- 2<v<3l": GOSUB 6000: GOTO 6600 7000 n = h * v - l:h - h + l:v = v + l:d - l:nm = 0 IF switch THEN ERASE m,w 7100 DIM m(32,32),w(400) : switch = 1 7200 FOR j - 1 TO v i- l:m(l,j) = 4:m(h + 1,0) = 1: NEXT j 7300 mx - 403:my = 183:vx = INT (mx / 2):vy = INT (my / 2):x - vx 7500 FOR j - 1 TO 8:dx(.i) = x:yu(j) - INT (vy - x * vy / vx) 7600 yd(j) = INT (vy + x * (my - vy) / vx):x = INT (x * 7 / 10): NEXT j 7700 FOR i = 2 TO h:m(i,v + 1) = 8:m(i,l) = 2 7800 FOR j - 2 TO v:m(i,j) = 15: NEXT j,İ 8500 r = INT (h / 2 + l):s = INT (v / 2 + l):m(r,s) = 15 8600 PRINT "labirenti oluşturuyorum.": GOSUB 6000 8900 FOR iw = 1 TO n 9000 i - 0 9100 IF m(r - l,s) < 15 THEN 9300 9200 i = i + l:c(i) = 1 9300 IF m(r,s - 1) < 15 THEN 9500
Klavyeyle gezinmek için ← ve → tuşları.
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)