1 Haziran 1986 Tarihli Commodore Gazetesi Sayfa 12

209-280. satırlar Bu satırlarda seguential dosya açıl- maktadır. 210. satırda daha önce dosyaya yazılan bilgiler silinmektedir. 220. satırda seguential file yazma ru- tini açılmaktadır. 230-250. satırlarda saklamak istediğimiz isim ve telefon numaralarını bilgisayara veri olarak vermemiz istenmektedir. 260. satırda bilgisayara verilen bilgiler diske kay- dedilmektedir. 270. satırda bilgisaya- ra verilen bilgiler diske kaydedilmek- tedir. 270. satırda bilgisayara bilgi verme işlemi bittiğinde seguential fi- le kapanmaktadır. 280. satırda tekrar menüye dönmektedir. 4410-45b5. satırlar 410. satırda seguential file okuma rutini açılmaktadır. 420. satırda segu- entfial file'da olan bilgiler okunmakta- dır. 421. satırda seguential file rutini PROGRAM ADI : TAPE 5 ADRES kapanmaktadır. 422-425. satırlar ek- ranı düzenlemek içindir. 427. satırda okunan isimlerin harf sırasına göre konması için 700. satırdaki alt prog- rama gitmektedir. 700-770. satırlarda harf sırasına göre isimler sıraya kon- makta ve bu işlem bittikten sonra 427. satırdan program devam etmektedir. 430. satırda disketten okunan ve harf sırasına konan bilgiler ekrana yazıl- maktadır. 445-455. satırlarda menüye dönüş için komutlar mevcuttur. Eğer seçeneğiniz programdan çık- maksa, yani menüde 3. şıkkı tercih et- mişseniz, program 805. satırda bit- mektedir. Şu ana kadar yaptığımız işlemlere bakacak olursak, seguential file kul- lanarak 5 arkadaşımızın adını ve so- yadını diskte veya teyp ünitesinde sakladık. Bunların telefon numarasını öğrenmek istediğinizde, programını- zı çalıştırdık ve yazdığımız isimlerin harf sırasına göre bir telefon rehberi oluş- turduğunu gördük. Bu 5 isim ve tele- fon numarası çok küçük bir rakamdır. Birçoğumuzun en aşağı 20 telefon nu- maralık bir telefon rehberine ihtiyacı vardır 20 kişilik telefon rehberinin hepsini aynı anda ekranda göremeyiz. O hal- de 5 kişilik isim ve telefon numaraları ekrana gelmelidir. Yani sayfa sayfa, isim ve telefon numaralarını okuyan bir program oluşmalıdır. Birçok arkadaşımız bu program üze- rinde değiştirmeler yapıp, kendi işle- rine yarayabilecek programlar yapa- bilirler. Örneğin 100 kişilik adres def- teri, yemek kitabı vs. Çalışmalarınızda başarılar dile- rim.L 20408 REM * <196) 004861 REM * SEGUİNTİAL FİLE İLE 00005 REM TELETEKNİK A.S. <a17> : 886006 REM K <e B <0as> 60402 REM * DOSYA OKUMA BOB7 REM * SEGĞUİNTİAL FİLE İLE * B * 2iss> 89403 REM g80008 REM * DOSYA ACMAJOKUMA * e x SÖBE5. 00410 OPEN 2,1,8,"DOSYA" <ıi14> aBa REM 68420 FOR L-1 TO 5: INPUT#2,A$LL) 1 INPUTHE, v “ÖRE » A<LINEKT L <185> gapas xss="<HoME><aauouN> <es3> — ©994c1 CLOSE & <1BES PBB5O RiHE” KREF- "<ELR)<HOME>" <115> BDABE PRLNT BES'SDGUND” <1BaĞ Baa51 PRINT >< <aaa ) go424 PIîINT “ADI SOYADI"TABC20)"TELEFON N 00053 PRINT "<RVSON)SEGĞUENTİAL FİLE İLE Y B AZMAZOKUMA PROGRAMI<RYSOFF >" çiza> — 00425 PRİNT “------>-5- A — — Sisasa aa Cvaaş 088055 PRINT "<4DOLİN><İSRİGHT>"X1S <o9a> B0427 GÖSÜUB 78f <165> 089860 PRINT "<DOWN><İBRİGHT>1İ/ DOSYA YAZM 80430 FOR Ls1 TO SE:PRİNT "<2DOLN>"ASCLITA " <ı141> BBZO)ALLI:NEKT L <a218> 68865 PRINT "<DOLN><İBRİIGHT>2/ DOSYA OKUM 80445 PRINT X3$"<RVSON><3RIGHT>DEVAM ETME B <144> K ICIN D TUSUNA BASINIZ<RVSOFF>" <B25> BBAB7A PRIİINT "<DOWN><İBRİGHT)3/ CIKIİIS" <Ba7> 00450 GET XS:1İF XS<)CHRS<68S) THEN 450 <128> B8075 INPUT "<3DOLUN)<İBRİGHT)SECENEGİNİZ" 00455 GOTO 5 <ısea> v <ita> Bazan REM B2A8SA ON V GOTO 2Ba,40A,Ssan <Bla> * <agaa> 90701 REM * HARF SIRASINA DİZME RUTİNİ Bo2zaa REM * <157)> * <e5ea> 98702 REM Bö201 REM * SEGUİNTİAL FİLE İLE * <Baa4> * <t1a3> 98710 FOR I-1 TO 4 <174> B8202 REM * DOSYA ACMA ©0720 FOR Js1t1i TO 5 <a2a08> * <153> BDO73A IF ASCI) SASCI) THEN 768 <a34> 80203 REM BO74A CFSASCI) TARCI ) SAFCIYTASCI)SC$ <235> <a53> BATSO VEACIYSACI)SACIDLACIIEY <a7a> Boa2za9 PRINT xasş <160> B076A NEKT J <088)> 00220 OÖPEN 2,1,1,"DOSYA" <B5a> 6077€© NEKT I <asa2> 80230 FOR Lz1i TO 5SEINPUT "<CLR)<2DOLN2ISI 90780 RETURN <276> Hi YAZINIZ";ASLL) <aıa> 0080806 REM Bö240 INPUT "<DOMWN>TELEFON NO":3A<CL) <166> * <aa2a> 890250 NEXT L <iaa> 60801 REM * PROGRAMDAN CIKIS 80260 FOR Lsz1 TO 5:PRİNTH2,ASLL):PRİINTH2, * <ıla> STRSECACLI)INEKT L <037> 88802 REM 80270 CLOSE & <235> * <asga> 902880 GOTO 5 <a33> Basa5ö5 END <288> —e CC NOCĞO"E 12