Sayfa 50

40 POKE 32768+R,Y:POKE 32768+256+R,X 50 NEXT R Şeklindedir. $D016'ya yazılan 0-7 arası değerler ekranı sağa kaydırdığı, fakat A AND 7 işlemi bize sola kayma miktarını verdiği için bu değeri 7'den çıkararak sağa kayma miktarına çevirmemiz gerekir. Şimdi de sıra bu programdan yararlanmanızı sağlayacak kısa bir rutini anlatmaya geldi:

Sel GeneYap LDX Sayaç Interruptları kapatıyoruz ve sayacımızı X'e alıyoruz.

Lda $DO16 And # $F8 Ora $B100,X Sta $DO16

X'de sağa kayma miktarını (8-7 piksel) ayarlıyoruz.

Ldy $0000,X Ldx — #$000 Döngü Lda Mesaj,Y

Sta $0400,X

Iny In x Cpx — #$28 Bne Döngü

Bu kısımda da gereken miktarda karakter atlanır ve mesajın görünmesi gereken 40 karakteri ekrana yazılır.

Geldikmi Lda $DO12 Cmp $F8 Bne Geldikmi

Interrupt yapmaya üşendiğim için ekranın gereken yere gelip gelmediğini bu satırlarla kontrol ediyoruz.

Inc Sayaç

Sayacı bir artıralım...

Jmp GeneYap Sonsuz döngüye girerek programı devam ettiriyoruz. Burada sadece bir satırlık bir mesajı sağa sola salladık, ama, satır sayısını artırıp mesaj yerine gerekli karakterleri dizersek, bu rutini LOGO SWING yapmak için de kullanabiliriz. Eh bu ay bir rutin daha öğrendik. Yavaş yavaş usta bir intro programcısı oluyoruz. Ama usta bir programcı olmanın yolu bol pratikten geçer. Yani klavyelerinizi hiç boş bırakmayın. Gelecek ay görüşmek üzere.