1 Ocak 1988 Tarihli Commodore Gazetesi Sayfa 49

OA a ai GAT T'o .._,M ve sağ, sol vs. gibi bazı tuşlarda çok hızlı hareket sağlamaktadırlar. Bu belki size başta antipatik gelebilir, ama görüntü çok nettir ve bunlar so- run oluşturmaz. Programın 20. satırındaki AD de- ğerine çeşitli değerler vererek, çeşitli adres bölgelerinde program çalıştırı- labilir. Teyp kullânmıyorsanız teyp gi- riş/çıkış buffer'ı (828-1019 — $033C- $03FF) sizin için ideal yer olabilir. Eğer teyp kullanıyorsanız yine (49152-53247 — $C000-$CFFF) ser- best 4096 byte ram alanı iyidir. Saati herhangi bir anda değiştir- mek isterseniz ilk önce saat ve en son ı e | $ a saniye/10 olmak üzere verileri poke etmeniz yeterlidir. : Artık siz program yazarken veya Basıc vs. gibi bu interrupt yapısını bozmayan programları kullanırken zamanı doğrudan kontrol altına ala- bileceksiniz! Deneyeceklere başarılar dilerim... SAAT PROGRAMI X1 GEİ A VX AA A KA 310 POKE ADtAS4 , ALİPOKE ADtAS,AH ö reEht * * 315 PÖOKE AD*İİ,ALİIPOKE ADtİ2S,AH aa L MAT COMMODORE DERGİSİ * 320 PÜKE HD+EB,CL:PUKŞ ADTEL EH d REM 4 19387 7 * 325 POKE HD+34,CL:PO!E AD*S35;EH — PEM * * 330 POKE AD4*37F,ALIPOKE AD4*38,AH 6& REM 335 POKE ADt5A,CLEIPOKE ADO4*5İ,CH 7 PRINT "i LUTFEN BIRAZ BEKLEYIİN." 340 POKE AD*75,AL:POKE ADt4*7E,AH 16 DEFFN WİCKİSİNT <XZ10)41640X-INT(IX/10)x10) 345 POKE AD4*35,BLs:POKE AD*9IA,BH 2A AD-828 350 POKE ADt*9IF7 , AL:POKE ADt*983,AH 20 FOR C-f Tü İ51:REAN H£ 490 SYS ADt483 40 LEASCLCLEFT$KH$,1))-4d8 405 PRINT:PRIİNT:PRİNT —O RsASCCIRIGHTECHR£,1İ))-40 410 INPUT "SART . ee e r . #"3;H BA POKE AD*C,L*CL>IBİRT)KİSG*IRLAR)D)A7) 420 INPUT "DAKIKA.....3”"3D TO NEXT ; 436 INPUT "SANIYE...rs.1":5 1420 DATARA,AZS,A2,CE,32C0C,03,1A,ME,.AI,AZ3 4480 T-56328 115 DATASD,3C,A3,BD,AM9,DC,23,F7A,4A,dC 450 POKE T43,FN Wİ<H) DATASE,A3,DA,AC,BO,AS,DC,29,€F,18 DATABZA,PA,SA,4C,A6,AM3,AD,3C,M3,CA DATAA2,FO,€3,RDO,MA,DC,S3,7A,dA,AC DATA36,03,BA,09,DC,293,0F,18,2A,ZA DATAZA,dE,AD,BR,DC,CI,AZ,dA,NA,GA DATAB3,04,48,68,00,3C0,A3,80,01,DD DATA4C,3İ,EA,78,A9,23D0,2D0,19,03,A3 DATAB3,80,15,03,A3,AM0,80,30C,023,A9 DATACI,80,18,A3,AND,DE,DC,MI,a0,alı DATADE ,DO,AN ,AF ,DC,23,7F :80 , GF ,DC DATAAS9,FF,80,03,DD,A9,10,80,d5,DC DATARA9S,20,8D0,04,DC,AS,GA,SDO,ER,DC DATASDO,BA,DC,BO,AM9,DC,SA,MS,DC,SE DATA6SÖ ,EA AHSIİNTCAD/256)1ALSAD-AKK2SSE BASZAD*İ BHS İNT(BA/256 ) iBLEBA-BH4256 CASAD*74:CHSINTICA/256) : CLSCA-CHAK2SE 468 470 POKE T*L,FN W<S) 4880 POKE T*t*O,BA 490 INPUT "SAAT SEKLİ.E"; 500 POKE AD*42,5 51ğ END 580 REMİ 605 REM * ADt1383 SAATI AKTIF YAPMA * 6lü REM * AD4*2 £ SAATIN SEKLİ * 615 REM &« 56331 1 SAAT * 620 REM * 56330 :i DAKIKA * 625 REM * 56323 SANIYE * 630 REM * 56328 : SANIYE/İR * 6385 REM RERDY. READY. PÖKE Tt2,FN W<D)