C64 için Püf Noktaları

Commodore sayı 47, Ocak 1990 · sayfa 16, 17

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>
*
PROGRAM ADI © PANKART YAPICI
©0100 PRİNT “PANKART YAPICI *
©0186 PRİNT *PROMPTLARDA RETURNE BA8* <058>
00130 PRİNT “EN 3.YÜKSEKLİK
60146 PRİNT “ACMAK İCİN SHİFTECOMMODORE T
USLARINI KULLANIN" <160>
©0150 PRİNT “TABAN VE TAVAN <100>
©0160 PRİNT “EKRANDA GÖRÜNENLER BASILICAK
©0170 CLOSE İtOPEN S3200.01P0
e
(#35296
©0190 INPUT
LINPUT "YÜKSEKLİK
PRİNT KOPYALACDOKN>
MS
IF THEN
<213>
FOR TELENCMS) TO 1 STEP
FOR TO TIFOR TO 7
©0240 POKE
AND
6334.1
IF THEN
276
<cesa>
©0270 NEKT FOR Zal
TO THEN
©0200 1
NEKT
1
©0290 PRINT "BASKA BIR
188.
00300 GET ASe*Y* THEN RUN cesa>

ELEKTRONİK SANAYİ VE TİCARET A.Ş. Anadolu Liselerine Hazırlık 17