1 Eylül 1986 Tarihli Commodore Gazetesi Sayfa 18

10 LOOP 20 xxx 30 XXNAAMAXA 40 EXİT II şarı S0 KxxxXK 006 XX GÜ XAXXNANAX 70 END LOOP LOOP ile END LOOP arasındaki satırlar devamlı tekrar edilir. Çıkışı sağlayacak tek olay, EXİT IF'ın ar- kasındaki şartın doğru hale gelmesi- dir. Bir LOOP..END LOOP arasın- da boşluk bırakmanız gerekir. Basic için tamamen yeni komutlar, altprogram tanımlamaya ve bunları iş- lemleriyle çağırmaya olanak tanıyan PROC...ENDPROC ve buna ilişkin diğer komutlardır. Örneğin: 1000 PROC altprogram adı 1100 XAXNXXAXX 1200 1300 1400 XXXXXAXAN 1500 ENDPROC A PRoOGRAM ADI : 90005 FOR I-i TO 5 20010 INPUT "3 SAYI VERİN LÜTFEN.."SA,B,C Bağ20 IF Azi THEN PRİNT BİELSE:İF As2 THE N PRİNT CEELSE:PRİNT paasa RCOMP :ELSE:PRİNT " AMA As"A"SLEFT> Bs”B”<LEFT>; C-"0 gag4n NEHT H PROGRAM ADI : gğğl1i REPEAT ağö20 INPUT "SAYI":S 60030 1I-1 00040 : REPERT 00050 : PRİNT 1 Bğ06ü : Is1İ*4i 00880 : UNTİL 1>5 BğA30 K-K*İ 60039393 UNTIL K-5S 5S.ELS S REPERTİ AğA1ğ INPUT "KAC TANE SAYI":5SS Böylece bir altprogram tanımlanmış olur. Bu altprogramı çağırırken CALL veya EXEC komutlarını kul- lanacaksınız. CALL isim ile, belirti- len altprograma GOTO ile atlanmış olur. EXEC isim ile de, o altprogra- ma GOSUB yapılmış olur. Bu durum- da ENDPROC, RETURN gibi dav- ranacaktır ve program altprogramı ça- Sıran komuttan sonra devam edecek- tir. Ancak CALL ile çağırdıktan sonra MEHİMEJ ÜST 68818 INPUT 2003939 END LO0OP bilgisayar ENDPROC'a rastlarsa or- taya hata çıkacaktır. Bu konuda dik- katli olmanız gerekir. Altprogram isimleri birden fazla kelimeden oluşa- bilir, ancak o satırda başka bir BA- SIC komutu bulunamaz. Bu arada bir konu daha var. Basic'- te bir değişkenin değeri programın ne- resinde değiştirilirse değişlirilsin, o de- gişken tüm program için değişmiş ola- caktır. Ancak, bir altiprogramda kul- lanıtan değişkende yapılacak değişik- liklerin ana program kısmını etkileme- si istenmeyebilir. Bu durum için de kullanılacak iki komut var. Altprog- ramın hemen ilk satırında LOCAL a,b,c,... ile çeşitli değişkenlerin isim- lerini o altprogram için ayırabilirsiniz. Dikkat edin, LOCAL komutunun ol- duğu satırda başka bir Basic komutu olmasın. Artık © değişkenleri.gönül rahatlığı ile kullanabilirsiniz. Ana programa geri dönmeden önce GLO- BAL komutunu verdiğinizde, o değiş- kenler altprograma gelmeden önce sa- hip oldukları değerleri geri alacaklar- dır ve böylece de ana programın, o de- gişkenlerde olan değişikliklerden ha- beri olmayacak. Bu aylık da bu kaddı. gelecek dVı.l kadar iyi günler. A FROGRAM ADI : 5S.LOOP "KAC TANE SAYI";5SS 09011 LO0 BBaAza INPUT "SAYI "FS "ASSL VE Aixie”" 20030 1-1 280040 : LO0P Bğö5ü : PRIİNT I AdA6ü : İIsİ*i öğö70 : EKİT I1F 105 809080 : END LOOP A0090 K-K*t1 008095 EKİT K-S5S HGN PROGRAMİ ADI : S.LOCAL gaa 1a gaa2a 68140 18 AFSICE3:ASZ"SIMON" 5 B$z"COMMODRE ”" PRINT A,C,AF,B$ GOSÜUB iB€ PRINT A,C,A$S,B$ END LOCAL A,C,AF,B$ As7iCs3iASz"64"1B$Sz"TRANSIT" PRINT A,C,ASH,B$ GLOBAL RETURN Bğa3a ENVEL 8,8,8 Bpa4a H$="<CLR) <F 16 AAF LSFSKEL,” DO0S5O A2$-"GS<FT.C5E >FS<FL1>G5<F7> GF 1 >ESSF L>E3 S? BBABÖ ş<F3/DS<F5>EJ Ba15a 6 Mnuza ÖD 3<F3265LRİFS5 2<F3>D54F3>C5 DA DA <Fİ 5—"L5xF?>CSxF1)xCLR>G IC EB,AFtTAZSYARSYAZK LASH A,10:BFLASH 5,8, R 151 TÜ 275:CENTRE *k4k MUZİK kkkx MUZİK ÖFF:BFLASH & ZOj TNU Di "*kkk MÜUZİK * kk44'EPRİNT :N commodore Eanaaaamaaııııııııı