Bu sayfadaki yazılar
Sayfanın metni
Sayfa 20
FPRINT FTAB(108) "NE YAZIK KI ":LOCATE 17,15
degis-i:GOSUB oydeg temizle:GOSUB yenikelime:GOSUB kelimeyibul
harfsec buldu: GOSUB temizle COLOR 7,34L0CATE 16,13 PRINT LOCATE 17,1
FRINT PTAB(124) "BULDUNUZ"
IF oysaysi AND oy-i THEN GOSUB. temizle:LOCATE 16,18:FRINT “BEN":LÜCATE 17,12FPRINT PTAB(125) "BULDUM"
ses: m-MOUSE (0) GOSUB devam:GOSUB temizle:GOSUB kelimeyibul:GOSUB yenikelime:GOSUB kolonlar RETURN LINE ses BOSUB temizle:COLOR 7,3 LOCATE 16,152PRINT "!!!TEBRİKLER!!!" IF THEN ELSE LOCATE 17,1:PRINT FTAB(((170-LEN(oyu$) *8) /2) 469) şoyu$ LOCATE 18,15 FRINT “KAZANDINIZ":LINE(8,214)-(299,223),14,btf IF oysaysi AND THEN GOSUB temizle:LOCATE 16,18:FPRINT “BEN":LOCATE
END (0) LOCATE 19,15:FRINT “——-DEVAM--":GÜSÜB devam
GOTÜ sor yenikelime: zal-zalı zaml-öÖ: zam2s-ö0ö: zaszINT(TIMER) RETURN ilkacilis' FOR asi TO kelsay:READ ke$la):NEXT: RETURN temizle: LİNE (69,1153)-(237,151),3,bit RETURN kelimeyibul: COLOR 7,3 GOSUB temizle:LÜCATE 16,12:FPRINT “--NURHAN SEYAHI--"
LOCATE 18,15:FPRINT "—-SUNAR—-" RETURN
sor: LINE(8,214)-(299,223),14,btf 16,16:FRINT "YENİ OYUNA":LOCATE 17,1ii FPRINT “BASLAYACAKMISINIZ?":LOCATE ilk: ce$-"" THEN ilk
IF THEN terket GOSUB temizle:COLOR HIZINI":LOCATE 17,1
FPRINT FTAB(115)"BELİRTİNİZ":LOCATE 19,17 FRINT "(1/9) ikı: İF ce$-"" THEN iki
IF ASC(ce$)<49 OR ASC(ce$)>57 THEN iki hizsASC(ces)-48 GOSUB temizle:COLÜR 7,3:LOCATE 16,13:PRINT"OYUNCU SAYISINI":LOCATE 17,1
FRINT PTAB(115) "BELİRTİNİZ":LOCATE 19,17:FRINT "(1/2)"
Klavyeyle gezinmek için ← ve → tuşları.
Sayfa 21
kalsASC(ce$s)-48 IF kalsi THEN AMIGA " ELSE oysay-2:oyuncu2$-"OYUNCUZ" k COLOR 24*(2#0o0y),S5S:LOCATE 8,30:PRINT *8) oyuncuz$ COLOR 4—-(2*0y),S:LOCATE PTAB(((110-LEN(oyuncul$)*8)/2)410) oyuncul$ IF oysay-s2? THEN gec GOSUB temizle:COLOR 7,3:LO0OCATE 16,13:PRINT"OYUNUN ZORLUĞGUNU":LOCATE i7,i PRINT PTAB(115) 19,17:PRINT "(1/9)" dorti ce$-"" THEN dort: IF ASC(ce$)<49 OR ASC(ces)>58 THEN dort zorluksASC(ces)-48 gec:
zal-TIMER: zam?sü zasINT(TIMER) kelimeyibul:GOSUB yenikelime:GOSUB kolonlarıyelsiS5i
devam: IF INKEY$<>"" THEN devam IF MOUSEC(O)-0 OR THEN devam IF MOUSECİ)>68 AND AND AND MOUSE(2)<15i THEN
RETURN ELSE GOTO devam END IF
terketi ; SCREEN CLÜSE RESET:END
IF *RNDezorluk/9)) THEN
FOR azi TÜ LEN(kelime$) IF THEN xaza
NEXT KESALCASC(kel$ina))-65) #8 ELSE KSINT (RND#*208) *54
DATA “BUZDOLABI", "ARABA", "BICAK", "FUTBÜL."
DATA “KASATURA", "PIRLANTA", "KALORİFER", "RADYATOR" DATA "TIMSAH","KANDIL", "HASAT", "VASAT", "KUTUPHANE" DATA "ACELE", "SINEMA", "ADAPTOR", "MUREKKEF" , "KAPI", "KALE", "SATRANC"
DATA "KALEM", "KİTAP", "SILGI", "KARANLIK", "LAMBA" DATA "MASAL", "ISTATISTIK", "SOZLUK" DATA “ANSIKLOPEDİ", "TELEVİZYON", DATA DATA DATA a7 yil