1 Mart 1990 Tarihli Commodore Gazetesi Sayfa 17
C-64 TUŞ CLICK SESLERİ Bu program ile programlarınızı biraz daha renkli ha- le gefirebilirsiniz. Bu programı çalıştırdıktan sonra, her- hangi bir tuşa basarak monitörünüzden bir click sesi olabilirsiniz. Her tuşa basılışta yalnızca bir tek click sesi çıkması için bir bağlama rutini de eklenmiştir. PROORAM ADI * CLİCK SESLİ TUSLAR 60000 REM CLIİCK SESLİ C-64 TUSLARI <151) 00010 FOR T-48152 TÜ Gd82311READ AtPOKE T.ALCKSCK tALNEKT <1989) o0020 IF CK<)9467 THEN PRİNT "DATA SA TIRLRINDA HATA VAR"1END <013)> 00030 PRİNT “KEY CLİCKER ÖN"1S5YS 49152 <149)> 00040 DATA 120.169.18.141.280.3.1689.198.1 41.821.3.08.1689.0.141.252.,3.96.178 <ozo) 00050 DATA 852.3.192.0.208.21.174.197.0. 8824.64.208.3.76.09.234.169.1.141.85 a 80060 DATA 3.32.61.1982.76.49.834.174.,1987 *0.284.64.208.5.169.0.141.252.3.76 <193) 00070 DATA 49,234.169.15.141.24.B12.160. 0.200.192.255.208.251.169.6.141.24 <250) 00080 DATA 218.96.168 <133) SPİRAL EKRAN TEMİZLEYİCİSİ Bu iİnterrupt-güdümlü C-64 ekranı temizleme yardım- cısı bellekte siz ona ihtiyaç duyana kadoar kalabiliyor. Ondan sonra onu çalıştırmak için SYS 49152'yi Prog- ram modunda ya da direkt modda modda yazma- nız yeterli olabiliyor. C-ö4 metin ekranı bundan son- ra spiral bir dalgalanma hareketiyle temizleniyor. Program yeniden yerleştirilmeye uygun, bu nedenle onu başka makine dili yardımcılarıyla kullanabilirsiniz. PROGRAM ADI © SPİRAL EKRAN TEM. 00080 REM SPİRAL EKRAN TEMİZLEYİCİSİ <147)> 00018 PRİNT CHRSC147)18SAS4ADISELREM RELOC ATABLE BO020 FOR IsSA TO SAHITTIREAD AÂtPÖOKE IAt CK-CK tATNEKT (123)> 060030 IF CKOBOLİZ THEN PRİNT "DATA HATAS 1*1:8TOP 686040 FOR T'l TO B48LPRİNT "<RVSON) <R VSOFF NEKT 600658 PRIİNT 'cmxmunn 489152 TO CLEAR » €SEPACE )" <088) Bd080 FOR Tei TÜ B2B88PRİNT "<RVSON) <R NEKT 00070 DATA 162.39.142.61.3.162.0.142.B8. 3.1689.0.,141.62.3.169.4.141.63.3.169 <id2) 00080 DATA 192.141.64.3.168.7.141.65.3.1 62.24.134.2.169.0.133.251.1689.4.133 <(242) 00080 DATA 252.166.2.240.16.84.165.2851.1 65.40.133.251.165.258.105.0.133.258 <831) IİIII DATA B802.208.240.172.61.3.169.382.1 95.B51.172.60.3.145.251.198,2.16.81 B 00110 DATA 48.2.2300.204.,160.39.,173.G2.3. 80130 DATA 145.853.136.16.251.24.169.4d0. u.u.ı.ııı.n.a.nı,u.s 105.0.14 06140 ı'.ın'rıı 63.3.56.173.64.3.233.490.141.6 4.3.173.65.3.233.0.141.65.3.160.32 <200)> 00150 DATA (162.255.208.200.253.136.200.8 ©.230.60.3.206.61.3.173.61.3.8201.8 Ç| <ısa)> 00160 DATA 808.159,86 «drd> C-128 İÇİN HIZLI DOSYA DİZİSİ OKUYUCUSU Bu program bir makine dili rutini kullanarak, bir disk- teki bir dosyanın okunmasını ve ekranda gösterilme- sini sağlıyor. Ekranı noscroll (akışı durdur) tuşuyla her- hangi bir noktada dondurabilir ve run-stop tuşuyla programı durdurabilirsiniz. Program burada yazıldığı gibi, satırlar yeniden nu- maralandırılmadan ya da sentaksta değişiklik yapıl- madan yazılmalı ve her kullanışında diskten yeniden yüklenip run edilmelidir. PROGRAM ADI * HİZLİ OOSYA OKUYUCUSU 8Ö REM HIZLI DOSYA DIZIİSİ OKUYUCUSU <a250)> 00001 FASTITRAPALINPUT "FİLENAME" JASI INPU T "ORİVE W"30O <169)> SOdO2 IF A£)"" AND OT AND OCİB THEN ş ÖPEN 2.D.B.AStELSETEND <1Ba) 60003 FOR 147176 TÜ 7İSGİREAD AtPÖOKE İAt NEXT GPRİNT CHRSC14)15YS 7176 <233> 60004 DCLEARECD) <803)> 00005 DATA 162.2.32.198.255.32.BO7 .2S5.32 *45.199.32 <155) 00006 OATA 285.255.240.4.,165.144.240.Bdi 76.231.255 <186) BİR HIZLI OKUYUCU DAHA Biribirini izleyen dosyaları okumak için hem C-64 hem de C-128 modlarında İşleyen bir program da- ha sunuyoruz. Özellikle kelime işlemcisi dosyalarını ta- ramakta yararlı olacak bir program. PROĞGRAM ADT 1 HİZLİ OKUYUCÜU 00000 REM HİIZLİ OKUYUCU <844)> 60810 INPUT “ENTER FİLENAME"JAS <eBsa)> ©d020 ÖPEN 8.8.2.AS4".S.R" <a02)> 00030 GET W2.ASIPRINT AHILIF STC)64 THE <addâ)> 00040 CLOSE 8 <B59)
