Sayfa 20

KOLON Z$ 14 7 16 8 18 9 20 * 2 44

Bunların dışında bir kolondaysak, ciddiye almıyoruz. 9. satırdaysa da aynı şekilde 7300'e gidip ilk üç kolon değerine göre Z$'a “4”, “7”, “2” veya “3” veriyoruz. “4” tuşumuz beş karelik olduğuna göre burada OR kullanarak beş değeri birden kontrol etmek saçma olur. Bu yüzden AND kullanarak

“kolon büyük-eşit 20 ise VE küçük-eşit 25 ise Z$'a “4” ver.” dememiz daha yerinde olur. 11. satırsa sıçradığımız 7400. satırda ise değişik bir şey yok. Sadece Z$'a “0”, “N” veya “-” veriliyor. Burada dikkat etmeniz gereken şey, okun şu anda olduğu pozisyonu değil de son ateşe basıldığı koordinatı kontrol etmek olmalı. Okun şu anda bulunduğu koordinatlar yalnızca çizim programı gibi garip şeyler yapıyorsanız işinize yarayacaktır. Okla ekrandan bilgi almak için kullanılacak genel yaklaşım buradaki gibi olmalıdır. Ekranı satırlara ya da kolonlara bölün (Eğer satırlar düzenliyse satırları, kolonlar düzenliyse kolonları kontrol edin ilk olarak). Daha sonra her satır (ya da kolon) için belirlediğiniz yere sıçrayarak kolon (ya da satır) kontrolünü yapın. Programda geriye kalan yerlerde pek de ahım şahım şeyler yok. Daha çok hammallık kısımları bu satırlara atılmış. Mesela 9000. satırda EKRAN$ ekrana yazılacak değeri alıyor. Eğer ekrana yazılacak olan değer ekrandan büyükse hiç düşünmeden 9030. satıra atlayarak yapıştırıyoruz, ekranı temizleyip sayıyı buraya yazıyoruz ve geri dönüyoruz. 9800. satırdaki alt program tüm argümanları, işaretleri ve RAKAM'ı sıfırlıyor. Daha sonra X'e de 1 verip geri dönüyor. Yani bu işte, 9900. satırdaki program ise kursoru 3. satır 14. kolona alıyor ve geri dönüyor. Bu sayede hesap makinesinin ekranına yazmak için GOSUB 9900 deyip, sonra PRINT kullanmanız yeterli. Evet, bu aylık açıklayacağım program bu kadar. Yapılabilecek en iyi hesap makinesi programı olmadığının farkındayım, ama programın asıl amacı okun kullanımını açıklamak olduğuna göre bu kadarla idare edin. Yazının başında da söylediğim gibi her türlü programınızı bekliyorum. “Disketim ya da kasedim diye de üzülmeyin, posta pulunu yolladığınız zaman içinde başka bir şeyler bulunarak (vaktim olduğu zaman) size döneceğinden emin olabilirsiniz. Bu aylık da bu kadar. Atölye'de incelenmesini istediğiniz konular olursa bana iletmekten çekinmeyin. İlk fırsatta özel konulara değinmek benim de hoşuma gidecektir. Gelecek aya kadar hepiniz hoşçakalın.