Sayfa 18

Bu ay da birkaç AMOS programımız var. Bunlardan ilki olan "SINIRSIZ BOB DEMO" isimli program, bazı demolarda bulunan ve bob iddiasıyla ortaya atılan, ancak gerçekte animasyondan başka şey olmayan bir efekt içeriyor. 512KB sahiplerinin, bu programı yazmadan önce, menüden “Set Text Buffer” seçeneğini seçerek text belleğini 4000'e indirmeleri gerekiyor. Aksi takdirde, hafıza yetmediğinden program çalışamıyor. Programı çalıştırdığınızda, AMOS disketinden bazı library rutinlerini yüklemek isteyecektir (Sin() ve Cos() fonksiyonlarından dolayı). İkinci programımız (daha doğrusu prosedürümüz), BASİT ANALYZER ismini taşıyor ve çalan müziğe göre kanalların durumlarını gösteriyor. Bu prosedürü kolaylıkla programlarınıza ekleyebilirsiniz. Ancak etkisini görebilmeniz için, AMOS formatında bir müzik yüklemeniz gerekiyor. Bu program, hem AMAL, hem de Rainbow komutlarına örnek teşkil ediyor. Üçüncü programımız ise sprite'lar ile yapılmış bir volume analyzer programı. İkinci programımızda olduğu gibi bunda da, AMOS formatında bir müzik yüklemelisiniz. Dördüncü programımız (prosedür) olan YAZI KAYDIRMA #1, bir kaydırma rutininden çok, ekrana yazı getirme rutini. İncelediğinizde oldukça basit olduğunu göreceksiniz. Son programımız olan YAZI KAYDIRMA ise, Data'larda bulunan metni, ekranı yukarıya doğru kaydırarak gösteriyor. Son data elemanının "*SON*" olması gerekmekte.

* PUL

Bu ayki köşemizi de, daha önceki aylarda yaptığımız çağrımızı yineleyerek sonlandırıyoruz: AMOS'la yaptığınız programları ve prosedürleri (* Posta pulu) gönderin ve bir AMOS program kütüphanesi oluşturalım ve herkes bundan faydalansın.

1993'ün Ocak ayında, yeni bir AMOS köşesinde karşınızda olmak dileğiyle...

ak ak * * İba AMOS (C) 1990 * tik: Europress Software, Ltd. vk

* * DEMO * *. * *

BASLA DESEN)| 152,120,132,0.02) DESEN|152,120,1320,0.2) FINAL

Procedure BASLA Close Editor Close Workbench Set Sprite Buffer 18 Hide

For Az0 To 7 Screen Open A,320,256,4,Lowres Curs Off : Cls O : Flash Off Palette

Next

R>8 For To 2 Ink 3-A Circle R,R,(R/2-A)*2 Paint R,R Next Get Bob 1,0,0 To R*242,R*242 Cis 0 End Proc TONO DESIA ACIYOESà

For A#—0 To F Step S# Add FL,1,0 To 3 If Add S,1,0 To 7 Screen To Front S Wait Vbi End If Screen SCR Add SCR,1,0 To 7

Paste Bob X,Y,1 R#—R#40.03 Next End Proc

Procedure FINAL RX#-156 : RY#—4 IX#-0.02 : IY#-0,015 Do For To 155.5 Step 0.02 Screen To Front SCR Wait Vbl Screen SCR Add SCR,1,0 To 7

Paste Bob X,Y,1 Next : İY#—-IY# Loop End Proc