Bu sayfadaki yazılar
Sayfanın metni
Sayfa 48
Kayan Yazılar - $0009
İşte sizlere BASIC diliyle yazılmış kısa bir yazı kaydırma altprogramı. Programı çalıştırmak için önce A$ değgişkenine yaklaşık 45 tane boşluk yerleştirmeniz, sonra da ekrandan geçmesini istediğiniz yazıları aynı değişkene eklemeniz gerikmektedir. Eğer yazıların ekranda çıkarak kaybolmasını istiyorsanız A$'e 40 tane daha boşluk eklemeniz gerekiyor. Bu arada A$ değişkeninin uzunluğunun 255 karakteri geçmemesine dikkat etmeniz gerekiyor. Eğer daha uzun bir mesaj yazmak isterseniz, mesajı parçalara ayırarak her parçayı ayrı ayrı kaydırma yoluna gidebilirsiniz. A$'i kullanarak mesajınızı tanımladıktan sonra sıra yazıların hangi satırda kayacağını be- 'lirtmeye geldi. SA değişkenine mesajınızı kaydırmak istediğiniz satırın numarasını koyarsınız (ilk satırın numarası 1'dir.) hazırlık safhanızı tamamlamış olursunuz. Artık istediğiniz zaman GOSUB 9000 komutuyla yazınızı kaydırabilirsiniz.
OKUR MEKTUPLAR
PROGRAM ADI : KAYAN YAZILAR
00010 DERGİSİ" 00020 00030 09000
<867> <153) <103)
©9010 PRİNT SAYI THEN FOR R zi TO ©9020 PRİNT Kel T O SO:NEXT 69030 IF T*LENCA$)-40 THEN RETURN ©9040 GOTO 9016
Başlanıç Adresi - $OOOA
Eminim hepiniz birçok kez makine dili programlarınızın hangi adresten başladığını unutmuşsunuzdur. Buna karşı alınabilecek en iyi önlem programlarınızın adının yanına başlangıç adresinin ne olduğunu yazmaktır. Ama bu yolla program kaydettiğiniz zaman program ismi için ayrılan ve zaten Çok kısa olan yerin bir kısmını feda etmeniz gerekmektedir. Yapabileceğiniz başka bir şey de bir program başlangıç adresi bulucu kullanmaktır. Burada yayınladığımız program bu işi kısa yoldan halletmektedir. Bildiğiniz gibi 1541 disket sürücünüz dosyaları (PRG tipinde olan) saklarken en başına başlangıç adresini yazar. Yani programı okuması gereken bir dosya gibi açar ve ilk iki baytını incelerseniz programın başlangıç adresini kolayca bulabilirsiniz. Programımız bulduğu başlangıç adresini hem 10 hem de 16 tabanına göre yazmaktadır. Daha sonra da disketin hata kanalını okuyarak oluşabilecek hataya karşı sizi uyarır. Bundan sonra herhangi bir tuşa basarak başka bir programın başlangıç adresini inceleyebilirsiniz. Programdan çıkmak istediğiniz zaman programın adı yerine SON yazmanız yeterlidir.
Klavyeyle gezinmek için ← ve → tuşları.
Sayfa 49
PROGRAM ADI 1: BASLANGIC ADRESİ
00005 00010 PRİNT 1 9,1: INPUT SEROGRAMİN ISMİ: 60020 POKE 19,0:PRINT 00030 IF THEN END ©0840 IF THEN < ©0050 OPEN HA 8 < 00055 00080 IE M 00070 ©0080 PRİNT YBASLANGIC ADR , 00090 PRİNT 1 AKSI, 00100 OPEN: 15,8,151 INPUTHİS,E,E$,T,S
15 € 00130 PRİNT BİR TU SA BASINIZ..." 00140 GET AS2*"GOTO 140 00150 RUN
<a207)>
Ekran Aşağı - Yukarı - $000B
İşte ekran düzenine ve görüntüsüne önem veren arkadaşlar için şahane bir program. artık ekrandaki yazıları değiştirirken daha usta işi görüntüler elde edebileceksiniz. Programımız ekranda yazılı bulunan her türlü şeyi (ne yazık ki yalnızca standart karakter ekranlarını) aşağı ve sonra da yukarı doğru kaydırır. Bu işlemin nasıl oldüğunu göstermek için dataların yanında bir de uygulaması verilmiştir. SYS49152 komutu ile ekran aşağı doğru kaydırılır. Şimdi ekrandaki yazıyı istediğiniz gibi de- Biştirebilirsiniz. Daha sonra da SYS49182 komutuyla ekran geri, yukarı doğru kaydırılır.
PROGRAM ADI 1: EKRAN ASAĞISYUKARI
00010 FOR R-49152 TO 492351READ A:POKE R, 00020 IF THEN PRİNT "DATA HATAS 00030 POKE 00040 POKE 53280,0:POKE 00050 SYS 49152 068060 PRİNT )(10SPACE DERGİSİ" ©0070 PRİNT "<OOWN> 5YS49152 EKRAN ASAGI" ©0080 PRİNT “<DOKN> SYS49182 EKRAN YUKARI
00090 SYS 49182 00100 END ©1000 DATA I80, 169, S7, 133, 254, 169, 45, 205, 18, 208, 208, 251 ©1010 DATA 32, 60, 192, 230, 254, 165, & 54, 2801, 255, 208, 238, 169 ©1020 DATA ©, 141, 17, 2808, 88, 96, 1820, 169, 255, 133, 254, 169 01030 DATA 45, 205, 18, 208, 208, 251, 3 2, 60, 192, 198, 254, 165 ©1040 DATA 854, 201, 55, 208, 238, 169, 27, 141, 17, 808, 88, 96 01050 DATA 166, 254, 240, 18, 173, 18, 8 068, 168, 41, 7, 9, 16 ©1060 DATA 8204, 18, 208, 240, 251, 141, 17, 208, 202, 208, 237, 96
- $000€
Bir program hafızadayken NEW komutu verdiniz, ama birden hatırladınız ki programı kaydetmemiştiniz. İşin yoksa bir sürü POKE ve SYS yazıp eski programı geri almaya uğraş. OLD, programı sizi bütün bu uğraşlardan kurtarıyor. Programı sildikten sonra geri çağırmak için SYS 300 komutunu yazmanız yeterli olur.
PROGRAM ADI 1 OLD 00010 FOR R-300 TO 326:READ A:POKE
60020 IF BC32563 THEN PRİNT "DATA HATASI. “
©0030 PRINT "SYS 300“
00048 END 01000 DATA 169,255,160,1,145,43,32,51 ©1010 DATA 165,165,34,24,105,2,133,45 Bl020 DATA 165,35,105,0,133,46,76,94 01030 DATA 166,73,141
- C64 için Püf Noktaları
- Kafa Zıplatıcı - $000D Bu program, komut kanalından diske bir dizi emir göndererek sürücünün kafasını zıplatır. Ancak bu programı sürücünüz yükleme sorunları çıkardığında kullanmanızı tavsiye ederiz. Çünkü sürücünün kafası sağlamken bu programı çalıştırırsanız, sağlam olan kafa ayarı bozula-