1 Ocak 1990 Tarihli Commodore Gazetesi Sayfa 16

PUPNOKLAo CG4 için Püf Noktaları 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örebileoeğlnlz en güçlü kısa programlardan ri. Çocuk partileri, mal satışı gibi olaylar içir göze çcırpc:ın. büyük pankartlar hazırlanmasını kolaylaş- tırıyor. Progroı'nın çalışması oldukça basit. Önce karak- terlerin enine yükseldiğini saptıyorsunuz. Bu 1 ve 9 arasında olabilir. Hiçbir şey girmeden RETURN'e basarsanız, harflar 3 en ve 8 yükseklikte olur. Ondan sonra pankarta yazacaklarınızı girmeniz İçin çağrı (prompt) alırsınız. Mesajınızı girerken, ka- rakter setlerini değiştirmek için, SHIFT ve COMMO- DORE tuşlarına aynı anda basın. Ekranda gördük- leriniz 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şlayacak- tır. O sırada yazılmakta olan karakterde ekranın sağ üst köşesinde sergilenecekltir. 16 PROORAM ADI * TAKVIM DÜZENLİYİCİN GD ” 60100 PRIİNT "<CLR).<RVSOFF ) . <GSPACE YTAKVI — DUÜZENLEY. ICİCİGSPACE )" 661106 PRINT "<DOKNDBIİR SAYFAYI HESAPLAYIP IRLAR " ©8180 PRİNT 'Yıu..ıı TAKVIM. CIKMAK İCİN R ETURN'E 68130 ÖPEN 1 ıııımı nıuı.ı:ııuı-cwau 3* 1L8a*PCBBPACE )P(BEPACE 38 | 601486 INPUT “<DOLADYİIL"IYELP Ye8 THEN END 00150 le-“IIIHO INTCA/AILLeitIF AZAĞ-INT THEN BaBtliL B0168 I'lRî(.-(?ılN"M”)lm Mt TO LELPRİNT “BIRCAD KilF Kedü Ol. 00170 B BulNTCB-(78INTCB/7) ) )1ZelIZ ""ıFOR Nat TO CiZgeZge"(3SPACE)" *NEKT 601868 zı-zıo-ı<m>-uı Ce THEN Z$ İ<CBSPACE )" uıum Esi TO GiDEe(M.E)eSsıFOR 0'8 TÜ UIDIM.I)'DICHJ)CIIİZCZOI " *F LEN(ZG)e8 THEN MM' . g6216 IF Z)K THEN ZSe"C3SPACE)" OO220 NEKT (CeGtNEKT ©NEKT 1FOÖOR Gel ça m SıREAD IUJ.'MIPRIN'İ'I SEPRİNT W 688230 PRINT # .ıınıv TABCLLİNSY TABCİLİOS ' YIPRİNT WLEPRİNT Hİ .SALSESLSESLE Bc2d0 FOR Esi TÜ GAPRİNT #Wİ.DSCO.E)DSK . wı.ı*ınıcoıt.ııııııw tENEKT 1CLÖOSE 1 008250 DATA 31.80.31.30.31.30.31.31.30.31 *30.31 . "OCAKCSSPACE )" , "SBUBATCASPACE «"MART uıum "NISANC4BPACE )" . "MAYISC4SPACE 3" ."HAZTRAN" . "TEMMUZ (3SPACE ) " . "ADUS TOSCBSPACE )" . "EYLUL 00270 DATA —“EKİMCSSPACE)" ."KASIMCASPACE) *."ARALIK <1za) <126) <816B) <B13) <681)> cida) <1086) (146)> <018B) <817)