Bu sayfadaki yazılar
Sayfanın metni
Sayfa 18
ABUS CUBUR
Klavyeyle gezinmek için ← ve → tuşları.
Sayfa 19
Bu programı yazıp çalıştırırsanız tanıtım veya giriş ekranlarınıza renk katacak efektler elde edebilirsiniz. Program makine dilinde yazılmıştır ve interrupt tekniğiyle çalışır. Bu sebeple siz program yapmaya devam ederken bu şeritler de çalışmaya devam eder. Ama bu programı interrupt tekniğiyle çalışan diğer programlarla beraber kullanmaya çalışırsanız bilgisayarınız kilitlenebilir.
PROGRAM ADI : RASTER SERİTLERİ 00000 REM ---- RASTER SERİTLERİ ---- <255> 00010 FOR TO 49273:READ D:POKE T, 00020 DATA 72,138,72,152,72,164,2,200,18 2,16,208,2,160,0,132,2,185,28,192 00030 DATA 141,33,208,141,33,208,76,81,2 S4,1,3,6,14,1,3,6,14,1,3,6,14,1,3,6 <252> DATA 14,32,155,183,134,251,32,155,1 83,134,252,32,155,183,134,253,32 DATA 155,183,134,254,165,251,141,28 .192,141,32,192,141,36,192,141,40 DATA 192,165,252,141,29,192,141,33, 192,141,37,192,141,41,192,165,253 DATA 141,30,192,141,34,192,141,38,1 92,141,42,192,165,254,141,31,192 DATA 141,35,192,141,39,192,141,43,1 92,96,153 POKE 53281,.:POKE 2,.:POKE 792,.:PO KE 793,192 SYS 49196,1,11,12,15 POKE 56580, 34:POKE 56581,1:POKE 565 82,.:POKE 56583,. POKE 56589,130:POKE 56590,17:POKE S 6591,81 PRINT ER "
<238>
<212>
<223> <230> <210> <135> <253>
<242> <199>
<003>
<180> "<CLR><7SPACEDABUR CUBUR-RAST
Bu program da makine diliyle yazılmıştır ve bir önceki program gibi interrupt tekniğiyle çalışır. Programınız çalışırken aynı anda belli bir yazıya dikkat çekmek istiyorsanız bunu yazabilirsiniz. SHIFT ve Commodore tuşlarıyla bastığınız karakterler ton geçişi sağlayacak şekilde parlayacaklardır.
PROGRAM ADI : FLASH <029>
41,21,3,B8,96,238,34,208,76,49,234 <014> DATA 169,96,160,0,153,0,4,153,0,5, 153,0,6,153,0,7,200,192,0,240,3,76, <018> DATA 23,192,956,120,169,49,141,20,3 FOR Rs0 TO Sö:READ 49152*R, A A,PEEKLA) OR ö4:REM E XTENDED BACKGROUND MODE FPOKE 53280,0:POKE 53281,0:FOKE 646, 1 <130> 00070 SYS 49152 <128> 000B0 PRİNT ERGISI" <146>
<126> <021> <091>
Eğer ekrandaki bir satırı çevreyi etkilemeden silmek istiyorsanız bu programı kullanın. Kernal rutinleri yardımıyla POKE 781, y, POKE 782, x ve POKE 783, 0 komutlarından sonra vereceğiniz SYS 65520 komutlarıyla 'y' olarak verdiğiniz parametrenin gösterdiği satır silinecektir ve POKE'larla verdiğiniz x ve y değerleri kursörünüzün koyulacağı satırı belirtecektir. Bu kısa program BASIC programlarınızda kullanmanız için idealdir ve eminiz ki size büyük kolaylıklar sağlayacaktır.
PROGRAM ADI : SATIR SİLİCİ 00015 PRİNT "<CLR><LOSPACEDARA CUBUGUNA B <1868> COMMODOR <201)> 00025 PRİNT "<LOSPACEYARA CUBUGUNA BASINI Z * <127> 00030 <009> 00040 POKE 198,1 <012> 00050 GOSUB 100:5YS 59903:REM SATIRI SİL <255> <019> <016>
ASINIZ " 00020 FOR Asi TO 23:PRİNT E DERGİSİ ABUR-CUBUR !
00060 Xs#X-1:1F THEN 15 00070 GOTO 40 00100 POKE 781,X:POKE 782,Y:POKE 783,0:5Y
S 65520:RETURN <145>
Programımız ilk bakışta size biraz anlamsız gelebilir fakat 1541 kullanıcıları bu programı kullandıklarında yararını göreceklerdir. Programda OPEN komutu ile sürücünüzün hata kanalını açarak CHR$(sayı) ile yazacağınız karakterler sürücünüzün VALIDATE, SCRATCH vb. komutlarının çok daha hızlı çalışmasını sağlayacaktır.
PROGRAM ADI : HIZLI KAFA
"M-W"CHRSC7)C <190>
00010 ÖPEN 15,8,15:PRINTWIS, HRS(Z28)CHRS 15
Kısa, hızlı ve güzel görünen bu sayfa temizleme programı BASIC ile program yapan arkadaşlara tavsiye edilir. Ekranı hangi karakterlerle doldurmak istiyorsanız CH$ adlı karakter dizisini bu karaktere eşitleyin. Bu dizi daha 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 ederseniz bu programda PRINT “CLR/HOME” kontrol karakteri kullanılmamıştır. Bunun yerine kullanılan SYS komutları ise şöyledir: PRINT “HOME”....... SYS 58726 PRINT “CLR/HOME”....SYS 58692