Özet
DISK SUSTURUCU:.
Kopyalama-korumalı programları kullanırken koruma sistemi disk kafasının ziplama masına ve kulağa hoş gelmeyen seslerin oluşmasına ve bazı disket sürücülerin kafa ayarlarının bozulmasına neden olabilir.
Aşağıdaki programı disket sürücüyü ilk açtığınızda çalıştırarsanız bu kafa ziplaması genellikle oluşmayacaktır.
10 OPEN 15,8,15.
20 PRINT # 15, “M-W”;CHR$(106).
(CHR$(0)CHR$(1)CHR$(133).
30 CLOSE 15.
Bu program disket sürücüsü kapanana değin aktifliğini sürdürür.
PROGRAM UZUNLUĞUNU BULMAK:.
HEX-DEC ÇEVİRİCİ:.
Aşağıdaki satır H$ karakter dizisinde tanımlanmış onaltılı tabandaki dört rakamlık bir sayıyı onlu tabandaki karşılığına çevirir. Onlu tabandaki sayı D sayısal değişkeninde tutulur.
100.
D = 0:FOR I = 1 T04:D% = ASC(H$):D% = D% - 48 + (D%) * 7:H$ = MID$(H$, 2): D = 16 * D + D: NEXT.
Nasıl çalıştığını görmek için, aşağıdaki iki satırı da ekleyip programı çalıştırabilirsiniz.
50 INPUT “HEX”;H$.
150 PRINT D.
Basic dilindeki FRE işlevi herhangi bir anda bilgisayarınızda ne kadar boş hafıza olduğunu gösterir. Aşağıdaki satır C-64'ün hafızasındaki bir programın tam olarak uzunluğunu verir.
PRINT 38911-(FRE(0)-(FRE(0)/0)*65536).
Diğer Dergiler
Tam metin içeriği
PROGRAM UZUNLUĞUNU
BULMAK:
Basıc dilindeki FRE işlevi herhangi bir an-
da bilgisayarınızda ne kadar boş hafıza ol-
duğunu gösterir. Aşağıdaki satır C-64'ün ha-
fızasındaki bir programın tam olarak uzun-
luğunu verir.
PRINT 38911-(FRE(0)-(FRE(0)(0)*65536)
mma, © OTNMMoOdore
74
DİSK SUSTURUCU:
Kopyalama-korumalı programları kulla-
nırken koruma sistemi disk kafasının zıpla-
. masına ve kulağa hoş gelmeyen seslerin oluş-
masına ve bazı disket sürücülerin kafa ayar-
larının bozulmasına neden olabilir.
Aşağıdaki programı disket sürücüyü ilk aç-
tığınızda çalıştırırsanız bu kafa zıplaması ge-
nellikle oluşmayacaktır.
10 OPEN 15,8,13
20 PRINT # 15,“M-W”;CHR$(106)
(CHR$(Y)CHRŞ(YCHR$(133)
30 CLOSE 13
Bu program disket sürücüsü kapanana de-
gin aktifliğini sürdürür.
HEX-DEC ÇEVİRİCİ:
Aşağıdaki satır H$ karakter dizisinde ta-
nımlanmış onaltılı tabandaki dört rakam-
lık bir sayıyı onlu tabandaki karşılığına çe-
virir. Onlu tabandaki sayı D sayısal değiş-
keninde tutulur.
100
D—0O:FOR 1-1 T04:DW-—ASC(H$):DW
— DYo-48-4 (DY)64*7:H$ —MID$(H$,2):
D—-16*D4-DW:'NEXT
Nasıl çalıştığını görmek için, aşağıdaki iki
satırı da ekleyip programı çalıştırabilirsiniz.
30 INPUT “HEX H$
150 PRINTD
>
