1 Haziran 1986 Tarihli Commodore Gazetesi Sayfa 16

Basıc ve Makine Kodunda Özdeş Arama SYS (veya JSR) ile 'BEGĞİN” yordamını çağırma, bulunan kayıtın numarasını sicildeki (register) değer olarak geri döndürecektir. Eğer bu değer sifir ise bulunan başka kayıt yok demektir. İlk kayıt bulunduktan sonra arama SYS (veya JSR) ile “DECPT” yordamı çağ- tılarak devam ettirilebilir. "BEĞIİN" ANAHTAR'ı BUFFER'a yerleştir. POİMTER'ı (gözterge) BİR SONRAKİ BÜOŞ KAYIT Mo'ya ayarla., "DEÇPT" POIİNTER'ı bir eksilt. Sıfır ise RETURM igeri dön?). Program 1 BASIC ilet 19 ADSFOIİNKER *LENSÖFFSET PROGRAM Zi z FOR Isd TÜ LEM-İ T 2A K-PEEKCBUFFER * 1) EARSIC ve MAKİNDZ KODUNDA 'iİçerik Arama ! işlemi Program İ'deki yordama benemektedir. 40 IF ASA THEN RETÜURMN 5O I1F PEEKCAC*I)<LK GOTÜ "DECPT" “BEGİN" ANAHTAR'ı BUFFER'a BO NEKT T:RETURN yerlaştir. POIİNTER'ı BİR SONRAKİ MAKİNE KODU ile: BüŞ KAYIT noa'ya Oayarla "DECPT" POİNTER'ı bir eksilt. 5 * İs 2 IR POİNTER*LEN'i REGİSTER'a aktar. Bifar ise BETÜRN ÖFFSET'i REGIİSTER'a e&ekle BAZSIC ile: LOY #& 120 ADFPOİNTER*LENt*TOFFSET "CONT”"LDA <REİSTER),Y 20 FOR & TO LEM-İ BEĞ "END" 3A S-PEEK<CBUFFER-4İ1) CMP <(BUÜFFER),Y 4A IF <PEEKKADAIYANDAYI A ENE "DECPFT" THEN RETURM INY 5SA NESTİRETURN CPY #LEN BCC "CONT" Maet: LEN5 dizin sözcük uzunluğu., ÖFFSETssıtfırıncı dizin sözcüğür adrezi. a: C CY OCĞOr€