Sayfa 70

100 PRINT “FİYATI GİRİN-TL.”; 110 5:TYP - 1:GOSUB 10000

Bu sefer TYP değişkeninin değeri 1 oldu. LNG değişkenine 5 değeri verdik. Veri alanımızda dört rakam olmasına rağmen veri alanının uzunluğuna beş vermemizin nedeni noktanın veri alanında bir karakter sayılmasıdır. Eğer desimal nokta kullanılmazsa maksimum 99999 TL. miktarında veri girebilir. Bundan dolayı rutinden dönüldükten sonra alınan verinin geçerli olup olmadığının kontrol edilmesi gerekir. Etkisini görmek için PROGRAM1'i yazıp çalıştırın. Ancak çalıştırmadan evvel diskete veya kasete bir kopya saklamayı unutmayın. Kaset kullanıcısı iseniz 100 numaralı satırdaki 8'i 1 yapın. Bir numaralı programın diskette olmasına veya kasette ikinci programdan sonra kaydedilmiş olmasına dikkat edin. İkinci programı çalıştırdığınızda ilk program otomatik olarak yüklenecek.

BASIC PROGRAMLAR

Birçok programda bir grup karakter dizisini sıralamak gerekir. Program Döküm Eki'ndeki program4 basit bir sıralama programı. Kullanılan yöntem BUBBLE SORT. Program US$(n) dizisindeki verileri sıralıyor. Programda kullanılan ikinci önemli değişken NU. Bu değişkende sıralanacak veri miktarı bulunuyor. Aslında bu program başka bir programa alt program olacak şekilde hazırlandı. Bu rutini çağırmadan evvel sıralanacak verileri US$(n) dizisine yerleştirin. NU değişkenine veri miktarını verin. Bundan sonra alt programı çağırabilirsiniz: BUBBLE SORT sıralama yönteminde dizideki her eleman kendinden daha küçük bir elemanla karşılaşana kadar yükselir. Bu sıralama yöntemi 30 veya 40 elemana kadar tatmin edici olabilir. Bundan daha fazla elemanlı dizilerde bekleme süresi artar. Programın satır satır açıklaması:

140: Dizinin uzunluğu programınızda NU değişkenine verdiğiniz değere göre DIM komutu ile belirlenir. 210: Döngü birinci elemandan başlatılır. 220: Birinci elemandan başlamak üzere sıralanacak eleman sayısının bir eksiğine kadar döngüye girilir. 230: A$ değişkeni dizinin N1'inci elemanının değerini alır. 240: B$ değişkeni A$ değişkenindeki elemandan bir sonraki elemanın değerini alır. 250: A$'daki büyük eleman B$'daki elemandan ufaksa B$ olduğu gibi kalır. İç döngü N1 değişkeninin bir sonraki değeri ile devam eder. 260: Eğer B$ değişkeni A$ değişkeninden 270: ufaksa iki değişkenin içerikleri değiştirilir. 280: 290: İç ve dış döngüler arttırılır. 300: 310: 320: Sıralanan dizi ekrana basılır.

RAM DISK

AMIGA gibi bilgisayarlarda RAM DISK isimli çok kullanışlı bir özellik vardır. Bu uygulama ile bilgisayar belleğinin bir kısmı disket sürücü olarak kullanılır. Program döküm ekindeki Program5 çalıştırıldığında bilgisayarımız 8Kb'lik bir RAM DISK'e kavuşacak. RAM DISK bir disket sürücü gibi çalışmakla birlikte kalıcı değil, İçinde saklanan bilgiler bilgisayarın kapatılması ile yok olur. Buna karşın RAM DISK normal bir disket sürücüye göre son derece hızlı. Bu avantaj sayesinde program yazarken RAM DISK işleri son derece kolaylaştırır. RAM DISK'imizin kapasitesi maksimum 8Kb ve bir kerede sadece bir tek program saklayabilir. RAM DISK'in kullanımına bir örnek verelim. Mesela bir program üzerinde çalışırken disketten directory almanız gerekti. İlk olarak programınızı RAM DISK'e SAVE eder ondan sonra LOAD"$", 8 komutunu verirsiniz. İşiniz bittikten sonra RAM DISK'ten programınızı yüklersiniz. RAM DISK'in kolay kullanımı için BASIC'e üç yeni komut eklendi. Ancak komutların üçü de direkt modda kullanılabilir. Komutlarımız ve işlevleri:

<-- (sola bakan ok tuşu) : Hafızadaki programı RAM DISK'e kaydeder. 1 : RAM DISK'e kaydedilmiş programı hafızaya yükler. <: RAM DISK'teki programı siler.

RAM DISK'i sadece BASIC programlarla çalışırken kullanabilirsiniz. RAM DISK'e program SAVE etmeden evvel programınızın 8KB'dan ufak olup olmadığını kontrol edin. Eğer 8Kb'dan büyükse RAM DISK'e kaydedilmeyecek ve ekranda bir mesaj çıkacak. Programı yazarken DATA komutlarında dikkatli olun. Programı çalıştırmadan evvel diskete SAVE edin. Programı çalıştırmak için SYS 49152, durdurmak için SYS 64738 yazmanız gerektiğini belirten bir mesaj çıkacak. İkinci SYS komutu bilgisayarı yeni açılmış gibi yapar.

Programın kullandığı adresler:

2-3 ve 251-254 : Geçici kullanım için 40960-49151 RAM DISK 49152-49416 : Programınızın kendisinin bulunduğu bölge.

Şimdilik hoşçakalın...