Sayfa 79

Merhaba, bu ay basit bir adres defteri programımız var. Sizlerden gelen sorulardan anladığım kadarıyla Basic programların özellikle dosya işlemleri konusunda zorluk çekiyorsunuz. İşte bu programımız bu konuda zorluk çeken okuyucularımız için iyi bir kılavuz olacak.

Sayın CENGİZ İLERLER iste BASİC’te dosyaya yazma ve okuma için istediğiniz örnek. Umarız yararlı olur. PALETTE 0,0,0,0 PALETTE 1,0,5,0 PALETTE 2..6.0.0 PALETTE 3.0.0.1 WINDOW 1, "LISTE",,4 DIM a$(5),b$(5),c$(5),d$(5),c(5) c$(l)="ADI :":c(l)=15 cS(2)="SOYADI :":c(2)=15 c$(3)="TELEFON:":c(3)=!2 c$(4)="ADRESI :":c(4)=65 cS(5)="NOT :":c(5)=65 ms=l KEYS$=,,l234567890QWERTYUIOPASDFGHJKLZXCVBNM.,;:'?/"+CHR$(l3)+CHR$(8) +CHR$(27) OPEN "R",#l,"ram:defter",172 FIELD #1,15 AS ad$,15 AS sad$,12 AS tel$,65 AS adr$,65 AS NTS anamenu: pal=l eks=-.0l CLS:LINE (20*8,6*8-1 )-(55*8,14*8),2,b

LINE (20*8,3*8)-(55*K,6*8-2),3,b COLOR 2,0:LOCATE 5,29:PRINT "ADRES DEFTERİ" GOSUB okbas

LOCATE 8,29:PRINT "KAYIT ARAMA-DEG1STIRME" LOCATE 9,29:PRINT "YENİ KAYIT" LOCATE I0,29:PRINT "LOAD" LOCATE ll,29:PRINT"SAVE" I ,OCATE 12,29:PRINT "ABOUT THIZ PROGRAM" LOCATE I3.29:PRINT "CIKIS" menkeys: d$=INKEY$:GOSUB fade:IF d$=""THEN menkeys

IF d$=CHR$(l3) THEN PALETTE 3,0.0,.7:GOTO selected IF(d$=CHR$(28) AND ms<=l) OR (d$=CHR$(29) AND ms>=6) THEN menkevs IFd$=CHR$(28) THEN ms=m.s-l:GOSUB okbas IFd$=CHR$(29) THEN ms=ms+l:GOSUB okbas GOTO menkeys okbas: COLOR 3,0

LOCATE ms+6.26: PR INT " " LOCATE ms+7.26:PRINT "Æ" LOCATE ms+8,26:PRINT " " COLOR 1.0

RETURN selected: CI.S ON ms GÖSUB kayitarama,ycnikayit,dload,dsave,.about,quil GOTO anamenu quit: CLS:WINDOW CLOSE 1:END kayitarama: COLOR 2.0

LOCATE 2.27.PRINT "KAYIT ARAMA BOLUMU":COLOR 3.0:PRINT STRING$(80."-") COLOR 1.0:st=0

FOR d= 1 TO 5

PRINT c$(d)::sn=c(d):GOSUB inhand a$(d)=in$:IF er=-l THEN RETURN NEXT d COLOR 3.0:PRINT STRING$(80."-"):PRINT :COLOR 2.0 PRINT TAB(31)"BULUNANKAYIT":COLOR3.0:PRINT STRING$(80.";"):COLOR 1.0 a=INT(LOF(l)/l72) FORs=l TO a:st=0

GET #l.s b$(1)=ad$