Sayfa 16

TAKVİM DÜZENLEYİCİ

Bu küçük program M.S. 24 yılından başlayacak tüm yıllar için bir sayfalık bir takvim yazmaktadır.

64 PANKART YAPICI

Bu görebileceğiniz en güçlü kısa programlardan biri. Çocuk partileri, mal satışı gibi olaylar için göze çarpan, büyük pankartlar hazırlanmasını kolaylaştırıyor. Programın çalışması oldukça basit. Önce karakterlerin enini yüksekliğini saptıyorsunuz. Bu 1 ve 9 arasında olabilir. Hiçbir şey girmeden RETURN'e basarsanız, harfler 3 en ve 8 yükseklikte olur. Ondan sonra pankarta yazacaklarınızı girmeniz için çağrı (prompt) alırsınız. Mesajınızı girerken, kasetlerinizi değiştirmek için, SHIFT ve COMMODORE tuşlarına aynı anda basın. Ekranda gördükleriniz yazıcınızdan çıkacaktır: Metninizi girdikten sonra, RETURN'e basarken yazıcınızın açık olmasına dikkat edin. Yazınız son karakterden yazılmaya başlayacaktır. O sırada yazılmakta olan karakter de ekranın sağ üst köşesinde sergilenecektir.

PROGRAM ADI: TAKVİM DÜZENLEYİCİ

00100 PRİNT .CRVSOFF > .CGSPACE YTAKVI cize> ©0110 PRİNT SAYFAYI HESAPLAYIP HAZIRLAR" <016> ©0120 PRİNT "YILLIK TAKVİM. CİKMAK İCİN R ETURN'İ e 60130 OPEN IM CBSPACE )CCBSPACE

00148 INPUT THEN cisa>

00160 BeINTCB-(781NTCB/7)))1FOR Mel TO KUIF THEN ©0170 Kel TO NEXT 00100 Ce0 THEN <635> 60196 FOR Esi TO TO ©0200 : * “İF THEN IF Z>K THEN #0220 NEXT Gel TO 18 STEP YAPRİNT G1 <065> 60230 PRİNT

<146> ©0230 DATA 321.20.31.30.31,30.31.31.30.31 ."OCAKCSSPACE)" ."SUBATLASPACE >*. "MART <084> ©8260 DATA ."MAYISCASPACE 27 "HAZ C3SPACE >".

TOSCASPACE >" DATA ."KASIMCASPACE> *