1 Mart 1988 Tarihli Commodore Gazetesi Sayfa 70

100 PRINT “FİYATI GİRİN-TL.”; 110 LNG - 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 ol- masına rağmen veri alanının uzunluğuna beş vermemi- zin nedeni noktanın veri alanında bir karakter sayılma- sı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. Programl'in etkisini görmek için PROGRAM?2'yi ya- zıp çalıştırın. Ancak çalıştırmadan evvel diskete veya ka- sete bir kopya saklamayı unutmayın. Kaset kullanıcısı ise- niz 100 numaralı satırdaki 8'i 1 yapın. Bir numaralı prog- ramın diskette olmasına veya kasette ikinci programdan sonra kaydedilmiş olmasına dikkat edin, İkinci progra- mı çalıştırdığınızda ilk program otomatik olarak yükle- necek. 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 DUBBLE SORT. Program US$(n) dizisindeki verileri sıralıyor. Program- da 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ırlan- dı. 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. DUBBLE SORT sıralama yönteminde dizideki her ele- man kendinden daha küçük bir elemanla karşılaşana ka- dar 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şkeni- 70 ne verdiğiniz değere göre DIM komutu ile belirlenir. 210: Döngu birinci elemandan başlatılır. 220: Birinci elemandan başlamak üzere sıralanacak ele- man 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 240 EB$ 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 ufak- sa B$ olduğu gibi kalır. İç döngü N1 değişkeninin bir son- raki 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 kul- lanışlı bir özellik vardır. Bu uygulama ile bilgisayar bel- leğinin bir kısmı disket sürücü olarak kullanılır. Program döküm ekindeki Program5 çalıştırıldığında bılgısayanmız &Kb'lik bir RAM DISK'e kavuşacak. AM DISK bir disket sürücü gibi çalışmakla birlikte kalıcı değil, İçinde saklanan bilgiler bilgisayarın kapatıl- ması ile yok olur. Buna karşın RAM DISK normal bir disket sürücüye göre son derece hızlı. Bu avantaj saye- sinde program yazarken RAM DISK işleri son derece ko- laylaş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 alma- nız gerekti. İlk olarak programınızı RAM DISK”'e SA- VE eder ondan sonra LOAD*“*$”, 8 komutunu verirsi- niz. İş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. T ©: RAM DISK'e kaydedilmiş programı hafızaya yük- ler. <: RAM DISK'teki programı siler. RAM DISK'i sadece BASIC programlarla çalışırken kullanabilirsiniz. RAM DISK'e program SA VE etmeden evvel programınızın 8KB'dan ufak olup olmadığını könt- rol edin. Eğer 8Kb'dan büyükse RAM DISK'e kaydedil- meyecek ve ekranda bir mesaj çıkacak. Programı yazarken DATA komutlarındâ dikkatli olun. Programı çalıştırmadan evvel diskete SAVE edin. Prog- ramı ç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 DİSK 49152-49416 : Programınızın kendisinin bulunduğu böl- ge. ş Şimdilik hoşçakalın...