Sayfa 79

setcity=chrn:setprov=chrn FOR i=1 TO 5:READ title1(i):NEXT FOR i=1 TO 6:READ title2(i):NEXT FOR i=1 TO 4:READ title3(i):NEXT FOR i=1 TO 7:READ typestat(i),fs(i):ln=ln+fs(i):NEXT ON ERROR GOTO hata OPEN "DATALAR" AS 1 LEN=ln FIELD 1,fs(1) AS s(1),fs(2) AS s(2),fs(3) AS s(3),fs(4) AS s(4), fs(5) AS s(5),fs(6) AS s(6),fs(7) AS s<7) ON ERROR GOTO 0 rend=LOF(1)/ln:IF LOF(1)=0 THEN GOSUB giris FOR i-1 TO rend:recno(i)=i:NEXT:CALL sort rend-rend+1:s2=chrd WHILE LEFT$(s2,1)=chrd:rend-rend-1:GET 1,recno(rend):s2=s(2):WEND ana: WINDOW OUTPUT 2:COLOR 2,0:CLS WINDOW OUTPUT 4:COLOR 7,6:CLS:PRINT TAB(4)USING"###”;rend; WINDOW OUTPUT 3:COLOR 2,5:CLS:COLOR 2,4 FOR f-1 TO 5:g=11*f-5:h=(g-2)*8:PUT (h,5),box2,PSET

LOCATE 2,g:PRINT title1(f);:LOCATE 3,g+2:PRINT USING"_£#";f; NEXT:a="" WHILE (a<CHR$(129) OR a>CHR$(135)) AND MOUSE(0)>-1:a=INKEY$:WEND IF a<> THEN ON ASC(a)-128 GOSUB giris,arama,tamliste,etiketler,etiketler,cikis ON INT((MOUSE(1)-40)/88)+1 GOSUB giris,arama,tamliste,etiketler cikis: MENU RESET: SCREEN CLOSE 1:END kayitoku: GET 1,recno:FOR j=1 TO 7:stat(j)=s(j):NEXT:RETURN kayityaz: FOR j-1 TO 7:LSET s(j)=stat(j):NEXT:PUT 1,recno:RETURN giris: rend=rend+-1:IF recno(rend)=0 THEN recno(rend)=rend recno=recno(rend):GOSUB ulkelistesi WINDOW OUTPUT 4:C0L0R 2,6:PRINT TAB(4)USINGM###";recno; kayitgir 1:kayitgir 2:sf-stat(1):sl=stat(2) IF stat(l)=chrn AND stat(2)=chrn THEN rend=rend-1:RETURN ana FOR j=3 TO 7: kayitgir j:NEXT:GOSUB degistir

GOSUB saat IF rend-5 THEN CALL sort IF rend:-5 THEN

GET 1", recno(rend-l) IF s2>s(2) OR (s2 = s<2) AND sl>s(1)) THEN RETURN ana find sf.sl FOR j=rend TO i+1 STEP-1:recno(j)=recno(j-1):NEXT recno(i)=recno END IF RETURN ana kayitbul: WINDOW OUTPUT 3:C0L0R 2,5:CLS:i=1 PRINT :INPUT" ADINI YA DA KAYIT NUMARASINI GiRiN:",sf IF sf="” THEN sf=”a" F=ASC(UCASE$(LEFT$(sf,1))-64