1 Kasım 1990 Tarihli Commodore Gazetesi Sayfa 19

Raster Şeritleri -$0011 Bu proğramı yazıp çalıştırırsanız tanıtım veya giriş ek- ranlarınıza renk katacak efektler ede edebilirsiniz. Prog- ram makine dilinde yazılmıştır ve interrupt tekniğiyle ça- Yısmaktadır Bu sebeple siz program yapmaya devam eder- ken bu şeritler de çalışmaya devam eder. Ama bu prog- ramı interrupt tekniğiyle çalışan diğer programlarla be- raber kullanmaya çalışırsanız. Bilgisayarınız kilitlenebilir. PROGRAM ADI : RASTER SERİTLERİ 00000 R! -- RASTER SERİTLERİ -- <255> 00010 FOR T'AOISI TO 49273:READ D:PDKE T. <238> K 72.138.72.152.72.10A.2.200.10 2,16,208,2,160,0,132,2,185,28, 192 141,33,208,76,81,2 1,3,6,14,1,3,6 N © oU >. - 000 : z <212> 00030 DATA (141,33,2! S4,1,3,6,14,1,3,6,14, <252> 00040 DATA 14,32,155,183,134,251,32, ıss 1 83,134,252,32,155,183,134, 253 00050 DATA 155,183,134,254,165,251, ıu 28 .192,141,32,192,141,36,192,141,40 00080 DATA 192,165,252,141,29,192,141,33, 192,141,37,192,141,41,192,165,253 00070 DATA 141,30,192,141,34,192,141,38,1 92,141,4â2,192,165,254,141,31,1 000860 DATA 141,35,192,141,39,192,141,43,1 <223> <230> <210> <135> 2,0 <253> 00090 PGKİ SS2BI..:POKI 2,.1:POKE 792,.:PO İ 793,1 İZ <242> 00100 S 49196, 12,15 <199> 00110 POKE 56500 SAIPOKE 56581,1:POKE 565 *:POKE 565 <003> 00120 PUKE 56589, IŞOzPOKE 56590,17:POKE S 6591,81 <180> 00130 PRIN T '(CLR)(TSPACE)AIUI CUBUR- lASî ER SERİTLERİ <115)> | Flash-$0012 Bu program da makina diliyle yazılmıştır ve bir önce- ki program gibi interrupt tekniğiyle çalışır. Programınız çalışırken aynı anda belli bir yazıya dikkat çekmek isti- yorsanız bunu yazabilirsiniz. SHIFT ve Commodore tuş- larıyla bastığınız karakterler ton geçişi sağlayacak şekil- de parlayacaklardır. FLASH REM —-->--I Fi KARAK, 00818 DATA ızo.ı'öe.'ı':.uı 20.;.15.192 yAsç2a> FKO LN ss. 4,20B,76,49,234 <014> O00ZO DATA w. ıoo o.ısı 0,4,153,0,5, ıu.o.b.ısı.o.7.2oo,m2.o.2w,:.n, <018> 00030 DATA 23,192,96,120,169,49,141,20,3 »169,234,141,21,3,88,9 00040 FOR Rs0 TO Sö:READ A:POKE 49152*R,A “ ENEXT <021> 00050 A-53265:POKE A, reexm) OR 64:REM E XT D 000650 Pox: 53280, oıroı:s 53281,0:POKE 646, <130> 00070 svs <128> xnı -<a.ıı>ggmaugu:(auın-m>q ERGISıI" <146)> <126> <091> Satır Silici - $0013 Eğer ekrandaki bir satırı çevreyi etkilemeden silmek is- tiyorsanız bu programı kullanın. Kernal rutinleri yardı- mıyla POKE 781, y, POKE 782, x ve POKE 783, 0 ko- mutlarından sonra vereceğiniz SYS 65520 komutlarıyla *y' olarak verdiğinizi parametrenin gösterdiği satır sili- necektir ve poke'larla verdiğiniz x ve y değreleri kursö- rünüzün koyulacağı satırı belirtecektir. Bu kısa program basıc programlarınızda kullanmanız için idealdir ve emi- niz ki size büyük kolaylıklar sağlıyacaktır. PROGRAM ADI : SATIR SILICI 00015 PRINT ASINIZ 00020 FOR E DERGİSİ ABUR- CUIUR ! '<CLR>(IOİPACI>ARI CUBUGUNA B ı <20 '(IOSPACE>ARA CUBUGUNA BASINI 00025 PRINT zıc 30?) <127> 00030 X-24:Ys<0 <009> 00040 POKE 198,0:WAIT 198, <012> 00050 GOSUB 100:5YS ŞUOOŞIREN SATIRI SİL <255> 00050 XsX-1:1F X<0 THEN Xz24:60T0O 15 <019> 00070 GOTO 40 <016> 00100 POKE 781,X:POKE 782,Y:POKE 7863,0:5Y S 65520:RETURN < Hızlı Kafa - $0014 Programımız ilk bakışta size biraz anlamsız gelebilir fakat 1541 kullanıcıları bu programı kullandıklarında ya- rarını göreceklerdir. Programda OPEN komutu ile sü- rücünüz hata kanalını açarak CHR$ (sayı) ile yazacağı- nız karakterler sürücünüzün VALIDATE, SCRATCH, vb. komutların çok daha hızlı çalışmasını sağlayacaktır. PROGRAM ADI : HİZLİ KAFA 00010 ÖPEN 15,8,15:PRINTKIS, — "M- U'CHRC(?)C HRS(ZBCHRSCLICHRS(C1Sİ:CLOSE 15 190> Sayfa Temizleme - $0015 Kısa, hızlı ve güzel görünen bu sayfa temizleme prog- ramı Basıc ile program yapan arkadaşlara tavsiye edilir. Ekranı hangi karakterlerle doldurmak istiyorsanız CH$ adlı karakter dizisini bu karaktere eşitleyin. Bu dizi da- ha sonra reverse olarak ekrana satır satır basılacaktır. Bir perde inmesi efektinden sonra ekran ikişer satır olarak yukarı kaydırılır ve sonra da temizlenir. dikkat ederse- niz bu programda PRINT “CLR/HOME”' kontrol ka- rakteri kullanılmamıştır. Bunun yerine kullanılan SYS ko- mutları ise şöyledir: PRINT “HOME”'....... SYS 58726 PRINT “CLR/HOME”....SYS 58692