Sayfa 74

Hatırlarsanız, ilk sayılarımızdan birinde bir Labirent programı yayınlamıştık. Bu ay yine bir Labirent programımız var. Tümer ve Burak TOGAN kardeşlerin Atari'den adapte ettiği program, 640*400 ve 320*200 modlarında çalışabiliyor. Kumanda Joystick ya da klavyeden yapılıyor. Klavye kontrolünde kullanılan tuşlar, ok tuşları. Beğeneceğinizden eminiz.

10 DIM m(41,24),mm(140),nn(140):a$="E #A":MID$(a$,4,1)=CHR$(127):k=6 22 p$="(J) & (K)" 30CLS 40 lOCATE 2 25 'PRINT "****************************" 50 LOCATE 3İ25 :PRINT "* 60 LOCATE 4,25 :PRINT "* 3 D L A B İ RE N T *" 70 LOCATE 5,25 :PRINT "* 80 LOCATE 6,25 .PRINT " "******************************** 81 FOR i=9 TO 11:LOCATE i,12:COLOR 1,2:PRINT " 82 NEXT i 90 LOCATE 10,16:COLOR 2,1 :PRINT "ATARI'den adaptasyon ":LOCATE 10,38:COLOR 1,2:PRINT " Tumer & Burak TUGAN " 130 FOR n=0 TO 40:FOR i=0 TO 22:m(n,i)=3 140 NEXT i:NEXT n.COLOR 1,0 141 LOCATE 13,5:PRINT " 1-640x200 cozunurluk":LOCATE 14,5:PRINT " 2-320x200 cozunurluk" 142 INPUT"secimlniz:";a

143 IF a=1 THEN c=640:v=2 144 IF a=2 THEN c=320:v=1 145 IF a<1 OR a>2 THEN a=0:GOTO 141 150 COLOR 3,2:LOCATE 19,5:PRINT pS 155 GOTO 4000 160 LOCATE 19,5:PRINT pS 230 LOCATE 21,5:PRINT "Lütfen biraz bekleyiniz!" 240 GOSUB 2000 245 SCREEN 1 c,200,2,v:WINDOW 2,„0,1:COLOR 3,2 , 247 GOTO 340 250 IF m(ai,aj)=4 THEN GOTO 370 260 q$=INKEY$:IF q$="a" OR q$="A" THEN GOSUB 2500 264 IF p=0 GOTO 286 266 q$=INKEY$:IF q$=CHR$(31) THEN j=dj:dj=di:di=-j:GOTO 330 268 IF q$=CHR$(30) THEN j=dj:dj=-di:di=j:GOTO 330 270 IF q$=CHR$(28) THEN ai=ai+di:aj=aj+dj:g=g+1 :GOTO 310 272 IF p=1 THEN GOTO 260 286 IF STICK(2)=-1 THEN j=dj:dj=di:di=-j:GOTO 330 288 IF STICK(2)=1 THEN J=dj:dj=-di:di=j:GOTO 330 290 IF STICK(3)=-1 THEN ai=ai+di:aj=aj+dj:g=g+1:GOTO 310 300 GOTO 260 310 IF m(ai.aj)<>3 AND m(ai,aj)<>0 THEN GO O 330 T 320 ai=ai-di:a =aj-dj:GOSUB 3800:GOTO 260 330 IF m aj)=4 THEN GOTO 370 (ai, 340 REM 350 CLS:LOCATE 3,47:COLOR 3,2:PRINT "Tumer & Burak TUGAN" 360 GOSUB 3000:GOTO 260 360 REM 370 REM 390 CLS 400 REM 410 REM 420 SCREEN CLOSE 1 CLS 425 LOCATE 9,9:PRINT " Tebrikler ";g;" adimda bitirdiniz !" 430 PRINT :CO OR 1,2:PRINT :PRINT :PRINT :PRINT " Tekrar için aya bas " L 440 q$=INKEY$ 450 IF q$="a" OR q$="A" THEN RUN 460 REM 470 GOTO 440 2000 ON ERROR GOTO 4100 2010 FOR n=2 TO 36:m(n,0)=2:m(n,22)=2:NEXT n 2020 FOR n=0 TO 24:m(2,n)=2.m(36,n)=2:NEXT n 2030 k=0:mm=18: n=10 n 2040 m(mm,nn)=2 2050 x=m(mm+2,nn):IF x=3 THEN 2100 2060 x=m(mm-2,nn):IF x=3 THEN 2100 2070 x=m(mm,nn+2):IF x=3 THEN 2100 2080 x=m(mm,nn-2):IF x=3 THEN 2100 2090 GOTO 2210 2100 th$=RIGHT$(TIME$,2):th=VAL(th$) 2102 RANDOMIZE(th) 2104 d=INT(RND*4)+1:ON d GOTO 2120,2130,2140,2150 2110 d=INT(RND*4)+1:ON d GOTO 2120,2130,2140,2150 2120 m1=-1:n1=0:GOTO 2160 2130 m1=0:n1=1:GOTO 2160 2140 m1=1 :n1 =0:GOTO 2160 2150 m1=0:n1=-1 2160 x=m(mm+m1*2,nn+n1*2):IF x=2 THEN 2100 2170 m(m +m1,nn+n1)=2:m(mrn+m1*2,nn+n1*2)=INT(RND*1.8)+1 m 2180 REM 2190 mm=mm+m1*2:nn=nn+n1*2:k=k+1:ON ERROR GOTO 4100:mm(k)=mm:nn(k)=nn 2200 GOTO 2050 2210 mm=mm(k):nn=nn(k):k=k-1 2220 IF k=0 THE GOTO 2240 N 2230 GOTO 2050 2240 BEEP 2250 mi=36:mj=22 2260 di=-1 :dj=0:ct=1 2270 FOR n=3 TO 33 2280 IF m(n,20)=2 THEN m(n,21)=0:ai=n:GOTO 2300