Sayfa 28

Çok çok uzun bir programı compile ettiğinizde, compiler programı bazen | “Program Structure Too Long mesajını verebilir. Bu durumda, programınızı *L opsiyonu ile compile etmelisiniz. ACMP KOMUTU İLE COMPILE ETME: AMOS COMPILER programını veya kopyasını disket sürücüye koyun; ancak, yüklenmesini ile durdurarak CLI'ya geçin. Ardından şu komutu vererek istediğiniz programı compile edebilir- | siniz: ('Program.AMOS' yerine kendi programınızın ismini yazın.)

| 1> AMOS SYSTEM/ACMP program-

“amos -Oprogram -T1 -DO0 -S0 -El Burada örnek olarak verdiğimiz parametreler ile, *program.amos' isimli progrTamımız, “program' adı altında, hata mesajlarını da içerecek şekilde (-E1), default ekran açılması engellenerek (-SO), compile işleminde minimum RAM kullanılarak CLI modunda (-T1) compile edilir. “-0O” parametresinde hedef dosyanın path'ını belirtmediğimiz için, o anki path kullanılarak, açılışta kullanılan diske kaydedilmek istenir. Artık, şu komutu kullanarak programınızı çalıştırabilirsiniz: 1> program Compile KOMUTU İLE CÖMPILE ETME: AMOS COMPİLER diskini takın ve AMOS yüklenene kadar bekleyin. Ardından, direkt moda geçin ve eğer hafızanız 512K ise Close 0” ile default ekranı kapadıktan sonra şu komutu deneyin: yerine kendi programınızın ismini yazın.) AMOS> Compile "Program- *AMOS -Oprogram -T1 -DO0 - SO-E1" Bu compile işlemi ve anlamları için ACMP komutunun açıklamasına bakınız. Sevgili arkadaşlar! Kusura bakmayın, AMOS 1.3'ün ekstra komutlarını yer sorunu nedeniyle bu ay veremedik. İnşallah gelecek aya... Hala program göndermemekte ısrar ediyor olmalısınız. Bu direncinizi kırmak için ne yapmak gerekli? A bientot !

akk ak * AMOS (C) 1990 * Europress Software, Ltd. * * ** PALET DEĞİŞTİRME PROG. * *

A$-Fsel$("","","Bir IFF Resim Seçiniz") If A$—"" Then Edit Load Iff A$,0 DISCOLOUR)|0,2,21

BOSdure SCR. CONT

IS-Screen Goto SCR CONT

SCRS»LefSISCRS.LeNSCRS)-I)+*O*

SCR CONT: On Error Goto HELP For A-B To 7 SCR$-SCR$4"1" : BzA Screen A Next

Screen 1S End

Procedure DISCOLOUR(FR,YR,CR)| Dim W(5),Y(2) SCR CONT Screen To Front Screen Colour : Paper FR If Then Pop Proc If YR>SC or FR>SC Then Pop Proc If CR>SC or FR<-CR Then Pop Proc SCW-Screen Width Height If SCW<80 or SCH<160 Then Pop Proc Limit Mouse 128,42 To SCW-4-128,SCH 450 XX-X Curs : YY-Y Curs : Curs Off Reserve Zone SC420 Get Cblock 4114,0,0,80,160 Cls FR,0,0 To 80,160

Pen YR : Ink CR,FR For Az0 To 15

göstergesini "ekrana basar.

A$-SIr$(A)-" " If A>9 : Read A$ : End If Text 41,127-A*8,A$

IFA<8 SCR$-Param$ SCR- Val(Mid$(SCR$,A41,1))

If If SC>2 If Pen 3 Else Pen YR End If End 1f Locate A41,18 Print Str$(A)-" "; : Pen YR Set Zone A41,A*848,144 To A*84-16,152 End If End If

'R, G, B kutularını 'çizer ve set zone "komutuna tanımlar.

W(A)-56 Box D,0 To D48,129 Set Zone 94A,D,2 To D48,127 End If Next Locate 0,17 : Print "OK" Set Zone 12,0,136 To 16,144 For To SC-I

"renk kareciklerini" ekrana basar ve "set zone" komutuna tanımlar. B1=(A/4+1)*8-6

B2-B146 mod 441)*10 Cis To A1,B2 Set Zone A413,A1-8,BI To A1,B2 Next Do “mouse ile hangi "ikona basıldığını “kontrol eder. If NoO

Repeat While Mouse Key Multi Wait Wend Repeat Repeat Multi Wait Zone Until M>O N=M : MK=0

and NEM Multi Wait : MK-Mouse Key N—Mouse Zone

Wend If Y-Y Screen(Screen) YzInt(Y/8) Exit 2 End If Until MK Until and M<>0 End If

If N-0 Then : and N<8

"ekran değiştirilirken "eski blok eski ekrana