Bu sayfadaki yazılar
Sayfanın metni
Sayfa 69
* Bir NEW ile veya bir RESET tuşu ile veya SYS 64738 ile silinen programınızı aşağıdaki satırları, tabi ki satır numarası kullanmadan, yazarak tekrar geri çağırabilirsiniz. Ancak bu işlemi yapmadan önce hiç değişken kullanmamış ve program satırı yazmamış olmanız gerekir!
POKE 46, PEEK 45, PEEK(55)* 247:CLR (return) POKE PEEK (44)*2564 PEEK (43)4T, PEEK (44) (return) 63999 (return) FOR 1- PEEK (44)*2564 PEEK (43) TO PEEK (46)*256 4 PEEK (45):1F PEEK (2) OR PEEK (24 1) OR PEEK 2) THEN NEXT (return) POKE 45, 3) AND 255:POKE 46, (74 3)/ 256:CLR (return) Bu işlem hem C64'de hem de VC 20'de işlemektedir.
© POKE 56325,5 ile cursor artık bir jet hızı ile hareket etmeye başlayacaktır. POKE 56325,255 ile de çok yavaşlayacaktır.
* Aşağıdaki satırla, programınızı ve değişkenleri kaybetmeden RESET yapabilirsiniz: POKE 648,4:SYS 64789:SYS 58451:SYS 58784 e POKE 775,1 komutundan sonra program artık LIST edilemez.
POKE 774,226: POKE 775,252 verdikten sonra, LIST yapmaya kalkışıldığında, bilgisayar açılış durumuna döner.
e POKE 801,0:POKE 802,0:POKE 818,165 ile SAVE İşlemi çalışmaz hale gelir.
e POKE 818,226:POKE 819,252 verdikten sonra, SAVE yapmaya kalkışıldığında, bilgisayar açılış durumuna döner.
* POKE 53265,80 ile cursor'un ve yazının renginin birbirinden değişik olması sağlanır.
* POKE 646, sayı ile yazı yazdığınız rengi değiştirebilirsiniz.
e Eğer ekranın belli bir noktasına bir yazı yazmak istiyorsanız: POKE 214, satır: POKE 211, kolon: SYS 58640:
Klavyeyle gezinmek için ← ve → tuşları.
Sayfa 68
Şimdi sıra joystick'e geliyor. 30 JS=PEEK(PO):HAREK=0 HAREK, Joystick'ten gelen komutlara bağlı olarak, işaretimizin nasıl hareket etmesi gerektiğini hesaplarken kullanacağımız değişkendir. Joystick kapısında bir bayt bulunmaktadır. Bu bayttan bizi ilgilendiren kısım ilk 5 bittir. Dolayısıyla bir AND işlemcisi ile bitlerin teker teker ayrılması gerekiyor. Eğer joystickten bir komut gelmişse, bu komutun yönüne bağlı olarak bu bitlerden biri 0 değerini alır; hareketsizlik durumuna ise 1 karşılık gelir (Dikkat, işin püf noktası burada). Ekranda yukarı doğru bir hareket oluşturmak için, işaretin şimdiki pozisyonundan 40 çıkarılır. 40-70 satırları joystickten gelen komutlara bağlı olarak işaretin gitmesi gereken yeni pozisyonu hesaplar.
30 1F (IS ANDI)-0 THEN HAREK - HAREK—40 50 IF (IS AND 2)-0 THEN HAREK - HAREK * 40 60 1F (JS AND 4) -0 THEN HAREK - HAREK—İ 70 1F (İS AND8)-0 THEN HAREK - HAREK 4 1
Bu yöntemle, diyagonal hareketler de sağlanabilir. Örneğin sola doğru hareket -39 değeriyle gerçekleşir. Geldik ateşleme düğmesine! Bu düğmede basıldığında programın sona ermesini istiyoruz. Bu sırada doğal olarak, kursorumuzun altındaki işaretimizi yeniden üretiyoruz. 80 IF (JS AND 16)=0 THEN POKE RESİM,ME:END Ekrandan dışarı “taşmamak” için, HAREK'in değerlerinin 1024 ile 2023 arasındaki alanda bulunup bulunmadığının denetlenmesi gerekiyor. 90 IF HAREK<1024 OR EKRAN+HAREK>2023 THEN HAREK=0 Artık sıra HAREK'in hesaplamış olduğumuz değerine göre işaretimizi, dolayısıyla hesaplanmış hareketleri ekran adresine eklememize geliyor. Son yapılacak iş, işaretimizi ekranda hareket ettirebilmek için 20 satırına geri dönüşü sağlamaktır: 100 POKE RESİM,ME:EKRAN=EKRAN+HAREK:GOTO 20
Oyun kolunu Port 1'e takmak istersek, yalnızca 10 satırında bir değişiklik yapmamız gerekir. Bu da adresin 56321 olmasıdır. Yani, 10 PO=56321.
İki oyun kolunu aynı anda kullanmak istiyorsak, değiştirilmesi gereken satırlar şunlardır: 10 Pl — 56321:P2 — 56320:RE — 1024. 30 J1- PEEK(P1):)2— HAREK-0
NOT(NOT J1 OR 12):
* SYS 64738 yapıldığında, bilgisayar açılış durumuna döner ve içindeki her şey silinir.
* POKE 650,255 komutundan sonra bütün tuşlar, boşluk tuşu gibi basıldıkları sürece kendilerini tekrarlarlar. POKE 650,0 ile eski hale dönülür. POKE 650,64 ile de tüm tuşların tekrarı ortadan kalkar.
Ğ
* POKE 649,0 ile basılan tuşlar ekranda görünmez. RUN STOP/RESTORE ile eski duruma geri dönülür.
hş
GE
e Eğer kimi programlarınız Turbo ile yüklendikten sonra çalışmıyorsa şöyle yapabilirsiniz: Önce programı kasetten yükleyin. LIST ederek ilk satırdaki SYS adresini bir yere not edin. Sonra SYS 64738 vererek bilgisayarı açılış durumuna getirin. Şimdi de not ettiğiniz SYS komutunu yazarak (satır numarasız) programı başlatın.