Sayfa 87

NEXT a CLS ' FOR a=0 TO 4

LINE(d,c*a+e)-(b*4+d,c*a+e),2 : LINE(b*a+d,e)-(b*a+d,c*4+e),2 NEXT a a=0 : f=0 GOSUB Lne a=b+b GOSUB Lne f=c+c GOSUB Lne a=0 GOSUB Lne

FOR a=0 TO 42 : READ b(a) : GOSUB yedialtio : NEXT a RETURN

Lne:

LINE (d+a,e+f)-(2*b+d+a,2*c+e+f),2 : LINE (d+a,2*c+e+f)-(2*b+d+a,e+f),2 RETURN

yedialtio:

IF b(a)=2 THEN RETURN IF b(a)<0 THEN PUT (x(a),y(a)),cadi,PSET IF b(a)=0 THEN PUT (x(a),y(a)),kare,PSET IF b(a)>0 THEN PUT (x(a),y(a)),hayalet,PSET LOCATE yl(a),xl(a) : PRINT CHR$(l(a)) RETURN

istek:

d=0 : LOCATE 20,1

IF s=l THEN PRINT:PRINT "HAYALET" ELSE PRINT:PRINT "CADI" LOCATE 21,1 PRINT TAB (16) "BAŞLANGIÇ:"; Lpl:

e=e+l : K$= INKEY$ : IF K$=" THEN Lpl IF ASC(K$)=13 THEN GOSUB Bos : RANDOMIZE TIMER : GOTO ikio IF ASC (K$)<97 OR ASC (K$)>121 THEN Lpl PRINT K$ : a=n(ASC(K$)-97) : z=a Lp3:

LOCATE 23,18 : PRINT "BITIS:"; Lp2:

K$=INKEY$ : IF K$="" THEN Lp2 IF ASC (K$)<97 OR ASC (K$)>121 THEN Lp2 PRINT K$; : tl=n(ASC(K$)-97) ck=l : 1=0 : kl=0 : GOSUB aitmiş : ok=0 : h=0 : a=7 : IF a=36 THEN calim

Dm2:

GOSUB aitmiş : IF h> = l THEN calim a=a+l : IF a<36 THEN Dm2 calim:

IF d THEN dortyedio IF 1 THEN dortsekizo ses:

SOUND 99,5 : GOTO istek dortyedio:

IF 1=0 OR kl=0 THEN SOUND 99,5 : GOTO besbir dortsekizo:

IF kl=0 AND h>=l THEN ses f=z : t=tl : K=kl : GOSUB terk IF kl=0 THEN Quarterc a=t : z=a : h=0 : GOSUB altmiş