Sayfa 13

C-64'te kendinize ait bir program yazdınız ve bunu sizden başka kimsenin bilmesini istemiyorsunuz.

Bu durumlar için BASIC DİLİ'nde yazılmış bu program size yardımcı olacaktır.

Programı kendi yazdığınız programdan önce yazıp ya da yükleyip 22. satırdan itibaren kendi programınızı girmeniz gerekmektedir.

Program "PAROLA..." sorusuna "ŞİFRE A" (Arada bir karakterlik boşluk var) ve sonraki "PAROLA...2" sorusuna da "ŞİFRE B" ile cevap verilmesiyle işleme başlıyor. Elbetteki sizin parolalarınız farklı olabilir. Bunun için programın 4. ve 5. satırlarını Parola 1 için; 9. ve 10. satırlarını parola 2 için dizisel karakterlerle değiştirebilirsiniz. Eğer dizisel değil de sayısal karakterlerle değiştirmek istiyorsanız AS ve BS değişkenlerini de A veya A%; B veya B% ile değiştirmeniz gerekiyor.

Parola sorularına yanlış cevap verilmesi durumunda bilgisayar kibar bir dille size hizmet edemeyeceğini bildirdikten sonra açılış durumuna geri dönüyor.

Programın can alıcı noktası RUNSTOP/RESTORE ile LİST edildiğinde parolaların görülmesi. Bunu engellemek için ise kendi eklediğiniz programı da birleştirince programa: 0 Poke 775,1 satırını eklemeniz gerekiyor. Önemli bir nokta Parola Programını yazdıktan sonra bir başka yere kaydetmenizdir. Çünkü 0. (Sıfırıncı) satırı yazdıktan sonra iki program da LİST edilemez. Bu durum bilgisayarı açıp kapayana dek sürer.

Programın 50 satırdan az olması (22 satır) olumlu bir özelliktir çünkü birçok program genelde 100. satırdan başlamaktadır.

Programı satır numarası daha büyük olan bir programla birleştirmek için: Önce parola programını yükleyin sonra; PRİNT PEEK (43) PRİNT PEEK (44) komutları ile öğreneceğiniz iki sayıyı bir yere not edin. Şimdi de POKE 43, ( (PEEK (45) + 256 * PEEK (46) -2) AND 255) komutunu verin. Sonra da POKE 44, (PEEK (45) + 256 * PEEK (46) -2)/255 komutunu verin.

İkinci programı yükleyin. Yükleme bitince biryere not ettiğiniz sayıları alın: POKE 43, BİRİNCİ SAYI (1) POKE 44, İKİNCİ SAYI (8) komutlarını verin. Artık programlarınız birleşmiştir. Bu yolla birçok BASIC programlarını birleştirebilirsiniz (Commodore Dergisi Sayı: 1 sayfa 79).