Sayfa 57

PUT #3,J ve

GET #2,X Random dosyalara veri kayd-

Yukarıdaki programla, daha önce açtığımız dosyada ayrılan T$ değişkenine kullanıcıdan alınan bir string yazılıyor. Daha sonra bu bilgiyi okumak için aşağıdakine benzer bir program yapmalısınız. Nümerik değerlerin stringlere dönüştürülmesi gerektiğini aklınızdan çıkarmamalısınız. Bunu yapmak için PRINT USING

MKI$ (e), MKS$ (e) ya da MKD$ (e) komutlarından birini kullanmalısınız. Daha sonra LSET veya RSET komutlarını kullanarak random dosyaya yazabilirsiniz. Daha sonra bu dosyalardaki bilgileri okurken yine çevirmelisiniz, bu işlemi ise CVI (s), CVL (s), CVS (s) ve CVD (s) komutlarını kullanarak yapmalıyız. Aşağıda bu komutların örnek-

Şimdi dosya açma komutları ile ilgili örneklerimizi inceleyelim... REM ÖRNEK GİRİŞ / ÇIKIŞ

PRİNT" "DOSYA ADI GİRİNİZ ir INPUTL$ PRİNT "SIRAYLA İSİMLER GİRİNİZ." PRINT "BİTİRMEK İÇİN İKİ DEFA <RETURN>'E BASIN"

lerini bulabilirsiniz. OPEN "O" #2,L$ GİRİŞ: İNPUT INPUT N$ LSET T$ - ITEM$ IF N$ - " THEN BİTİR PRİNT #2,N$ LSET N$ - MKI$(N) Tz T4 1:4F T<30 THEN GİRİŞ BİTİR

PUT #3,C

CLOSE #2

PRINT "BİTTİ."

END. | REM İSİMLERİ OKU DIM N$(30) PRİNT "DOSYA ADI GİRİNİZ" INPUT L$

WEİLE NOT' INPUT #3,N$(T) PRİNT

CLOSE #3 END Yukarıdaki program, verdiğiniz isimde bir dosya açar ve bu dosyaya verdiğiniz 30'a kadar ismi kaydeder. Yukarıdaki programı çeşitli şekillerde değiştirerek bu isimlerle beraber örneğin kaydederek bir telefon rehberi programı yapabilirsiniz. Evet bu aylıkta bu kadar. Böylece AmigaBASIC'in tüm dosya işlemlerini öğrenmiş olduk. Bir dahaki aya kadar hoşçakalın ve mektup yazmayı unutmayın BURAK ÖZIŞIK PK 5 - FİKİRTEPE