1 Ocak 1988 Tarihli Commodore Gazetesi Sayfa 61

DT A ArR C 128 İçin Püf Noktaları (10) BURAK KİPER LİSTE PROGRAMI BASIC programlarınızın listesini printer'den aldığınız- da ne olduğunu anlayamadığınız veya sizin anlayıp da başkalarının anlayamadığı çeşitli şekiller görürsü- nüz. Veya PRİNT komutunda yeralan boşluğun ne ka- dar olduğunu hesaplayamazsınız. Eğer yazmış oldu- gunuz programın printer'dan çıkan listesinin anlaşılır olmasını İstiyorsanız Program Döküm Eki'ndeki PROGRAM3 (21. sayıya bakın)'ü yazın. Bu program sa- dece C-128'in BASIC 7.0'1 için çalışacaktır. Programı- mızın bize yapacağı bir iyilik de program satırların- daki komutlar arasına okunabilirliği sağlayacakboş- luklar yerleştirmesi olacak, Programı yazdıktan sonra LİSTE adı ile kayıt edin. Ka- yıt bittikten sonra çallıştırın. Kısa bir süre sonra prog- ram sizden bazı parametreler isteyecek E ekran B bü- yük harf yerine geçiyor. Son olarak LİSTE yazın. Karşı- nıza program formatlı olarak gelecek. Kontrol karak- terlerinin ters olarak basıldığına dikkat edin. İsterse- niz programın bir kopyasını printerden alabilirsiniz. Programımızı kullanarak başka programların liste- sini almak için aşağıdaki adımları uygulayın: V) POKE 46,192:POKE 49152,0:NEW Bu komut BASIC başlangıcını $C000O adresine alır. Eğer ? FRE(0) komutunu kullanırsanız 16K'dan daha az hafızanın kaldığını görürsünüz. I21 Programınızı LOAD “LISTE”,8 ile yükleyin. ',8” bu- rada çok önemli, bu şekilde program istediğimiz ad- res böylesine yükleniyor. (3) Listesini almak istediğiniz programı LOAD “prog- ismı”,8,4 ile yükleyin, ',8,1“ çok önemli, bu şekilde yük- lediğiniz program normal BASIC başlangıcına yükle- niyor ve bizim programımızı silmiyor. Programımızdaki DR değişkeni Dr-0 ise programın listesi ekrana, Dr— / ise printer ve ekrana gönderile- cek. Gerçek Zamanlı Saat Günümüzde zaman çok önemli bir unsur. Artık bir- 62 çok bilgisayarda kendi içinde çalışan bir sistem saa- ti bulunuyor. Bizim bilgisayarımızda da bu saati TI$ de- ğişkenini kullanarak ayarlamak mümkün, Ancak bu sadate güvenerek yola çıkarsanız yolda kalabilirsiniz. Günkü bu saat geri kalıyor. Program Döküm Eki'nde- ki PROGRAMA (21. sayıya bakın)'ü yazdığınızda geri kalmayacak bir saate kavuştunuz demektir. Program- da yeralan DATA satırların çoğu sprite tanımlamala- rına dit. Eğer isterseniz programı sprite'lar olmadan da çalıştırabilirsiniz. Sprite'lar olmadan programın ça- lışması için 780-1080 arasındaki satırları bu iki satır da dahil olmak üzere yazın. 950 numaralı satırı, 9S0 1F S 6298 THEN PRİNT"?HATA VAR”:END şeklinde değiştirin. 1070 numaralı satırı ise, 1070 DATA 24,105,48,153,255,3,136 şeklinde değiştirin. RUN STOP/RESTORE tuşlarına bastığınızda saatimiz kapanacak. C-128 DOS yardımcısı Commodore disket sürücüleri akıllı araçlardır. Ken- dilerinin RAM, ROM ve CPU'ları vardır. Bilgisayar dis- ket sürücüye komutlar verir. Disket sürücü de verilen komutları ne şekilde yerine getireceğine karar verir. Buraya kadar her şey iyi güzel ama kullanıcının dis- ket sürücü ile arasındaki iletişim pek iyi değil. Gerçi BASIC 7.0 sayesinde artık disket sürücü İle anlaşmak çok kolay ve zevkli ama yazılan komutlar birazcık uzun. Oldukça kısa sayılabilecek bir pProgram saye- sinde tek tuşa basarak disketle haberleşebileceğiz. Bunun için Program Döküm Eki'ndeki programı yaz- mak gerekiyor. Programın ne kadar yararlı olabileceğini göstermek için bir örnek verelim. Mesela disket işlemlerinde bir hata yaptınız ve kırmızı işık can sıkıcı bir şekilde ya- nıp sönmeye başladı. Normalde yapmanız gereken Şey, : 10 ÖOPEN 1,8,15:İNPUT - 1,H.DS,TS.S$ 20 ÇLÖŞSET 30 PRİNT H:D$;TS$S$ yazmaktı. Ama bizim programı yazıp çalıştırırsanız bü- tün yapmanız gereken '©' tuşuna basıp RETURN tüuşü- na basmak olur. Bu komutun BASIC 7.0'dak, karşılığı İse, PRİNT DSS