Sayfa 63

55 000

OPEN ENİ“ B$t

VA

Bİ Aİ

Başlangıç Adresini

Bulmak:

Aşağıdaki yordam herhangi bir programın başlangıç adresini bulmada kullanılır. Bu genellikle makine dilindeki bir programın SYS kodunu bulmak için çok kullanışlıdır.

55000 INPUT 55001 8,A3,B3:CLOSE8 - 55002 A-ASC(AŞ 4 B- ASC(B34

55003 PRINT “BAŞLANGIÇ ADRESİ: ”; A*2564B

PRINT PEEK(43)+256*PEEK(44) ile BASIC programınızın hangi adresten başladığını öğrenebilirsiniz.

PRINT 4 size değişkenlerin saklanmaya başlandığı ilk adresi verecektir.

PRINT CHR$(PEEK(69)AND 127); CHR$(PEEK(70)AND 127) verdiğinizde, bilgisayarın en son kullandığı değişkenin adını öğrenirsiniz.

PRINT PEEK(55)+256*PEEK(56) ile, BASIC programı ve değişkenler için ayrılan boş içbellek kısmından sonra gelen ilk byte'ın adresini öğrenirsiniz.

Metinlere yazı düzeni vermek: Çoğu zaman metinleri ortalamak veya sağa dayalı yazmak konusunda sorunlarla karşılaşırız. Aşağıdaki kısa BASIC satırları bu sorunu halletmekte size yardımcı olacak: Ortalama: FOR I=1 TO (40-LEN(A$))/2:PRINT " ";:NEXT:PRINT A$ Sağa dayalı yazma: FOR I=1 TO 40-LEN(A$):PRINT " ";:NEXT:PRINT A$

A$ değişkeni, her defasında yazı düzeni verilecek satırı içermelidir.

Başlangıç adresini bulmanın diğer bir yolu ise şu:

10 A$- “program adı” 20 OPEN 1,8,0,A$4 “,P,R” 30 GET 1,B$:CLOSE | 40 PRINT ASC(AŞ 4 CHR$(0)) 4 4 Eğer bitiş adresini merak ederseniz, LOAD “prog- ram adı”, 8,1 ile yükleyin ve PRINT PEEK(176) * 256*PEEK(177) ile programın son byte'ından sonra gelen adresi öğrenin.

Eğer bir READ komutunun hemen arkasına PRINT PEEK(63)+256*PEEK(64) yazarsanız, en son okunan verinin okunduğu DATA satırının numarasını görürsünüz.

Eğer herhangi bir BASIC programı satırında PRINT PEEK(57)+256*PEEK(58) olursa, o satırın numarasını ekranda görürsünüz.

POKE 775,200 yaptıktan sonra programınızı LIST edemezsiniz. POKE 775,167 ile tekrar normale dönülür.