Sayfa 23

Komutun formatı, [GLOBAL (değişken listesi)] şeklindedir. Değişken listesindeki değişkenler genellenir ve hem ana programda hem de PROCEDURE'ın içinde kullanılabilirler.

A=1000:B=42 GLOBAL A,B TEST PROCEDURE TEST A=A+B:B=B+10 PRINTA,B END PROC Bu programda, A ve B değişkeni genel- leştirilerek PROCEDURE içinde kullanıl- mıştır. Böylece sonuç ana programdaki A ile B nin değerlerine bağlıdır. [GLOBAL] komutu kullanılmasaydı, sonuç 0 olacaktı.

[ON...PROC] [ON...PROC] komutunun kullanımı, [ON...GOSUB] ile aynıdır. [ON (değişken) PROC (proc1,proc2,proc3...)] olarak kullanılır. Değişkenin değerine karşılık gelen PROCEDURE'ü çalıştırır.

[POP PROC] [POP PROC] komutunun işlevi, [END PROC]'a gelmeden PROCEDURE'den çıkışı sağlar. Normalde PROCEDURE çağrıldığında, bilgisayar [END PROC]'u görmelidir, zira görmeden asıl programa dönmez. Eğer [END PROC] konulmamışsa, Amos Basic sizi PROCEDURE'ü kapatmadığınızı sanarak ikaz eder. Kısacası [POP PROC], [END PROC]'u devreden çıkarır ve PROCEDURE'dan daha erken çıkış olayını sağlar.

GENELLEME END PROCEDURE GENELLEME FOR I=1 TO 20 IFI=10 THEN POP PROC NEXT I PRINT "BU TEXT HİÇ ÇIKMAYA- CAK"

END PROC Programda, [PRINT] komutu hiç devreye giremeyecektir. Çünkü 10'a kadar saymadan sonra [POP PROC] ile PROCEDURE'dan çıkılacaktır.

[EVERY...PROC] Bu komut, çok güçlü bir interrupt sistemi sayesinde sabit müddetle istenilen procedure'yi çalıştırır. Yazılımı [EVERY (sabit) PROC (isim)] şeklindedir. Buradaki sabit, bir üstteki komut ile aynı işlevi görmektedir. Önceki komut ile aynı anda EVERY ON komutu da kullanılmalıdır; yoksa rutin sadece bir kere kullanılır. Bu nedenle ana programa END PROC ile dönülmeden önce EVERY ON komutu kullanılmalıdır. Örneğin;

EVERY 50 PROC ALIŞTIRMA DO PRINT "ANA PROGRAM" LOOP PROCEDURE ALIŞTIRMA SHARED X INC X:PRINT "ATLAMA SIRASI";X EVERY ON END PROC

programında, ana menü döngüsü içerisinde belirli süreler içerisinde procedure'e atlar ve bu atlamaları sayar.

[BREAK ON/OFF] Normal koşullarda, programın herhangi bir yerinde [Ctrl+C] tuşları ile programdan çıkıp editöre dönülebilir. Fakat [BREAK OFF] komutu ile bu işlem iptal edilir ve çıkış için programın sonunu beklemek gerekir. Eğer döngü sonsuza kadarsa, o zaman bilgisayarı kapatmanız gerekecektir. [BREAK ON] ile, program kırılabilir hale getirilir. Bu komut programınızı başkalarının incelemesine izin vermemek için konulmuştur. Kısacası bir koruma şeklidir.

[MOUSE KEY] Yukarıda bir örnekte kullandığımız bu değişken, Amos Basic'in özel değişkenlerindendir ve mouse düğmesinin durumunu verir. Değer 1 ise sol, değer 2 ise sağ mouse düğmesine basılmış demektir. Amiga özel mouse'lar kullanabilmektedir. Bunlardan biri de 3 düğmelidir. Amos Basic, bu 3. düğmeyi de tanır. Eğer MOUSE KEY değişkeninin değeri 3 ise, 3. düğmeye basılmış demektir.

FORI=lTO 10000 IF MOUSE KEY=1 THEN PRINT "SOL BUTTONA BASTINIZ"

IF MOUSE KEY=2 THEN PRINT"- SAĞ BUTTONA BASTINIZ"

NEXTI programı, mouse'un hangi düğmesine basıldığını ekrana yazar.

Bu aylık bu kadar, gelecek aya kadar hoşça kalın.