Bu sayfadaki yazılar
Sayfanın metni
Sayfa 89
KEK SAATTE SA-SAHIN ÜÇÜ VE CECiM XONuy u
BİLMİYORUM. PER VOMAL TARAFI ŞART İPE EHLİYET KUR SUNDA OLMAM
HİKAYEM VAR ÇOCUKLAR DURUN
(OJuN Almış vE İNEŞEYLE EVİNE OYNAMAYA
GELDİĞİNDE İLK İŞİ DİSKETİ BİLGİSAYARA TAKMAK OLMUŞTU.
LışmıyoR.
YO OLAMAZ. OYUNUM ÇA
HADİ LÜTFEN ÜZME BENİ BİLGİSAYAR LÜTFEN ÇALIŞ.
acas
LÜTFEN
IÇMIŞ
BİLGİSAYAR İÇİNDEN BÖYLE ŞU ANDA OYUNUN DEMOSUNU ZEVKLE YOR.
HİÇ ZAMAN KAYBETMEDEN BİLGİSAYAR BAŞINA OTURDU OYUNU OYNAMAYA ÖYLE
DALMIŞTI Kİ,
Klavyeyle gezinmek için ← ve → tuşları.
Sayfa 88
16800 RETURN 17000 FOR x = 1 TO mh: FOR y = 1 TO mv 17100 m(x,y) = m(x,y) + m(x,y) * 16 17200 NEXT y,x 17500 f = INT ( RND (1) * 4) + 1 17600 ON f GOTO 17700,17800,17900,18000 17700 r = 0:s = - 1: GOTO 18100 17800 r = l:s = 0: GOTO 18100 17900 r = 0:s = 1: GOTO 18100 18000 r = - l:s = 0 18100 GOSUB 800 18200 ' 18300 IF MOUSE(0) = 0 THEN GOTO 18300 mox = MOUSE(5) moy = MOUSE(6)
IF mox > 474 AND mox < 516 AND moy > 82 AND moy < 90 THEN 19100 IF mox > 529 AND mox < 571 AND moy > 82 AND moy < 90 THEN 19400 IF mox > 507 AND mox < 540 AND moy > 70 AND moy < 80 THEN 20100 IF mox > 507 AND mox < 540 AND moy > 110 AND moy < 120 THEN 21300 GOTO 18300 18900 GOSUB 6000: GOTO 18300 19100 f = f - 1: IF f < 1 THEN f - 4 19200 GOTO 19500 19400 f - f + 1: IF f > 4 THEN f = 1 19500 ON f GOTO 19600,19700,19800,19900 19600 r = 0:s = - 1: GOTO 21000 19700 r = l:s = 0: GOTO 21000 19800 r = 0:s = 1: GOTO 21000 19900 r = - l:s = 0: GOTO 21000 20100 a = m(h,v) 20200 t = z * 2 ^ ( f - l ) : t = FN m(t / 128) 20300 IF t = 0 THEN 20600 205ÜÜ GOSUB 6000: GOTO 18300 20600 nm = nm + 1 \ WINDOW OUTPUT 2 LOCATE 23 PRINT PTAB(510)"HAREKET"nm WIND0W OUTPUT 3 20700 IF nm < 400 THEN w(nm) = f 20800 h - h + r:v - v + s 20900 IF v = 2 THEN 21500 21000 GOSUB 300 23100 GOTO 18300 21300 GOSUB 14700 21400 GOTO 18300 21500 WIND0W OUTPUT 3:CL3 : FRINT "tebrikler, "nm" adimda isi basardiniz." FOR zzz = 0 TO 6000:NEXT zzz 21600 GOSUB 6000: GOSUB 6000: GOSUB 6000 21700 v = vl:h = hl: GOSUB 14700 21900 x - INT (h * hz - hz / 2) + 1:y = INT (v * vz - vz / 2)+1 COLOR 3 22000 PSET (x,y) 22100 FOR n - 1 TO nm 22200 IF n > 400 THEN 22900 22300 f = w(n) 22400 IF f = 1 THEN v - v - 1 22500 IF f = 2 THEN h = h + 1 2260Ü IF f = 3 THEN-v = v + 1 22700 IF f = 4 THEN h = h - 1 22800 LINE –(INT (h * hz - hz / 2) + 1, INT (v * vz - vz / 2) + 1) 22900 NEXT n COLOR 1,4 23000 IF MOUSE(0) = 0 THEN 23000 GOTO 6400