Bu sayfadaki yazılar
Sayfanın metni
Sayfa 18
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.
Klavyeyle gezinmek için ← ve → tuşları.
Sayfa 19
NEXT YNEKT 00038 PRİNT GİRİN K
GET THEN 48 IF TREN SE IF AND THEN 48 ON AND A OR GÖTÜ 80046 PRİNT 48 ©0952 PRİNT İPRİNT TERS BASIL SINMIZ CEZH) 128 ON 68,56 S2 #8068 PRİNT EMS *CEYKRAN, (FORİNTER, VEY A 128 ON DAS GÖTÜ S2 PRİNT *YAZICIYI HAZIRLAYIN VE B IR TUSA BASIN..." goose GET Bs-** THEN 7E OPEN 15,DR, THEN & 8 ©0074 CLOSE *DİSK H ATASI — *B6* Isi TO 208 Bö 00876 ÖPEN * PRİNT "EFOR Isi TO FOR 1-1 TO 17 STEP Kel TO TÜ STEP IF <B THEN FOR TO :GOTO 86 FOR TO