Bu sayfadaki yazılar
Sayfanın metni
Sayfa 31
Commodore 64'ün en önemli özelliklerinden biri ekran cinleri biliyorsunuz. Yarattığı şekilde ya da yazının ekranın dört bir köşesinde fırıl fırıl döndüğünü görmek bir bilgisayar meraklısına büyük sevinç verir. Bu mutluluğu tatmak için oturup bir cin yaratmaya çalıştınız mı? Evet biliyorum işin en zevksiz tarafı kareli kağıttan dolu noktaları okuyup dataları hesaplamaktır. Hele birkaç saattir ekran başındaysanız rakamlar nasıl da birbirine girer. Bir de işin en kötüsü yarattığınız ekrandaki görüntüsü, kağıttakinin tam aynısı olmaz. Ama şu 3-4 K'lık programı yazınca bütün bunlardan kurtulmuş olacaksınız; artık bir cintraş olabilirsiniz. Programın en önemli yararı her bir noktayı kareli kağıtta (kareli ekrana) basarken küçücük cininizin de o anda ekranın bir köşesinde nasıl değiştiğini görebilmenizdir.
Programı çalıştırdığınızda önce "yaratığın silinmesini istiyor musunuz?" sorusuyla karşılaşacaksınız. Bu soruyu "E" harfiyle yanıtlarsanız, yaratığın o anki görüntüsü temizlenecek ve ekrandaki çabucak noktalı tablo ortaya çıkacaktır. "H" harfiyle yanıt verirseniz o zaman bilgisayar yaratıktan gerekli değerleri okuyup noktalı tabloya aktarır. Bu biraz yavaş bir işlemdir. Eğer programı ilk kez çalıştırıyorsanız, bu soruya evet yanıtını verin. Ekrandaki noktalı tablo belirdiğinde sol üst köşedeki nokta açık renk olacaktır. Bu bizim cursor'umuz. Klavyedeki cursor tuşlarını kullanarak bu noktayı istediğiniz yöne doğru oynatabilirsiniz. "1" tuşuna bastığınızda cursor'un bulunduğu nokta içi dolu kare haline gelecek, aynı anda yarattıkta da buna karşılık gelen noktacık ekranda parlamaya başlayacaktır. "2"ye basarsanız bu işlemin tam tersi olur. Yani basılı noktaları "2"ye basarak silebilirsiniz. Bu şekilde bir şekil çizebilir, çok değişik karakterli bir yazı yazabilirsiniz. INST-DEL ve CLR-HOME tuşlarını kullanarak cininizin satırlarını sağa-sola, sütunlarını da aşağı-yukarı kaydırabilirsiniz. F-1 ve F-2'ye basarak yaratığın yatay ve düşey genişlemesini sağlayabilir. F-3 ve F-4 ile yaratığın ve zemin rengini değiştirebilir. F-5 ve F-6'ya basarak yatay ve düşey eksenlere göre cininizin simetriğini alabilir (Şekil 1). F-7 ile negatif görüntü yaratabilirsiniz (Şekil 3). Yatay ve düşey simetrik alırken, herhangi bir tuşa dokunursanız simetrik alma işlemi yarıda kesilecektir.
Yaratık son halini aldıktan sonra tek yapacağınız return'e basmak. Return'e basılınca ekran temizlenecek ve yarattığınızın data değerleri satır numaralarıyla birlikte ekranda belirecek. Eyvah! Son bir düzeltme daha mı yapacaktınız? Üzülmeyin, hemen programı yeniden run'layın ve "yaratığın silinmesini istiyor musunuz?" sorusuna hayır yanıtını verin. Ekrandaki cin noktalı tabloya aynen geçecektir. Düzeltmeyi yapıp yeniden return'e basabilirsiniz. Datalar belirdikten sonra bilgisayara NEW komutunu gönderin, sonra da hemen cursor'u datanın satır numaralarının üzerine getirip, teker teker return'e basın. İşte şimdi elinizde cininizi oluşturacak rakamlar var. Yaratığınızı ekranda dört döndürecek programı yazmak da size düşüyor. İyi şanslar...
Klavyeyle gezinmek için ← ve → tuşları.
Sayfa 30
NEXT PRİNT YOCISPACE YELE SPACE İM 3SPACE YALISPACE Z3ERACE YP PRİNT TO GEPRİNT TA
Sİ TNEKT ATPRİNT RANT PRİNT * TÜ
* DİSARIDAYISFOR T © EiPRİNT LI, PRİNT CER) "3 “TESCİN) PRIMT * 4G, 5.8) PRİMT * BASINA A, OD PRİNT * OLOYUN BASİNA
BLD PRİNT * O.OYUM PUANI ) PRİNT * OYUN BASINA PRİNT * GÜL A. 8100) GÖSÜB 1588
FOR TÜ Tü | REM 1161 33 YER FOR Isi TO Iİ THEN
BİZE NEKT | PRİNT *TECTNDEPRİ NT
> * FAR TO ORT MOL, THEN Bala IF 2) THEN PRİNT IF 2) THEN PRİNT BE“<U Tİ * 7 IF THEN PRİNT NEKT 1
PRİNT GRAFİĞİ <&D FOR İzi TO ORT THEN 2598
İF THEN Za7a FOR İzi TÜ FOR TO NEKT J
1F THEN PRİNT "FE EFOR TO PRİNT J FOR TO NEKT NEXT 1599 PRİNT *<CLR)CRVSOND MACLARI * FOR TO İ:G0S VB
82818 Basen Bas3a Bassa
PRİNT MACLARI" FOR TO 1 RETURN REM IF THEN PRİNT TMCL. THEN İF THEN TİSTNİ 1,2) TF THEN Bi PRİNT
REM SUB GENEL DÜRÜM PRİNT EL DURUMU * (0 PRİNT OYNANAN * PRİNT PRİNT * YENGİ İLE BİTEN *)* PRİNT * BERABERE BİTEN OYUN*TABC23) PRİNT * TOPLAM ATILAN GÖL TA PRİNT * OYUN BASINA PRİNT * DIS SAHADA BY* PRİNT * YÜZDESİ PRİNT * "DA" PRİNT * ORTAK SAHA PRİNT * PRİNT * PRİNT * SONUNCÜ"TAB (23) 1500:FOR TO TÜ BiĞTCİ, FOR 1-1 TO TSİFOR TÖ THEN Basa GEC7 AND GE<7 THEN TO 2858 NEKT 1 PRİNT SON SAYISI FOR Iz8 TO TO THEN IF THEN PRİNT DTAB
İF 1s) THEN PRİNT 1, DTABCIS)C$ İ iF THEN PRİNT *(35P ACE RETURN