1 Kasım 1987 Tarihli Commodore Gazetesi Sayfa 63

4A22 20 E5 50 JSR $50E5 ;LIST rütini YAZS AŞ OOLDA $00 YA27 8D 00 FF STA SFFOO YAZA AŞ OALDA SÜ4 4YAZC 20 C3 FF JSR SFFE7 ;Kernal CLALL rütini tA2F OO RİS ;Bitir Geliştirilmiş INPUT BASIC7.0'da C-64'de alışmış olduğunuz GET ve İNPUT kömutlarından başka GET KEY komutu da bu- lunuyor. İINPUT komutu diğer iki komut gibi kullanıcıdan ve- ri almada kullanılıyor. Ancak bu komutun ekrand soru işareti çıkarması kimi zaman can sıkıcı bİr durum ya- ratır. Ekranımızı bir dosya gibi düşünürsek soru İşaretin- den de kurtulabiliriz: 10 ÖPEN 4,0 :REM Ekran dosya olarak 20 REM tanımlandı. 3O İNPUT A AŞ 40 CLOSE * Diyelim ki, kullanıcının ekranın belirli bir bölgesin- den veri girmesini istiyorsunuz, bu durumda aşağı- daki satırları yukarıdaki programa ekleyin: 15 CHAR,kolon.sıra 35 PRİNT * "4 37AINPUT A AŞ CHAR komutu sayesinde PRİNT AT komutunun işle- vini kullandık. a Uyarı Sesi Bildiğimiz daktilo alt satıra geçilmesi gerektiğini be- lirtmek için sağ tarafa yaklaşıldığında bir ses çıkarır. Bu şekilde bir ses bilgisayarda da faydalı olabilir. Program Döküm Eki'ndeki PROGRAM2 satırın bitimi- ne İki karakter kala ses çıkmasını sağlıyor. Programı- mıziı makine dili olarak aşağıda bulabilirsiniz. 1440 C9 02 CMP $02 144E DÜ 11 BNE 51461 1450 CD 80 14 CMP 51480 1453 FO OF BES 514Ğ4 1455 6D 80 14 STA $1480 1458 A9 A0 LDA — SAÜ0: ses cikar 1ASA 8D 01 DA STA $DAO1 145D AŞ 21 LDA $21 145F DÜ 05 ENE $1466 1461 8D 80 14 STA 51480 :Kolonu sakla YAĞA A9 99 LDA — $00 ;Sesi kapat 1466 8D 01 D4 STA $Dd01 1469 8D 00 D4 STA $D400 1460 8BD 04 D4 STA SDA0A 146F 68 PLA 1470 4C 65 FA JMP SFAâ5 ;İRA'ya atla Son kolon hariç, zil sesini istediğiniz kolona POKE 5197,N komutu vererek çevirebilirsiniz. N, zil sesi için yeni ko- lonu verir. 142D A9 FF LDA — $FF ;Muzik değgerleri 142F 8D 06 D4 STA 5406 1432 8D 18 DA STA 3418 1435 A9 09 LDA - $09 1ASA 78 SEİ ;İnterrupt kapatıldı 143B A9 47 LDA $47 ;İRA vektoru JTesetlendi 143D 8D 14 03 STA $314 1440 A0 tâ LDA 5144 1442 8D 03 STA $0315 1445 58 CLI ;İRE aktıf oldu. 1446 60 RTS ;BASIC'e don 1447 1448 AS E7 LDA $E7 ;Sag marjını yukle 144A E5 EC SBC SEC —— Commodore aa