Sayfa 19

IF AND ko2->18i THEN bilemediler IF koli->1B0 THEN oydeg ELSE END IF IF THEN *hiz) IF kol—>180 AND ko2->181 THEN bilemediler 1F THEN ELSE (288, ko2) (276 ND IF IF oysaysi AND öoy-—i THEN GÜTÜ amiga IF m THEN harfsec (0) 4 KEMOUSE (1) 4 (2) IF MOUSECLO) THEN harfsec IF y<162 OR y>18i THEN harfsec IF y>163 AND x>5i AND y<262 THEN hamlei: harfnos(x-54)/8 a$z-CHRS (harfnot*b5) bulsü FOR asi TO LEN(kelime$) IF THEN

bul-i COLOR 3,3:LOCATE 22,1:FRINT COLOR 3,7:LOCATE 28,1:PRINT IF yeri*hamle*3->306 OR yeri-hamle*3s<i THEN kazandi

Ter asi TÜ LEN(kelime$) F kel$l(a)<>"" THEN basi

NEXT IF baz0 THEN GÜSÜB buldu

IF bul-si THEN harfsec öydegi IF THEN : COLOR oyuncul$ COLOR 4,5:L0CATE PTAB(((110-LEN(oyuncul$) *8) /2)4184) oyuncuz$ zami-(TIMER-zal)*zami: za2-TIMER ELSE COLOR oyuncul$ COLOR 2,5:LOCATE 8,30:PRINT oyuncuz$ zam2-(TIMER-za2)-*zam2:ı END IF M-MOUSE (0) IF degissi THEN RETURN GOT0O hartfsec

bilemedileri GOSUB temizle COLOR 16,15