Sayfa 25

RANDOM MÜZİK © $0036 Ersin KAYGAN

Programımız üç değişik enstrümanla (ki bunlar rastgele seçilmekte) on kere ses çıkarmakta, bunlar ise kısa ritimleri oluşturmaktadır. Bunu kendi programlarınıza ekleyerek çeşitli şekillerde kullanabilirsiniz. Programın sonuna “GO TO” komutu yerine “FOR...NEXT” döngüsünü koyarak çeşitli sesler elde edebilirsiniz.

PROGRAM KORUMA © $0037 Ersin KAYGAN

Programımız, programlarımızı kem gözlerden ve yabancılardan korumaya yarıyor. Programın data kontrolünü kontrol ettikten sonra, bu satırları silin ve satırlardan birine “SYS 49152” yazıp programımızdan sonraki boş satıra kendi BASIC programınızı yazabilirsiniz. Biraz da teknik ayrıntılara girelim. Tahmin ettiğiniz gibi bu program bir interrupt'tır. İnterrupt'ın ne olduğunu sormayın çünkü Vedat HALLAÇ bunu yeterince anlattı. Neyse, program 808 (RUN/STOP tuş kontrolü) ve 775 (koruma) adreslerini 1/60 saniyede açıp kapar. Umarım yararlanırsınız. Bol korumalı günler...

PROGRAM ADI : PROGRAM KORUMA

00010 FOR A- 49152 TÖ 4917B;READ D:5-51D:P

OKE A,D:ıNEXT <055) 00020 1F s<>2433 THEN PRİNT "DATA | Go 00030 PRİNT "PROGRAM <239>

000â0 DATA 120,159,13,141,20,3,169, 192, — 00050 DATA 169, 200, 141,7,3,169, 25, 3,76,49, 234,0

TİMER © $0038

Ersin KAYGAN

Hah! Bir saatimiz eksikti... Neyse burada ilk önce saati altı basamaklı bir şekilde giriyoruz. Mesela saat 18'i 12 dakika ve 32 saniye geçiyorsa, soruyu 181232 şeklinde cevaplayın. Saatimiz ekranın sol üst köşesinde çalışmaya başlayacak ve sizi her saat başı minik alarmlarıyla uyaracaktır.

ADI : TİMER

00010 POKE 646, —— 19,64: "<CLROSAATI yazı O 54 00020 1 THEN PRİNT 1000:NEXT

00030 POKE 648,13:POKE

00040 3, 2 21 | 90050 | 5S AT — RİGHTSCTS,