Sayfa 10

O INT ATCI,12)B$ PRİNT AT(13,8B)ALSIPRINT ATC13, AT(13,10)A3$ PRİNT KAYI T ARANACAK MI? (EZH)İ<CTRL-2)” REPEAT!GET ” THEN 508 IF THEN 100 REPEAT:GET G$tUNTİL Göze” #1RETURN DATA "AD DATA GİRİSİ",”KIİSİSEL "ÖZEL ADLAR." DATA *BUTUN KAYIT.”,”KAYIT SILME.", "KAYIT DEGİS.”,”"B.KAYITL.SIL” DATA "INDEX KAYIT.”",”DISK DRIVE..", ner a” SPRİNT ARAL IGİ GİRİNİZ...” PRİNT "<H OME).- THEN 108 IF THEN IF THEN 1071 THEN 1050 ENCALS)-Z) IF ,LENCAZS)) THEN A 1057 İF AZSIRISKTECNELMR) THEN 1059 IF Afis-1 OR THEN AlsA2 THEN 105 a

IF THEN GOSUB 15,8,15t0PEN 5,8,5,”Y YeSEFOR İsAi TO 14 PRİNT NT INPUTUS

PRINT AT<1, IF THEN 999: GOSUB 181Y-5 NEKT SCLÖSE 15:CLOSE 5 PRINT AT(3,4)” BILGİ ARANACAK MI?... <CTRL-2>” GE T G$LUNTIL IF G$-”E” THEN THEN 1067 1) THEN 10658 Als1:GOSUB 1859 C$-1 IF R> THEN 1058 10901AL-ANGOTO 10598 PRINT AT(1,4)B$:60T0 1850 İF THEN Asi TO T HEN RETURN IF AND THEN AsA *12RETURN IF AND THEN RET tAz-İtRETURN IF THEN FOR Asi TO MREIF

THEN RETURN TE 1) AND THEN IF CE<LEFTSENSCA), 1) AND THEN Izi TO MRİİF THEN 1İ501:ELSE:GOTO 1502 PRİNT PRİNT AT(3,4)” <CTRL-3>DOSYA SONU < 198 GOSUB 15,8,1510PEN 5,8,5."Y FOR Isi TO MREİF THEN 2002:ELSE:GOTO 2003 24160SUB FOR TO ATCİ,Y*I-İ)SKECİ YENEXT AT(13,YİNSCIDİRNENCI) 14 T AT(13,YIA 3$ : PRİNT AT(3,4)" <CTRL-3)DOSYA SONU < GE T 108 PRİNT TRL-3) KAYIT SIİLMEK ICİN AD VE SOYA pnp" PRİNT ÖME). 2” THEN asda 1F THEN 100 FLs. THEN SE:PRİNT KISININ KAYDI GOSUB 25006 GOSUB 15,8,1510PEN 5,8,5,”Y 14 152MREM R-İSFOR TO NEXT BAS KA KAYIT SİLİNECEK G$tUNTİL ” THEN ” THEN 2508 12:60TO 2500 PRİNT DEGİSİKLİĞİ İCİN AD VE PRİNT T HEN S5ö2 IF FLs, THEN İSTENEN KISININ KAYDI YOK 12160TO GOSUB 15,8,15:0PEN 5,8,5,"Y F*/DATAF İLE” 141 INPU TUS, CLOSE 15:PRİNT INT PRİNT ATCI,1 ATLI, PRİNT ATC1,S)PL&”<CTRL-3) HANBISI D