Bu sayfadaki yazılar
Sayfanın metni
Sayfa 22
Yeni bir Abur Cubur yazısında daha birlikteyiz. bu ay sizlerden beklediğim performansı gösterdiniz. Posta kutumuza program paketleri ve köşemizi beğenen arkadaşlarımızın tebrik ve teşekkür mektupları yağdı. Umarım bu şekilde devam eder. Hazır fırsatını bulmuşken adresimizi SON BİR KEZ yayınlıyorum.
Programlarınızı acilen: CELAL HALLAÇ COMMMODORE DERGİSİ SAKIZ SOK. BERKEL AP. 6/4 KADIKÖY-İSTANBUL adresine postalayın. Evet, konuyu fazla uzatmadan hemen sevgili programcıları Abur başbaşa bırakıyorum. Sibel hanımdan aldığm bir mektup beni çok sevindirdi, dört yıldır Commodore 64 kullanan Sibel arkadaşımizin başarısını iki programını yayınlayarak ödüllendiriyor ve yeni programlarını dört gözle bekliyorum. Umarım bu girişim diğer hanımları da yüreklendirir.
SİMETRİ-1 © $0031 Sibel KUZGUN
Bu proğram, erkanın sol yarısının simetriğini sağ yarısına alır. Gerekirse ayrı ayrı kullanılabilmeleri için ya da standard karakter setinin ilk 128'inde istenilen değişikliklerin yapılabilmesi için, yapılan işleri üç ayrı parçaya böldüm. SYS 52224: Karakter setinin ilk 128'ini itibaren yerleştirir. SYS 52296: İlk 128 karakterin simetriklerini alır ve $C400'dan itibaren yerliştirir. Ekrani, $C800'a koyar. Bunu Basic programlama alanını kullanmak için yaptım. SYS 52374: Simetri alma (ekran).
Klavyeyle gezinmek için ← ve → tuşları.
Sayfa 23
SİMETRİ-2 e $0032
Sibel KUZGUN ADI SİMETRİ-2 Bu program, ekranın üst yarısının simetriğini alt yarı- REN KUZCUN sına alır. Simetri | programından tek farkı budur. Kul- 00020 FNP 1-52224 TO &2440:READ |, lanımıda aynı şekildedir. Gaza SYS 52224: Karakter setinin ilk 128'ini iti- 00040 STS 52206 ; <029> 00050 PRİNT "<CLR>":FOR 1-1 TO İ50:POKE 5 baren yerleştirir. 120011NTCRHDCİ | <009> SYS 52296: İlk 128 karakterin simetriklerini alır ve GET meli $C400'dan itibaren yerleştirir. Ekranı $C800'a koyar. Bu- 00080 SYS 52375 <099> nu Basic programlama alanını kullanmak için yaptım. m 100,8, 92, SYS 52374: Simetri alma (ekran). 00110 DATA 173,14,220,41,254, 2205 65,1 <084> 00120 DATA 41,251,133,1,160,0, 132, 251,169 Tuncay arkadaşımız ise bize “günü gününe yaş . <075> ç . . e ey 00130 DATA 133,252,132, 253, 169, 208, 179, 25 ve “makina dili programı İisteleyicisi” programlarını yollamış. kendisine çok teşekkür ediyorum ve hemen prog- ©0140 251,200, 192,0,208,247, 230, 3 <152> ramın açıklamasına geçiyorum. 00150 DATA 254,165,252,201,196,208,237,16 <246> 00160 DATA 4,133,1,173,14, 220,9, <15B> 00170 DATA 220,234, 160, O; 169, taz, 281, 133,252 00180 DATA 169,7,133,253,169, 196, 133, 254, 162,0 <253> 00190 DATA 208, 230,252 <057> 00200 DATA 198,253, 165, 253,201, 208, 2, 198,254 <247> 00210 DATA 232,224,8,208,231,165,253, Za, 1 05,16 00220 DATA 133,253,144,2,230, 165, 232, O <228> 00230 DATA 208, 212, 179, 262, lar, o <188> 002'40 DATA 169, 200; 136,2, 169, 4,208 : <15a> 00250 DATA 86, 169; 40; 133, 251, 169, 200, Yaz, 252,168 002860 DATA 169, 203, 183, (254,16 <046> 00270 DATA 2,182, 0,177, abı, 24) 105, 128, 145 1253 - 00280 DATA 230,251,;206, 2 230, 230, 253, 208,2 DATA 230,264; 232,224,40, Yaa, "232, 165 1253,56
00300
DATA 233, 80; 133, 253, 176, 2, 198, | 25: 30, 2 DATA, 165; 2; 201, 32, 211, Ba
M.D.P. LIST e $0033 Tuncay GÖKSU
Bu programla hafızadaki makina dili programların listesini döküm ekinde olduğu gibi ekranda görebilir ya da yazıcıya yollayabilirsiniz. Programın bir dezavantajı biraz yavaş oluşu.
Bu ay bilgisayarı en şişman olan Abur Cubur'cu arkadaşımız ise Ersin arkadaşımız. Bize tam 9 adet Abur Cubur yollamış ve onuncu yerine de bir not bırakmış. No- 5 tunu aynen size iletiyorum. Efendim, niye herkes herşeyi tam 10 sayısında yapmak ister? Benden de 9 program, Varsa itirazı olan, Eklesin bir program! Fakat malesef “teknik bir arıza” (kasedinin postada rahatsızlanması) sebebiyle sadece altı tanesini yayınlayabiliyoruz. Benim suçum değil fakat ben yine de hem sizden hem de arkada özür diliyorum. Kendisine çok teşekkür ediyor ve aynı şekilde devam etmesini temenni ediyorum.