Sayfa 50

PROGRAM ADI 3 KAFA ZİPLATICI

00010 ÖPEN TO . ©0030 FOR TO JÖ:NEKT 1 5S, 15TEND

PRİL 00040 PRİNTH15,“M-R"CHRS(O)CHRS(28):GET AND 3 . ©0050 AND 3 00060 R-CA AND 252) OR RETURN

Derviş - $OO0E

Bu program, ekranlarına biraz hareket katmak isteyenler için. Programı yazıp çalıştırdığınızda ekranınızın saat istikametinin tersine dönmeye başladığnı göreceksiniz. Program interrupt olarak çalıştığı için, siz BASIC'le çalıştığınız sürece program da etkilenmeden çalışmasını sürdürecektir.

PROGRAM ADI 1 DERVİS

00010 PRİNT “<CLR> DATALARI KONTROL EDİYO TO S1*190 3READ 4D ©0020 POKE X.D:PRİNT TİF CKC)16 666 THEN PRİNT PRİNT "DATA SATIRLA RI 000830 PRİNT 491 Sa ILE CALISTIRIN... 00040 PRİNT *<DOWN><3RİGKTİSYS 49155 ILE DURDURUN.

<163>

<008) <113>

<ıa2)> 00050 DATA 76,49,192,76,112,192,0,0,1,2,3 4 <078) , ©0060 DATA 0,1,2,3,4,120,169,88,141,20,3,169,1 sa 00070 DATA 141,21,3,169,1,141,26,208,169, 0,141,18:208,173,17,208,41,119,141, 17 ©0080 DATA 08,88,96,173,25,208,41,1,240,11,169

<013) 00090 DATA 141,25,208,32,150,192,76,49,23 4,104,168,104,170,104,64,120,169

00100 DATA 128,141,26,209,169,49,141,20,3 .169,234,141,21,3,173,22,208,41,240 ©0110 DATA 9,8,141,22,208,173,17,208,d1,2 40,9,11,141,17,208,88,96,174,6,192 <137) ©0120 DATA 173,22,208,41,248,29,7,192,141 ,22,208,173,17,208,41,248,29,28,192 (043) 00130 DATA 141,17,208,238,6,192,173,6,192 *201,21,144,5,169,0,141,6,192,96

MEM - SAVE - $000F

Monitör programı olmayan arkadaşlarımız hafızanın herhangi bir yerindeki programları kaydetmeyi nasıl beceriyorlar bilemiyoruz, ama beceremeyenlerin yardımına bu program koşacaktır. Başlangıç adresi, bitiş adresini yazdıktan sonra dosya adını yazın ve hafızanın istediğiniz sjmfizuru diskete kaydedin.

PROGRAM ADI MEM-SAVE

<189) <157)

00010 INPUT “BASLANGIC ADRESİ 60020 INPUT “BITİS ADRESİ 00030 INPUT "DOSYA ADI “/DASISYS

<030) 00040 POKE 3)4256 60050 POKE 780,172:POKE 782,SA/256 00060 POKE 65496 <O72)

HIRES Temizleme -$0010

BASIC'ten grafik ekranı temizlemek ancak bu kadar hızlı yapılabilir. Program temizlemeyi görmeniz için grafik ekranına geçiyor ve A değişkeni için 7000 baytlık bir alan açıyor. CLR komutu A değişkeninin alanını temizlerken grafik ekranı da temizlenmiş oluyor.

PROGRAM ADI : HİRES TEMİZLEME

00010 POKE 53272,29:POKE 53265 ,59:POKE S6

S76.3

DIM