Bu sayfadaki yazılar
Sayfanın metni
Sayfa 89
NEXT y GET (50,80)-(81,103),cadi FOR y=82 TO 100 FOR x=232 TO 245 READ col : IF col=50 THEN Nextxl PRESET (x,y),col Nextxl:
NEXT x NEXT y GET (230,80)-(261,103),hayalet RETURN
REM CADI DATASI 210 DATA 50,50,02,50,50,50,50,50,50,50,50,50,50,50,50.50 201 DATA 50,02,02,02,50,50,50,50,50,50,50,50,50,50,50,50 230 DATA 50,02,02,02,02,02,50,50,50,50,50,50,50,50,50,50 240 DATA 02,50,02,02,02,02,02,02,02,02,50,50,50,50,50,50 250 DATA 50,50,02,02,14,14,14,14,14,50,02,02,02,50,50,50 260 DATA 50,02,50,13,13,13,14,14,14,14,50,50,50,50,50,50 270 DATA 02,50,13,50,13,13,02,02,14,14,50,50,50,50,50,50 280 13,50,02,02,02,02,02,02,-50.50.50.50 DATA 50,50,50,50, 290 DATA 50,50,50,13,50,50,02,02,15,02,02,02,02,50,50,50 300 DATA 50,50,13,13,02,02,02,02,15,02,02,02,02,50,50,50 310 DATA 50,50,13,13,02,02,02,02,15,02,02,02,02,50,50,50 301 DATA 50,50,50,50,02,02,02,02,15,02,02,02.50.50,50,50 330 DATA 50,50,50,50,50,15,15,15,02,02,02,02,50,50,50,50 340 DATA 50,50,50,50,50,02,02,15,02,02,15,02,50,50,50,50 350 DATA 50,50,50,50,50,02,02,15,02,02,15,02,02,50,50,50 360 DATA 50,50,50,50,50,15,15,15,15,15,15,02.02,02,50,50 370 DATA 50,50,50,50,50,50,15,15,15,15,15,15,15,15,50,50 380 DATA 50,50,50,50,50,50,15,15,15,15,15,15,15,15,15,50 390 DATA 50,50,50,50,50,50,14,14,50,15,15,15,15,15,15,15 400 DATA 50,50,50,50,50,14,14,14,50,50,14,14,14,50,50,50
410 REM HAYALET DATASI 430 DATA 50,50,50,50,50,50,01,01,50,01,01,50,50,50 440 DATA 50,50,50,50,50,50,50,01,01,01,01,01,50,50 450 DATA 50,50,01,01,01,50,50,01,01,01,01,01,01,50 460 DATA 50,50,01,01,02,01,50,01,01,01,01,01,01,50 470 DATA 50,50,01,02,01,01,01,01,01,01,01,50,01,50 480 DATA 50,50,01,01,01,02,01,01,01,01,01,01,50,50 490 DATA 50,50,50,50,01,01,01,01,01,01,01,01,50,50 500 DATA 50,01,50,01,01,01,01,01,01,01,50,01,50,50 510 DATA 50,01,01,01,01,01,01,01,01,01,01,50,50,50 501 DATA 01,01,01,01,01,01,01,01,01,01,01,01,01,50 530 DATA 50,01,01,01,01,50,50,01,01,01,15,01,01,50 540 DATA 50,01,01,01,01,50,50,01,01,01,15,01,01,50 550 DATA 50,50,01,01,50,50,01,01,01,15,01,15,01,50 560 DATA 50,50,01,01,50,01,01,15,01,15,01,01,15,50 570 DATA 50,50,01,50,50,01,01,15,01,15,01,01,50,50 580 DATA 50-, 50, 50, 50, 01, 01,15, 01, 01,15, 01, 01, 50, 50 590 DATA 50,50,50,01,01,15,01,01,01,15,01,01,01,50 600 DATA 50,50,50,01,01,50,01,01,01,15,01,01,01,01 610 DATA 50,50,50,50,50,50,01,01,01,50,50,01,01,01
KONTROL DATASI
DATA -6,1,6,-1,-5,7,5,-7 DATA 7,3,7,3,7,0,3,7,3,7,3,0 DATA 7,3,7,3,7,0,3,7,3,7,3,0,7,3,7,3,7 DATA 2,2,2,2,2,2,2,-1,-1,-1,-1,-1.2 DATA -1,-1,-1,-1,-1,2,-1,-1,0,1,1.2 DATA 1,1,1,1,1,2,1,1,1,1,1,2,2,2,2,2,2,2
Klavyeyle gezinmek için ← ve → tuşları.
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