Bu sayfadaki yazılar
Sayfanın metni
Sayfa 15
53170 63135: REM * ARAMAYA DEYAM ET <208> 63200 POKE y * BASLANGIC SATIRININ 63210 POKE *ADRESİNE BİTİM <137> 63215 REM * NIN LINK ADRESİNİ POKLA * <155> 632206 PRİNT : REM * EKRANI SİL 63230 PRINT BA:REM *BASLAMA NUMARASINI 4'UNCU SATIRA &* <aza> 63235 IF THEN 6323245: REM * YAZ. KENDİNİ SİL &£ <i23> 63240 PRINT "GOTU 63280": REM * TEKRAR PROGRAMA DONUSU& 63242 REM * SAĞLAYACAK KOMUTU EKRANA YAZ * <a4a> 63245 PRİNT CHRS$C13): REM * KORSIR'I 'HOME' YAP * 63250 POKE 631,13:PÜKE 632,13 63255 REM * KLAYYE BUFFFER'INA IKİ <RETURN> KÜY * <179> 63260 y 198,82 <176> 63265 REM * BUFFER'DA IKİ KARAKTERİN OLDUĞUNU BELİRT * > 62270 END:REM * PROGRAMI KLAYYE MODUNA GEC * 63280 PRİNT İSLEMİ 63285 INPUT "<DOWN>BASKA BLOK SİLECEK <143> 63230 IF AND EH$<>”"H" THEN 63285 63295 IF EH$-z"E” THEN REM * DEVAM ET * 633200 G3125: REM & SIL & 63305 PRİNT <A44> 633106 POKE 631,13:PÜKE 632,13 6332A POKE
Klavyeyle gezinmek için ← ve → tuşları.
Sayfa 14
komutu yerine getirirken klavyeden yazılanlar ekrana çıkmaz ama bu bafırda sıraya girerler. Bafırda sıraya girebilecek tuş miktarı 10'dur. Bir başka bellek baytında bafırda bulunan tuş miktarı belirtilmektedir. Bilgisayar icra etmekte olduğu komutu tamamlayınca bu bayttan bafırda kaç tuşun beklediğini öğrenir ve bafıra giriş sıralarına göre bunları icra eder. 198 no.lu YER bafırda bekleyen tuş miktarını tutar. Bafırın bulunduğu bölge ise 631 - 640 arasındadır. İşte program içerisinde bu baytlara istediğimiz tuşların rakam karşılıklarını POKE'lar ve 198'e de kaç tuş beklediğini POKE'larsak END ile programdan çıkınca bilgisayar bu tuşları icra eder.
63220 no.lu satırdan itibaren yaptığımız şudur:
Önce ekranı temizliyor ve iki tane PRINT komutu kullanarak körsır ekranın dördüncü satırına getiriyoruz. Bu satıra silinecek blokun ilk satırının numarasını yazdırıyoruz. Onun altına da END ile çıktığımız programa dönebilmek için GOTO 63280 yazdırıyoruz. Daha sonra da körsır HOME yaparak (CHR$(19)) körsır ekranın sol üst köşesine alıyoruz. 631 ve 632'ye 13 (yani RETURN) POKE'luyoruz. 198'e de 2 POKE'layarak bafırda bekleyen iki tuş olduğunu belirtiyoruz. END komutuyla programdan çıkınca körsır sol üst köşede bulunduğundan READY yazısı ekranın üçüncü satırında çıkıyor ve körsır ekranın dördüncü satırında kalıyor. Program durduğu için bilgisayar direkt moda geçip 198'i kontrol ediyor, bafırda iki tuşun beklediğini görerek bafıra bakıyor. Bafırda iki adet RETURN tuşunun icra edilmeyi beklediğini görerek bunları icra ediyor. Birinciyi icra ettiğinde körsır dördüncü satırda olduğundan ve bu satırda silme blokunun ilk satırının numarası yazılı olduğundan blok silme işlemi gerçekleşiyor. İkinci RETURN tuşu icra edildiğinde ise körsır beşinci satırın başında olduğu ve bu satırda GOTO 63280 yazılı olduğu için bu program 63280 no.lu satırdan itibaren yeniden çalışıyor. Silmeye devam edip etmeyeceğimiz soruluyor. E ile cevap verirsek program silinecek yeni blokun başlama ve bitim numaralarını alarak aynı işlemleri tekrarlıyor. H ile cevap verdiğimizde başlama ve bitim numaraları olarak SİLME PROGRAMI'nın başlama ve bitim satırları kabul ediliyor ve işlemler tekrarlanıyor. SİLME PROGRAMI kendisini de siliyor. Bu defa beşinci satıra LIST yazdırdığımız için RETURN'ler uygulanınca ilk RETURN programı (silme programını) siliyor ve ikinci RETURN, içinden satırlar silinen programınızın kalan bölümünü LİST'liyor.