Özet
209-280. satırlar Bu satırlarda sequential dosya ağı bulunmaktadır. 210. satırda daha önce dosya yazılan bilgiler silinmektedir. 220. satırda sequential file yazma rutini açıklanmaktadır. 230-250. satırlarda saklamak istedigimiz isim ve telefon numaralarını bilgisayara veri olarak vermemiz istenmektedir. 260. satırda bilgisayara verilen bilgiler diske kaydedilmektedir. 270. satırda bilgisayara verilen bilgiler diske kaydedilmektedir. 270. satırda bilgisayara verilen bilgiler diske kaydedilmektedir. 270. satırda bilgisayara verilen bilgiler diske kaydedilmektedir. 280. satırda bilgisayara verilen bilgiler diske kaydedilmektedir. 280. satırda bilgisayara verilen bilgiler diske kaydedilmektedir. 280. satırda bilgisayara verilen bilgiler diske kaydedilmektedir. 280. satırda bilgisayara verilen bilgiler diske kaydedilmektedir. 280. satırda bilgisayara verilen bilgiler diske kaydedilmektedir. 280. satırda bilgisayara verilen bilgiler diske kaydedilmektedir. 280. satırda bilgisayara verilen bilgiler diske kaydedilmektedir. 280. satırda bilgisayara verilen bilgiler diske kaydedilmektedir. 280. satırda bilgisayara verilen bilgiler diske kaydedilmektedir. 280. satırda bilgisayara verilen bilgiler diske kaydedilmektedir. 280. satırda bilgisayara verilen bilgiler diske kaydedilmektedir. 280. satırda bilgisayara verilen bilgiler diske kaydedilmektedir. 280. satırda bilgisayara verilen bilgiler diske kaydedilmektedir. 280. satırda bilgisayara verilen bilgiler diske kaydedilmektedir. 280. satırda bilgisayara verilen bilgiler diske kaydedilmektedir. 280. satırda bilgisayara verilen bilgiler diske kaydedilmektedir. 280. satırda bilgisayara verilen bilgiler diske kaydedilmektedir. 280. satırda bilgisayara verilen bilgiler diske kaydedilmektedir. 280. satırda bilgisayara verilen bilgiler diske kaydedilmektedir. 280. satırda bilgisayara verilen bilgiler diske kaydedilmektedir. 280. satırda bilgisayara verilen bilgiler diske kaydedilmektedir. 280. satırda bilgisayara verilen bilgiler diske kaydedilmektedir. 280. satırda bilgisayara verilen bilgiler diske kaydedilmektedir. 280. satırda bilgisayara verilen bilgiler diske kaydedilmektedir. 280. satırda bilgisayara verilen bilgiler diske kaydedilmektedir. 280. satırda bilgisayara verilen bilgiler diske kaydedilmektedir. 280. satırda bilgisayara verilen bilgiler diske kaydedilmektedir. 280. satırda bilgisayara verilen bilgiler diske kaydedilmektedir. 280. satırda bilgisayara verilen bilgiler diske kaydedilmektedir. 280. satırda bilgisayara verilen bilgiler diske kaydedilmektedir. 280. satırda bilgisayara verilen bilgiler diske kaydedilmektedir.
Diğer Dergiler
Tam metin içeriği
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.
410-455. satırlar
410. satırda seguential file okuma
rutini açılmaktadır. 420. satırda segu-
ential file'da olan bilgiler okunmakta-
dır. 424. satırda seguential file rutini
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 s0o-
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.
PROGRAM ADI :
TAPE 5 ADRES
09400 REM #KAKAKAKAKAKAAKAKAAKAKAKAKAKKAK
* <196>
00401 REM * SEGUINTIAL FILE ILE
00005 REM TELETEKNIK A.S. <217> ği
00006 REM #KAKAAAAA AKARAK AK AAAKAAAAEAKAAK - <0s9>
00402 REM X DOSYA OKUMA
#4 <043>
00007 REM * SEGUINTIAL FİLE ILE # Kİ
i 4185) 00403 REM #A#KAAKAAKKAAAAAAAKAKAKAKKAKEKX
00098 REM * DOSYA ACMA/OKUMA ; Şİ
â65B3 00419 OPEN 2,1,8,"DOSYA" <114>
00099 REM #KKAKAKKAKAKAKAAKKAKAKAKAKAAKAXKXK G0420i FOR LX TO SA LNPUTME ASCİ) SANPUTME,
en dö46> A<LOSNEKT L <185>
00045 K3$-"KHOME ><23DOLN> " «gez; (O 2o4c1 CLOSE & $ KABZ
00050 KIS-"MENU"EK2$-"KCLR><HOME >“ çgyşp (o YP322, PRENT MES” <DOUNS* Çekek
00051 PRINT Xe$ <oa>> 900424 PRINT "ADI SOYADI"TAB<20)"TELEFON N
00053 PRINT "<RVSON>SEGUENTIAL FILE ILE Y o" Gülek
AZMA/OKUMA PROGRAMI <RVSOFF >“ yğggş O 2185 PRANR Tekme “TAR çağ semen gas>
00055 PRINT "<aDOLMN><ISRIGHT>"“KI$ <092> 00427 GOSUB 790 <165>
009609 PRINT "<DOWN><IORIGHT>1/ DOSYA YAZM 00439 FOR L-1 TO S:PRINT "<2DONN>"ASCLITA
a" <141> B(20)A<LISNEKT L <218>
00065 PRINT "<DOWN><IBRIGHT>2/ DOSYA OKUM 00445 PRINT X3$"KRVSON><3RIGHT>DEVAM ETME
A" <144> K ICIND TUSUNA BASINIZ <RVSOFF >" <825>
00070 PRINT "<DOWN><19RIGHT23/ CIKIS" <007 > 004509 GET K$:IF K$<>CHRS$(68) THEN 450 <128>
00975 INPUT "<3DOWN><I8RIGHT>SECENEGİINİZ" 00455 GOTO 5 <152>
:v <112> 00700 REM #KAKAKAKAKAAAKAKAKAAAAKAKKAKKAK
00080 ON V 6GOTO 200,490,800 <812> k <ea42>
00701 REM x HARF SIRASINA DIZME RUTINI
090200 REM #KAKAKAKAKA AAA KAKA KAKA KAKAXAXK & <157>
* <259> 00702 REM #XAKAAAKKAKAKAAA AAA AAA EAAKAX
09201 REM * SEGUINTIAL FILE İLE p <Bpaa>
* <123> 00710 FOR 1-1 To 4 <174>
200202 REM * DOSYA ACMA 00720 FOR J-iti TO 5 <208>
* <153> 00730 IF ASCJ)>-A$(K1) THEN 768 <234>
00203 REM #AXKAAKKAKKAKKAAKAKKAAKAKAAAKAK 00740 C$S-ASCIJ) ASKI) ASKI) SAKCI)-C$ <235>
* <253> 00750 V-ACJ)SACI)SACIDSACI DV <074>
90209 PRINT X2$ <1609> 00769 NEXT J <088>
00220 OPEN 2,1,1,"DOSYA" <0s50> 00778 NEXT 1 <092>
00238 FOR Ls1i TO SSINPUT "<CLR><2DOMN>ISI 00780 RETURN <976>
M YAZINIZ":ASCL) <210> 00800 REM ##AKAKAAAKAKAAKAKAKAKAKAAKAKKAK
06240 INPUT "<DOWN> TELEFON NO":#ACL) <1658> * <a22>
002509 NEXT L <192> 00801 REM * PROGRAMDAN CIKIS
00260 FOR Lz1 TO S:SPRINT#2,ASCL>):IPRINT#2, * <114>
STR$CACL))ENEKT L <037> 00802 REM #K#KA# KAKA KAKA KAKAKKAKAKAKAKAK
00270 CLOSE 2 <035> * <090>
00289 GO0TO 5 <233> 00805 END <208>
mmm GOMmModore
12
