Amiga Dunyasi - Sayi 30 (Kasim 1992).pdf - Retro Dergi

Çok çok uzun bir programı compile ettiğinizde,compiler programı bazen'Program Structure Too Long Error' mesajınıverebilir. Bu durumda, programınızı-L opsiyonu ile compile etmelisiniz.ACMP KOMUTU İLE COMPILEETME:AMOS COMPILER programını veyakopyasını disket sürücüye koyun; ancak,yüklenmesini 'CTRL+D' ile durdurarakCLI'ya geçin. Ardından şu komutu vererekistediğiniz programı compile edebilirsiniz:('Program.AMOS' yerine kendiprogramınızın ismini yazın.)1> AMOS_SYSTEM/ACMP program-.amos -Oprogram –T1 -D00 –S0 –E1Burada örnek olarak verdiğimiz parametrelerile, 'program.amos' isimli programımız,'program' adı altında, hata mesajlarınıda içerecek şekilde (-E1), defaultekran açılması engellenerek (-S0), compileişleminde minimum RAM kullanılarak(-D00), CLI modunda (-T1) compile edilir.'-0' parametresinde hedef dosyanınpath'ını belirtmediğimiz için, o anki pathkullanılarak, açılışta kullanılan diske kaydedilmekistenir.Artık, şu komutu kullanarak programınızıçalıştırabilirsiniz:1> programCompile KOMUTU İLECOMPILE ETME:AMOS COMPILER diskini takın veAMOS yüklenene kadar bekleyin. Ardından,direkt moda geçin ve eğer hafızanız512K ise 'Screen Close 0' ile default ekranıkapadıktan sonra şu komutu deneyin:('Program.AMOS' yerine kendi programınızınismini yazın.)AMOS> Compile "Program-.AMOS -Oprogram –T1 -D00 -SO-El"Bu compile işlemi ve anlamlaniçin ACMP komutununaçıklamasına bakınız.Sevgili arkadaşlar! Kusurabakmayın, AMOS 1.3'ün ekstrakomutlarını yer sorunu nedeniylebu ay veremedik. İnşallahgelecek aya...Hala program göndermemekteısrar ediyor olmalısınız. Budirencinizi kırmak için ne yapmakgerekli?A bientot!'*****************************'* *'* AMOS (C) 1990 *'* Europress Software, Ltd. *'* *'* PALET DEĞİŞTİRME PROG. *'**********************************'A$=Fsel$("","","Bir IFF Resim Seçiniz")If A$="" Then EditLoad Iff A$,0DISCOLOUR[0,2,2]'Procedure SCR_CONTB=0IS=ScreenGoto SCR_CONTHELP:SCR$=Left$(SCR$,Len(SCR$)-1 )+"0"Resume NextA=BSCR CONT:On Error Goto HELPFor A=BTo7SCR$=SCR$+"1": B=AScreen ANextScreen ISEnd Proc[SCR$]Procedure DISCOLOUR[FR,YR.CRJDim W(5),Y(2)SCRJTONTScreen To Front ScreenSC=Screen Colour: Paper FRIf SC=4096 Then Pop ProcIf YR>SC or FR>SC Then Pop ProcIf CR>SC or FR=CR Then Pop ProcSCW=Screen WidthSCH=Screen HeightIf SCW9:ReadA$:EndIfText 41,127-A*8,A$If A2If A=ScreenPen 3 Else Pen YREnd IfEnd IfLocate A+1,18Print Str$(A)-"";: Pen YRSetZone A+1,A*8+8,144ToA*8+16,152End IfEnd IfIf A