Sayfa 47

BURAK KİPER

41 PEEK VE POKE

BASIC ile hazırlayacağınız oyunlarda kullanabileceğiniz bu POKE komutu ilginç efektler yapmanızı sağlayabilir.

10 FOR TO 15: POKE 53270,J: NEXT J: GOTO 10 Bu program çalıştığında ekran, sanki deprem olu-

yormuş gibi sallanacak. Daha da ilginç bir efekt yapmak isterseniz FOR ... NEXT döngüsünü 31'e çıkarın.

SAVE işleminin yapılmasını engellemek isterseniz aşağıdaki programı yazın:

50 POKE 818, 226: POKE 819, 252 60 POKE 818, 237: POKE 819, 245

Bu program çalıştığında SAVE komutunu vermenizle birlikte C64'ün açılış durumuna dönecek. 60 numaralı satır SAVE komutunun normal şekilde çalışmasını sağlıyor. Eğer SAVE komutu verdiğinizde, C64'ün açılış durumuna dönmesi yerine başka bir şey olmasını istiyorsanız, 50 numaralı satırı değiştirin. Bu satırda yapılmasını istediğiniz belirteç adresini verin. B değişkeninde istenilen belirteç adresi yer alıyor. Örneğimizde C64'ün açılış durumuna dönmesini sağlayan belirteç B değişkenine yerleştirildi.

50 Hl— INT(B/256): POKE 818,LO: POKE 819,HI

Yapmış olduğunuz BASIC programların RESTORE tuşu ile durdurulmasını istemiyorsanız SAVE komutunda olduğu gibi POKE komutu ile RESTORE tuşunu engelleyebilirsiniz. 80 numaralı satır RESTORE komutunu önlüyor. 90 numaralı satır RESTORE komutunu tekrar işler hale getiriyor.

80 POKE 792, 226: POKE 793, 252 90 POKE 792, 71 : POKE 793, 254

Bu komutların çalışmasından sonra RESTORE tuşuna basılması bilgisayarın açılış durumuna dönmesine sebep olur. RESTORE tuşuna basıldığında başka bir rutinin çalışmasını istiyorsanız 80 numaralı satırı şu şekilde değiştirin:

80 R-64738: HI-INT(R/256): POKE 792.L0: POKE 793, HI

R değişkenine istediğiniz rutinin belirteç adresini girin. Klavyede her tuşa bastığınızda ses çıkmasını ister misiniz? Program döküm ekindeki PROGRAM-2'yi çalıştırdığınızda her tuşa basıldığında ses çıkaracak. Kursor, RETURN ve fonksiyon tuşları için farklı sesler çıkaracak.

OYUNLAR İÇİN KOLAYLIKLAR

Panter Oyunu RESET edin POKE 12548, 255 SYS 4096 Artık 255 hakkınız var.