Sayfa 3

Bu kısa sayılabilecek programla, istediğiniz zaman diliminin takvimini isterseniz ekrana, isterseniz de printer'e çıkarabilirsiniz.

Önce takvimde yer alacak olan ilk ayın hangi senede olduğunu vereceksiniz, diyelim ki 1986. Sonra da hangi aylar için olduğunu belirtmeniz gerekiyor. Bu, tıpkı LIST komutu gibi oluyor. Eğer 4 verirseniz sadece Nisan ayı, 4- verirseniz Nisan-Aralık arası, -4 verirseniz Ocak-Nisan arası, 4-6 verirseniz Nisan-Haziran arası, - verirseniz bütün 1986 senesi ve 6-14 verdiğinizde de Haziran/86-Şubat/87 arası basılacaktır.

Sonra da baskının yapılacağı aracı seçmelisiniz. Eğer printer'ı seçerseniz, yanına ikişer ay başlayacaktır. Ekranda ise her ayın baskısı bitliften sonra bir tuşa basmanız beklenecektir. Eğer sola bakan ok tuşuna basarsanız, program takvimi çıkarmayı durduracaktır.

Program satırlarına gelince...

150-160: Gerekli değişkenler hazırlanıyor.

170-230: Sene ve ay okunuyor.

231-233: Hangi araçta baskı yapılacağı saptanıyor.

235: Eğer araç printer ise, satır arası uzaklık azaltılıyor. Bu satır sadece SPS802'de geçerlidir.

240-280: Kullanıcının verdiği ayları belirten veri, parçalarına ayrılıp kontrol ediliyor.

290-300: Takvim başlığı yazılıyor.

310: Baskı yapılacak araca bir kanal açılıyor.

320-330: Baskı için gereken değişkenler hazırlanıyor.

331-338: Baskının ekrana olması durumunda gereken kontrol burada sağlanıyor.

350-370: Eğer gerekiyorsa, takvim başlığı yazılıyor.

380-600: Gerçek baskı işlemleri burada yapılıyor.

610-630: Programın bir daha çalışıp çalışmayacağı sorulup, bu arada da printer'deki satır aralığı eski haline döndürülüyor.

640-650: Ay isimlerini içeren DATA satırları.