TAKVİM

Program dökümü: TAKVIM

Bazen geçmişteki veya gelecekteki, bazı özel tarihlerin hangi güne rastladığını merak etmişsiniz. Böyle bir durumda bu program size yardımcı olacaktır.

Program istediğiniz bir yılın, herhangi bir ayına ait takvimi oldukça kısa bir sürede hazırlayıp gösterebilmektedir. Ayrıca sorduğunuz yılın ilk gününü (1 Ocak) de ekrana yazarak size belirtmektedir.

Programı çalıştırdığınızda karşılaşacağınız ay-yıl sorusuna ay için 01-12 arası bir sayı, yıl için ise, dört rakam halinde istediğiniz yılı verebilirsiniz. Bu işlemleri tamamladıktan sonra return tuşuna basıp bir süre bekleyeceksiniz. Vereceğiniz ayın durumuna göre geçen süre uzayıp kısalabiliyor. Örneğin 01-1900 yılına ait takvim 3 saniyede gösterilirken, 12-1900 yılına ait takvim yaklaşık 9 saniyede gösterilmektedir. Bunun nedeni istenen ayın ilk gününün, verilen yılın ilk gününe göre hesaplanması ve döngünün, o ayın Ocak ayına uzaklığıyla doğru orantılı olarak artmasıdır. Programı severek kullanmanızı dilerim.

Program Satırlarının Açıklanması:

80-146: Giriş bölümü.

200-220: Takvimi istenen ayın ve yılın sorulması.

222-230: Ay ve yılın doğru girilip girilmediğinin kontrolü.

233-245: Verilen yılın ilk gününün bulunması.

255-270: Ayın ilk gününün yılbaşına göre bulunması.

300: Yılbaşı gününün belirtilmesi.

305-400: Takvimin ekranda gösterilmesi.

Bu yazıdaki programlar

Dergideki dökümlerden çıkarıldı; satırlar derginin kontrol toplamlarıyla doğrulandı ve programlar VICE emülatöründe denendi. Tarayıcıdaki C64'te çalıştırabilir, indirip bir emülatöre sürükleyip bırakabilir ya da gerçek bir C64'te LOAD "AD",8,1 ile yükleyebilirsiniz. "Sorun bulundu" yazanlarda bazı satırlar okunamadı ya da tutmadı; düzeltilmiş bir sürümünüz varsa contact@coze.org adresine gönderin.