1 Ekim 1990 Tarihli Commodore Gazetesi Sayfa 48

Kayan Yazılar - $0009 İste sizlere BASIC diliyle yazılmış kısa bir yazı kaydır- ma altprogramı. Programı çalıştırmak için önce A$ de- Bişkenine yaklaşık 45 tane boşluk yerleştirmeniz, sonra da ekrandan geçmesini istediğiniz yazıları aynı değişke- ne eklemeniz gerikmektedir. Eğer yazıların ekranda çı- karak kaybolmasını istiyorsanız A$'e 40 tane daha boş- - luk eklemeniz gerekiyor. Bu arada A$ değişkeninin uzun- luğunun 255 karakteri geçmemesine dikkat etmeniz ge- ı'ekıyor Eğer daha uzun bir mesaj yazmak isterseniz, me- sajı parçalara ıı.yıı'ara.k he.r parçayı ayrı ayrı kaydırma yo- kulla.uaı'ak mesajınızı tanımla- 'lirtmeye geldi. SA değişkenine mesajınızı kaydırmak is- tediğiniz satırın numarasını koyarsınız (ilk satırın numa- rası 1'dir.) hazırlık safhanızı ş olursunuz. Ar- tık istediğiniz zaman GOSUB 9000 komutuyla yazınızı kaydırabilirsiniz, İK CD PROGRAM ADI © KAYAN YAZILAR 60018 ıu--uım:cum DERGİSİ" — <067) A$4*C4SSPACE )" — gaBı) o00380 SA-101605UB SO0B1END <153) 69000 Te l (103) 88010 PRİNT qııcı-.ıııs SA>I THEN FORR *ÇDOKN) " <238) od€26 PRINT MIDECAS,T.d0)1TATSLIFOR Ki T NEXT <eaı)> 09030 1F T-ı.:maıı-ıı THEN — RETURN (608) 69040 GOTO 90 <186) Başlanıç Adresi - $OOOA Eminim hepiniz birçok kez makine dili programları- nızın hangi adresten başladığını unutmuşsunuzdur. Bu- na karşı alınabilecek en iyi önlem programlarınızın adı- nın yanına başlangıç adresinin ne olduğunu yazmaktır. Ama bu yolla program kaydettiğiniz zaman program is- mi için ayrılan ve zaten Çok kısa olan yerin bir kısmını feda etmeniz gerekmektedir. Yapabileceğiniz başka bir şey de bir program başlangıç adresi bulucu kullanmak- tır. Burada yayınladığımız program bu işi kısa yoldan hal- letmektedir. Bildiğiniz gibi 1541 disket sürücünüz dos- yaları (PRG tipinde olan) saklarken en başına başlangıç adresini yazar. Yani programı okuması gereken bir dos- ya gibi açar ve ilk iki baytını incelerseniz programın baş- langıç adresini kolayca bulabilirsiniz. Programımız bul- duğu başlangıç adresini hem 10 hem de 16 tabanına göre dır. Daha sonra da disketin hata kanalını oku- yarak oluşabilecek hataya karşı sizi uyarır. Bundan son- ra herhangi bir tuşa basarak başka bir programın baş-