Sayfa 18

20 3Ü 40 EXİT IF şart SÜ XNXANANAXA BÜ XANAXANAN 70 END LOOP

LOOP ile END LOOP arasındaki satırlar devamlı tekrar edilir. Çıkışı sağlayacak tek olay, EXIT IF'ın arkasındaki şartın doğru hale gelmesidir. Bir LOOP..END LOOP arasında boşluk bırakmanız gerekir.

Basic için tamamen yeni komutlar, alt program 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 XXXXAXANA 1200 1300 1400 1500 ENDPROC

EA PROGRAM ADI : S.ELSE #0005 FOR Izi TO 5

80018 INPUT "3 SAYI VERİN IF Asi THEN PRİNT Az2 THE N PRINT VE A<)e"

20030 RCOMP " AMA Az"A"SLEFT>

» Cz"0 NEXT

EA PROGRAM ADI : S.REPEAT

INPUT "KAC TANE SAYI":5SS REPEAT

ağo20 INPUT "SAYI";S 60030 : 00650 : PRİNT I : Is1*i 00080 : UNTIL 1:5 K-K*İ

90093 UNTIL K-5S PROGRAM ADI : S.LOCAL

PRİNT A,C,AS,B$ GÜSÜB PRİNT A,C,AS,B$ A8050 END LOCAL DOLİO PRINT A,C,AS,B$ 20138 GLOBAL RETURN

Bu

Böylece bir altprogram tanımlanmış altprogramı CALL veya EXEC komutlarını kullanacaksınız. CALL isim ile, belirtiçağırırken bilgisayar ENDPROC'a rastlarsa ortaya hata çıkacaktır. Bu konuda dikkatli olmanız gerekir. Altprogram isimleri birden fazla kelimeden oluşalen altprograma GOTO ile atlanmış bilir, ancak o satırda başka bir BAolur. EXEC isim ile de, o altprograma GOSUB yapılmış olur. Bu durumda ENDPROC, RETURN gibi davranacaktır ve program altprogramı çagıran komuttan sonra devam edecektir. Ancak CALL ile çağırdıktan sonra

SIC komutu bulunamaz.

Bu arada bir konu daha var. BASIC'te bir değişkenin değeri programın neresinde değiştirilirse değiştirilsin, o değişken tüm program için değişmiş olacaktır. Ancak, bir alt programda kullanılan değişkende yapılacak değişikliklerin ana program kısmını etkilemesi istenmeyebilir. Bu durum için de kullanılacak iki komut var. Alt programın hemen ilk satırında LOCAL a,b,c,... ile çeşitli değişkenlerin isimlerini o alt program için ayırabilirsiniz. Dikkat edin, LOCAL komutunun olduğu satırda başka bir BASIC komutu olmasın. Artık o değişkenleri gönül rahatlığı ile kullanabilirsiniz. Ana programa geri dönmeden önce GLOBAL komutunu verdiğinizde, o değişkenler alt programa gelmeden önce sahip oldukları değerleri geri alacaklardır ve böylece de ana programın, o değişkenlerde olan değişikliklerden haberi olmayacak. Bu aylık da bu kadar, gelecek aya iyi günler..

EA PROGRAM ADI : S.LOOP

00011 20035 000399

99018 20240

00100 680118 001530 | 00148

INPUT "KAC TANE SAYI";SS LOOP INPUT Isi LÜÜP : PRİNT I : EKİT IF 175 END EKİT IF END LO0OP

“"SAYI";S

HER PROGRAM ADI : S.MUZİK

VOL 10 WAVE BE 1 e a ENVELOPE 1,8,8,8,8 ABE

MUSİC PLAY 2 FLASH A,10:BFLASH FOR Izi TO 275:CENTRE MUZİK *

*xx MUZİK kkkk MUZİK :N EXT

&