Sayfa 27

[A] BASIC tamsayılar için P ile Z arasında bir harf ile başlayan değişken isimlerini kabul edecektir. [B] 2500 eleman boyutunda bir dizi ya-

ratır. [C] Çıktı penceresini siler. [D] (0,0) ve (120,120) noktaları ile ta-

nımlanmış bir dikdörtgen çizer ve içini doldurur. [El ASPECT değişkenine 0.1 değerini

yerleştirir. [F] ASPECT 20 olduğu sürece aşa-

ğıdaki işlemleri yapar. [G] Merkezi (60, 60), yarıçapı 55, rengi

0 (mavi) ve elips parametresi = ASPECT olan bir elips çizer. [H] ASPECT değerini artırır. [I] ASPECT = 20 olduğunda dön-

güden çıkar. [J] Pencerenin bu kısmının içeriğini P

dizisine kopyalar. [K] Mouse durumunu kontrol eden

CheckMouse adlı bir rutin başlar. [Ll Mouse'un seçim düğmesine basılana kadar bekler. [M] Mouse X yönünde en az 3 nokta hareket etmişse, program MovePicture'a dallanır. [N] Mouse Y yönünde en az 4 nokta ha-

reket etmişse, program CheckMou- se'a dallanır. [O] MovePicture adlı rutini başlatır ve

P dizisine saklanmış resmi hareket ettirir. [P] Resmi eski yerleşiminden siler. [Q] Mouse'un yeni koordinatlarını X ve

Y'ye yerleştirir. [R] Resmi yeni X ve Y yerleşimine P di-

zisine kopyalar. [S] CheckMouse rutinine geri döner.

PROGRAMA YENİ BİR SATIR EKLEMEK:

Programa satırları arasına, ekrana ikinci bir elips çizdiren komut ekleyelim. Bu elipsin merkezi 200,60 ve yarıçapı yine 55 olsun. İkinci elips resminin mavi değil de portakal rengi çizilmesini sağlayalım.

Yeni satırı, ilk elips çizdirme satırı olan KUTU1'deki [G] satırı altına yazacağız. Bunun için önce CIRCLE komutunun bulunduğu satırın sonuna kursor'u yerleştirerek RETURN tuşuna basalım. Bu işlem, satırın altında boş bir satır açacak ve kursor'u buraya yerleştirecektir. Şimdi bu satıra yeni komutumuzu girebiliriz:

• CIRCLE (200,60), 55,3,,ASPECT Bu komutu girdikten sonra programı çalıştırırsanız, eklediğiniz komutun yarattığı değişikliği göreceksiniz.

BİR PROGRAM SATIRINI DEĞİŞTİRME:

KUTU1'de [J] harfi ile etiketlenmiş GET yönergesini ilave ettiğimiz satırla bağlantılı olarak değiştirelim. Komut satırının tamamını seçelim ve Edit menüden "Cut" komutunu seçerek satırı silelim. Bu işlemi yaptığımızda satırdaki komut silinir, ancak ilgili satır boş kalır. Bu boş satıra yönergeyi yeni şekliyle girelim:

GET (0,0)-(327,127),P Bu yeni GET yönergesi ile mouse kliklendiğinde hareket edecek alan arttırılmış olur.

Şimdi de 2500 elemanlık P dizisini 6000'e çıkartalım. Kursor'u boyutun tanımlandığı [B] satırındaki 2500 sayısına yerleştirdikten sonra istediğiniz şekilde silerek yerine 6000 yazın. Artık iki şekil mouse'u kliklediğinizde ya da çektiğinizde birlikte hareket edeceklerdir.

RENK DEĞİŞTİRMEK:

Biliyorsunuz programın çizdiği ilk elips mavi zemin üzerine beyaz bir dikdörtgen çizildikten sonra, buraya beyaz olarak yerleştiriliyordu. Gelin bunu ters çevirelim:

Önce kursor'u LINE yönergesindeki BF'nin sonuna yerleştirerek F harfini silelim.

İlk elipsi çizen CIRCLE komutunda [G] 0 olarak verilen renk numarasını 1 olarak değiştirelim.

Şimdi programı çalıştırdığınızda yeni program sonucunu göreceksiniz.

PROGRAMIN KAYDEDİLMESİ:

Programda yapacağımız değişiklikler bu kadar. Artık programı yeni şekliyle disketinize kaydetmelisiniz. Diskete kayıt için kullanılacak iki seçenek var: Her ikisi de Project menü altında bulunan Save ve Save As seçenekleri. Save programı yüklendiği isimle ve onun üzerine kaydeder. Yani eski program kaybolur, onun yerine yeni program yerleşir. Save As seçeneği ise, yeni bir isimle programı kaydetmek için kullanılır. Orijinal programa zarar vermemek için, siz de Save As seçeneğini kullanarak programınızı yeni bir isimle kaydetmelisiniz.

Bunun için: Project menüden "Save As" kalemini seçin. Ekrana program ismini gireceğiniz bir istek penceresi gelir. Pencerenin isim girilecek bölümünde programın orijinal ismi yazılıdır.

İsim kutusunu klikleyerek kursor'u yerleştirin ve ismin sonuna 1 ekleyin. Yeni program isminiz Basicdemos/picture 1 olacaktır.

RETURN tuşuna basarak ya da OK kutusunu klikleyerek programın diskete kaydedilmesini sağlayın.

Amiga BASIC başlık çubuğunda sıralanan 4 menü başlığı vardır: Project, Edit, Run, Windows. Menü seçeneklerinin klavye karşılıkları varsa komutun yanında belirtilmiştir. Şimdi bu menü seçeneklerinin ne işe yaradığını kısaca açıklayalım:

PROJECT MENÜ:

Program dosyaları ile ilgili işlemlerde kullanılan 5 seçeneğe sahiptir.

NEW: Amiga BASIC'e yeni bir program girişine hazır olmasını bildirir. O anda mevcut program listesini ekrandan ve bellekten siler. Çıktı penceresinden doğrudan modda yazılan NEW komutu ile aynıdır.

OPEN: Diskette mevcut bir programı çağırmak için kullanılır.

SAVE: Programı o anki ismiyle diskete kaydeder.

SAVE AS: SAVE ile aynı işleve sahiptir. Sadece program ismini değiştirmenize olanak sağlar.

QUIT: Amiga BASIC'e Workbench'e dönmesini bildirir. Çıktı penceresinden doğrudan modda yazılan SYSTEM komutu ile aynı işleve sahiptir.

EDİT MENÜ:

Edit menü program girişi ve editlemede kullanılacak 3 seçeneğe sahiptir. Bu seçenekler sadece liste penceresinde kullanılırlar.

CUT: Seçilen yazı parçasını liste penceresinden siler ve clipboard'a yerleştirir. Aynı işlem klavyeden Amiga-X tuşları ile yapılabilir.

COPY: Seçilen yazı parçasını liste penceresinden silmeksizin clipboard'a yerleştirir. Aynı işlem klavyeden Amiga-C tuşları ile yapılabilir.

PASTE: Clipboard'un içeriğindekiler ile o anda seçili olan kısmı değiştirir. Seçili bir şey yoksa, clipboard'un içindekiler kursor'un sağından itibaren yazının arasına sokulur. Aynı işlem klavyeden Amiga-P tuşları ile yapılabilir.

RUN MENÜ:

Programın çalışmasının kontrolünde kullanılan 6 komuta sahiptir.

START: Bellek ve ekranda yüklü bulunan programı çalıştırır. Çıktı penceresinde doğrudan modda RUN yazmak veya Amiga-R tuşlarına basmak da aynı işi yapar.