Sayfa 26

i REM SÜLÜ TEST 64'LER ADAFPTED BY DR.ALİ <101> 2 PRİNT" EE" 3 <042> 4 DATA 1â,164,4,72,10,16,25,16,37,16,82,16,76,& <066> 5 6 PRİNT" ; <253> 3 1-0 Tü 60 STEP 3:READ A,B:PÜKE 83Z41,A:POKE 83341,B: <067> 10 PÖKE Z040,13 ZgzX$4t "3PRİNT Z&" <109> 20 PRİNT Cg:FPRINT X$; <003> 25 PRİNT" AAA": <110> 30 FRİNT D$:PRİNT X$; <102>

35 PRİNT X$" Z&B$:PRİNT C$&:PRİNT <097>

40 PRİNT Z$" PRİNTEPRİNT" ÜYÜN" <123> 15 VES3248:PÜKE V439,0:X5181:Y-153: <115> 30 PÜOKE V,X:PÜKE <172> 15 Z$:1F Z$gs"YUTHEN 4 O İF AND A<>2 AND AND A<>8 AND A<>1İ6 THEN ö5 <241> '5S IF A<4 THEN 30 ÖR ÜR ((X<165 ÜR X>197) AND (Y<137 ÖR Y>169))THEN 65 <184> İF A<9 AND A>Z THEN TFCXSL33 ÜR ÜR ÜR X>197) AND ÖR Y>M))THEN 65 <040> '5 İF A<i6 THEN PÜKE V,X:PÜKE 65 <228B> OO <125>

05 AND ÜR AND (E AND Y-YS)))THENS5S <062>

1Ö IP THEN TYz1 15 20 YS*LEY ÜR YösY

TO 250:NEXT:GÜTÜ 65

:FÜRTYs1 Tü 250:NEXT:GÜTÜ65 <177>

ÜR <207>

25 <167> 30 <155> 35 IF ÖR PEEK(W)<>8i THEN 65 <237> â40 PÜKE W, <195> 45 İF THEN PRİNT:PRİNT"BRAVOİ EBPACENM":VAIT 203,32:GOTÜ4 <109> Ra G0TN 65 <192>

Bu ayki sayımızda hepinizin yakından tanıdığı bir zekâ oyununu BASIC olarak veriyoruz. Bu programı verme gayemiz, hem zekânızı kontrol etmeniz, hem de bu kadar kısa satırla işe yarar bir şeyler yapılabileceğini vurgulamak. Ayrıca bu programda Hİ-RES ve Joystick kontrolü için önemli püf noktaları yakalamak. Program satırlarındaki grafik sembolleri kolay yazmanız için aşağıda yararlanılan tuşları açıklıyorum. Dr. Ali-Bakırköy satır no: 2 Control-8 satır no: 6 Shift-Clr/Home satır no: 15. Cmd-A,R,S/Shift-Yıldız Cmd-A,W Shift 4, yıldız satır no: 25 Cmd-A,R,S Shift 4, yıldız. Shift-A Cmd-A,W Shift 4, yıldız satır no: 35 Cmd-Z,E,X Shift 4, yıldız satır no: 40 Cmd-Z,E,X Shift-yıldız satır no: 145 Control 9,0 Not: İsteyen okuyucularımız programın yazılmasını dergimizden ücretsiz alabilirler.