Sayfa 63

41A22 20 E5 50 JSR $50E5 ;LIST rutini 1A25 A9 1A27 8D 00 FF STA SFFOO YAZA AŞ 4A2C 20 C3 FF JSR SFFE7 :Kernal CLALL rutini 60 RTS Bitir

Geliştirilmiş INPUT

BASIC 7.0'da C-64'te alışmış olduğunuz GET ve INPUT komutlarından başka GET KEY komutu da bulunuyor. INPUT komutu diğer iki komut gibi kullanıcıdan veri almada kullanılıyor. Ancak bu komutun ekrana soru işareti çıkarması kimi zaman can sıkıcı bir durum yaratır. Ekranımızı bir dosya gibi düşünürsek soru işaretinden de kurtulabiliriz:

40 OPEN 1,0 :REM Ekran dosya olarak 20 REM tanımlandı. 1,AS 40 CLOSE 1

Diyelim ki, kullanıcının ekranın belirli bir bölgesinden veri girmesini istiyorsunuz, bu durumda aşağıdaki satırları yukarıdaki programa ekleyin:

415 CHAR.kolon.sıra 35 PRİNT “5:

CHAR komutu sayesinde PRINT AT komutunun işlevini kullandık.

Uyarı Sesi

Bildiğimiz daktilo alt satıra geçilmesi gerektiğini belirtmek 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 PROGRAM 2 satırın bitimine iki karakter kala ses çıkmasını sağlıyor. Programımızı makine dili olarak aşağıda bulabilirsiniz.

142D A9 FF LDA SFF ;Muzik degerleri 142F 8D 06 DA STA $406 1432 8D 18 DA STA $418 1435 A9 09 LDA $09 78 kapatıldı 143B A9 47 LDA 847 ;İR© vektoru 4143D 8D 14 03 STA $314 1440 A0 14 LDA 1442 8D 03 STA $0315 1445 58 CLI ;İRE aktıf oldu. 1446 60 RTS ;BASIC'e don 1447 PHA 1448 A5 E7 LDA $E7 ;Sag marjını yukle E5 EC SBC SEC

C9 02 CMP 4144E DO 11 BNE $1461 4450 CD 80 14 CMP $1480 1453 FO OF BEO $1464 1455 8D 80 14 STA $1480 1458 A9 A0 LDA ses cıkar 145A 8D 01 DA STA SD401 145D A9 21 LDA 821 145F DO 05 BNE $1466 1461 8D 80 14 STA $1480 ;Kolonu sakla 1464 A9 99 LDA $00 ;Sesi kapat 1466 8D 01 D4 STA $D401 1469 8D 00 DA STA $D400 146C 8D 04 D4 STA SD404 146F 68 PLA 1470 4C 65 FA

JMP ;İRA'ya atla Son kolon hariç, zil sesini istediğiniz kolona

POKE 5197,N

komutu vererek çevirebilirsiniz. N, zil sesi için yeni kolonu verir.