Sayfa 88

IF h<l THEN Quarterc besbir:

GOSUB Bos : d=l : GOTO Lp3

terk:

b(t)=b(f) : b(f)=0 : a=f : GOSUB yedialtio IF K THEN b(K)=0 : a=K : GOSUB yedialtio

a-t : GOTO yedialtio terk2:

IF b(c+ra(b)) THEN 160 sc=l+RND(l)*.9

IF h<sc THEN h=se : f = a : t=c+m(b) : K=c IF ek=0 THEN GOTO 160

IF tl=c+m(b) THEN 1=1 : kl=c : b=7 RETURN

Quarterc:

s = -s : h=0 : a=7 ikialtio:

IF a=36 THEN ikic GOSUB altmiş

IF h=0 THEN a= a+1 : GOTO ikialtio GOTO istek Bos:

LOCATE 21,1 :PRINT SPACE$(30); LOCATE 23,1 :PRINT SPACE$(30); RETURN

altmiş:

IF b(a)=0 OR b(a)=-s OR b(a)=2 THEN RETURN FOR b = 0 TO d(a-7)

c=a+m(b) IF b(c)=s OR b(c)=2 THEN 160 IF b(c) THEN terk2: sc=RND(l)*.9 IF h<sc THEN h=sc : f = a : t=c IF ck=l AND tl = c THEN 1=1 : b=7 160 NEXT:RETURN

ikic :

GOSUB Bos

LOCATE 20,1 IF s = l THEN PRINT "CADILAR KAZANDI i"; :GOTO basla PRINT "HAYALETLER KAZANDI i" : GOTO basla

basla:

LOCATE 23 1 PRINT "TEKRAR OYNAMAK İSTER MISINIZ? (E/H)" dongu:

K$=INKEY$:IF K$="" THEN dongu IF K$="e" OR K$="e" THEN RUN WINDOW CLOSE 2 : SCREEN CLOSE 2 : CLEAR : SYSTEM

hayaletyapimi:

PALETTE 14,.33,.13,0 : PALETTE 13,1,.81,.67 : PALETTE 15,.46,.46,.46 FOR y=82 TO 101 FOR x=58 TO 73 READ col : IF col=50 THEN Nextx PRESET (x,y),col Nextx: NEXT x