TAKVİM

Program dökümü: TAKVIM

1900 ile 2050 yılları arasında yeralan bir yılın takvimini istiyorsanız yaptığı işe göre kısa sayılabilecek programımızı yazın. Programın bir diğer özelliği de hiçbir değişiklik gerektirmeksizin C-128, C-64, Plus/4 ve C-16 bilgisayarlarında çalışabilmesi.

2000 yılında yılbaşının hangi güne geldiğini nasıl hesaplayacaksınız? Veya doğmuş olduğunuz yılda doğum gününüz hangi günde idi? Program çalıştıktan sonra seçtiğiniz yılı sizin vermiş olduğunuz başlıkla birlikte düzgün olarak istediğiniz yere yazar.

Programı yazdıktan sonra kasete veya diskete kaydedin. Takvime ihtiyacınız olduğunda programı yükleyip çalıştırmanız yeterli olacaktır.

Program çalıştığında sizden takvimin yapılmasını istediğiniz bir yıl isteyecek. 1900 ile 2050 yılı arasında bir yıl verebilirsiniz. Eğer 0 ile 99 arasında bir sayı girerseniz, program yirminci yüzyılda bir yıl sorduğunuzu kabul ederek verdiğiniz sayının başına 19 ekleyecek.

Sıra yazılmasını istediğiniz özel mesajın verilmesine geliyor. En fazla 254 harften oluşan bir mesaj yazabilirsiniz. Vermiş olduğunuz mesaj kullanılarak takvimin başına yıl yazılacak. Eğer hiçbir mesaj yazmadan RETURN tuşuna basarsanız takvimin başına yazılacak olan yıl rakamlardan oluşacak.

Son olarak takvimin başına yazılacak olan yılın ters olarak mı, yoksa normal olarak mı yazılmasına karar vermelisiniz? Hemen hemen tüm yazıcılar normal olarak yazılımda sorun çıkarmazlar, ancak ters olarak yazılımda bazı yazıcılar sorun çıkarabilir. Mesela C1526 yazıcısı ters olarak yazılımda bazı yılları doğru yazarken diğerlerinde hata yapacaktır.

Yazım türünü seçtikten sonra ekranda şu satırları göreceksiniz:

(E)KRAN, (P)RINTER, VEYA (D)ISK

Eğer E'yi seçerseniz takvim ekrana çıkar, diğer 80 kolonluk bir görüntüye sahip değilseniz görüntü anlaşılmaz olacaktır.

Takvimi yazıcıya çıkarmak için P'yi seçin. Takvimi ortalamak için kağıdı çok hafif aşağı indirin.

Elde ettiğiniz takvimi diskette saklamak için D'yi seçin. Eğer aynı takvimden birçok kopya çıkartmak istiyorsanız, bu seçenek yararlı olabilir. Bu seçeneği kullanırsanız diskette yeralan sequential bir dosyayı yazıcıya geçirebilen bir programa ihtiyacınız var. Ek olarak Easy Script'i kullanabilirsiniz.

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.