Biyoritim

İnsanla ilgili ve bize değişik gelen çırçak yöntem gibi biyoritim de Çinlilerin bir ürünü. Biz de bu yöntemi Commodore 64'e öğrettik. Bakalım iyi öğrenmiş mi?

Biyoritim, beyin faaliyetlerindeki periyodik dalgalanmaların insan yaşamını etkilediğini varsayar. Tarih içinde yüzlerce değişik biyoritim eğrisi çıkarılmıştır, ancak bunlardan üçü özellikle önemlidir: fiziksel, duygusal ve zekasal.

Teoriye göre, insanın doğduğu andan itibaren her bir dalgalanma sinüs eğrisi şeklindedir ve değişik periyodlara yani tekrarlanma sürelerine sahiptir. Örneğin, fiziksel dalgalanma 23 günde bir, duygusal dalgalanma 28 günde bir, zekasal dalgalanma da 33 günde bir kendini tekrar eder. Demek ki, bir insanın doğum günü biliniyorsa, yaşamı boyunca geçireceği herhangi bir gündeki zekasal, duygusal ve fiziksel durumu hesaplanabilir.

Bizim programımız da bu işlemi yapıyor, ama grafik ve ses de kullanarak. Önce isminizi ve doğum tarihinizi vermeniz gerekiyor. Sonra da hesaplamanın başlaması gereken günü belirtmelisiniz. Artık grafik çizimi başlayacaktır. Sizin belirttiğiniz tarih ile 39 gün sonrası arasında kalan zaman dilimi için her bir dalganın sinüs eğrisi, değişik renk ve grafik işaretleri ile çizilecektir. İşlem bittiğinde, boşluk tuşu ile, grafiği kaldığı tarihten devam ettirebilirsiniz. 'S' tuşu ile program sona erer, 'Y' tuşu da, programı yeniden çalıştırır.

Bu arada, eğer hesaplanan tarih, o kişinin doğum gününe denk geliyorsa doğum günü marşı çalınacaktır.

Şimdi biraz satırlara göz atalım:

300: Ekran rengi değiştiriliyor.

310-450: Ekran silinip başlık yazılıyor. Gereken değişkenler hazırlanıp, DATA satırları değişkenlere aktarılıyor.

480-700: Kullanıcının adı, doğum tarihi ve hesaplamanın başlayacağı gün soruluyor ve verilerin doğru olup olmadıkları kontrol ediliyor.

705: Tarihin gerçekten var olup olmadığına bakan altprogram çağrılıyor.

706-750: Daha sonraki hesaplamalar için gerekecek sayılar, verilen tarihlere uygun biçimde hazırlanıyor.

760: Ekranı çizime hazırlayan altprogram çağrılıyor.

770-800: Fiziksel dalgalanma eğrisi tüm ekran taranacak şekilde, 39 günlük süre için hesaplanıp basılıyor.

810-840: Aynı işlem duygusal eğri için de uygulanıyor.

850-880: Son olarak zeka eğrisi hesaplanıp çiziliyor.

885: Eğer çizimin ilk günü kullanıcının doğum gününe denk geliyorsa, doğum günü marşının çalınmasına atlanıyor.

890-950: Ekrana gerekli yazı yazılıp, ne yapılacağı soruluyor. Cevaba göre program ya da çizime devam ediliyor ya da program yeniden çalıştırılıyor.

960-1230: Grafik çizimi için ekran burada hazırlanıyor. Çizim tablosu hazırlandıktan sonra, gün ve ay isimleri yazılıp programa geri dönülüyor.

1700-1710: Ay isimlerinin ve her ay başının sene başına olan uzaklıklarını içeren DATA satırları.

1720-1770: Verilerin okunmasını daha güzel hale getirmek için kullanılan altprogram.

1850-1860: Program burada bitiyor.

2000-3000: Verilen tarihin gerçekten varolup olmadığını kontrol eden ve gerektiğinde programı yeniden başlatan altprogram.

5000-5060: Doğum günü marşının DATA'ları okunup sese çevriliyor. Ancak daha önceden 1700-1710 numaralı satırlar arasında DATA'ların atlanması gerekiyor.

9080-9130: Doğum günü marşının notalarını ve her notanın çalma süresini içeren DATA satırları.

Bakalım bugünkü durumunuz nasıl?..