Bu sayfadaki yazılar
Sayfanın metni
Sayfa 18
1,0,0,"":MENU 2,0,0,"":MENU 3,0,0,"":MENU 4,0,0,"" RANDOMİZE DIM ke$(kelsay),sf/(255),kel$(20):FOR TO oyuncul$-"OYUNCUL": oyuncu2$-"OYUNCUZ" baslangic: GOSUB ilkacilis:GOSUB yenikelime:GOSUBR sor
harfseci İSsS$-INKEY$: IF UCASE$(is$)-"T" THEN sor
Klavyeyle gezinmek için ← ve → tuşları.
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