64 ARAMA YARDIMCISI (UTILITY)

Commodore sayı 43, Eylül 1989 · sayfa 59, 60

Uzun programlar yazarken listelerde belli değişkenleri bulmak ya da altrutin çağrıları için çok zaman harcamak zorunda kalabilirsiniz. Verdiğimiz program her tür değişken, dizi (string) ya da BASIC keyword bulmakta her tür BASIC 64 programında yararlı olacaktır. Aranan şeyi içeren her satır ekranda gösterilecek ve yazıcıya CMD komutuyla havale edilebilecektir. Yardımcıyı kullanmak için verdiğimiz programı çalıştırmanız yeter. Sonra da araştırma yapmak istediğiniz BASIC programını yükleyin ve ara komutunu şu formatta girin:

SYS49152,searchitem

Bu programdaki herhangi bir şey olabilir ve arzu ederseniz BASIC komutları kısaltılabilir. Özellikle onları aramıyorsanız, parantez kullanmaktan kaçının. Yardımcının yararı, özellikle uzun programlarda ortaya çıkıyor. Örneğin 1056 satırlık bir program üzerinde çalışırken bir altrutinin başlangıç satır numarasını değiştirmek zorunda kaldığınızı düşünelim. Bu yardımcı olmazsa 1055 satır boyunca bu altrutinin nerede çağrıldığını anlamak için dolaşmanız gerekebilirdi. Bunun yerine altrutinin eski satır numarasını searchitem (aranan item) olarak kullanarak araştır komutunu vermeniz yeterli olacaktır. Bu yardımcıyı kullanmak eğer makina dilini direkt olarak save ederseniz daha da kolay hale gelir. Sonra onu gerektiğinde yeniden yükleyebilirsiniz. Başlangıç adresi 49152, bitiş adresi de 49354'tür.

PROGRAM ADI 1 ARAMA
60010 PRİNT *<CUR)GA ARAMA"
©0020 PRİNT *CUP)CALISIYOR.
49
©0020 IF THEN PRİNT “DATALAR
DA HATA
©0040 PRİNT BULMAK İCİN
GİRİN" <ae7>
©0041 DATA 160.000.200.177.122.133.205.1
sa ci20>
DATA
00043 DATA
33
©0044 DATA 252.169.001.123.251.160.002.1
77 <250>
©0045 DATA 251.141.203.192.200.177.251.1
a1 <aa7>
©0046 DATA 204.192.200.177.251.240.B27.2
05
©0047 DATA
sa
DATA 000.232.200.169.206.192.240.0
20
00048 DATA 209.251.240.245.172,205.192.0
76
©0050 DATA
22
©0051 DATA 281.144.002.230.252.160.001.1
77
DATA
23
©0053 DATA
18
00054
70
00055 DATA
74
00056 DATA 203.1092.032.205,169,169.032.1
64
00057 DATA 073.041.127.032.071.171.201.0
34 cisa>
©0050 DATA 208.006,165.015.079.255.133.0
18 <255>
©0059 DATA 200.240.004.177.095.200.011.1
65
DATA 096.133.252.165.0095,193.251.0
76 (163>
©0061 DATA
19
BoOGA DATA 026.015.040.215.086.233.187.1
70 <065>
00063 DATA 132.073.160.255.202.240.000.2
60 <165>
60064 DATA
00 <233>
00065 DATA 185.150.160.040.186.032.071.1
zı
00066 DATA 208.245.096