Sayfa 80

IF f<l THEN

j=VAL(sf)

IF j>rend THEN i = rend ELSE i = l:WHILE recno(i)<>j:i = i+l:WEND RETURN END IF sf=UCASE$(LEFT$(sf,l)) + RIGHT$(sf,LEN(sf)-l) CLS:PRINT: INPUT" SOYADINI GiRiN: ",sl IF sl=""THEN sl="a" sl=UCASE$(LEFT$(sl,l)) + RIGHT$<sl,LEN(sl)-l) GET l,recno(rend):IF sl>s(2) OR (sl=s<2) AND sf>=s(l)) THEN i=rend:

RETURN find sf,si:RETURN

SUB find <sf,sl) STATIC SHARED rend, I sl=sl+SPACE$(fs(2)-LEN(sl)):sf=sf+SPACE$(fs(l)-LEN(sf)) f=ASC(LEFT$<sl,l))-64 GET l,recno(l):IF sl<s(2) OR <sl=s(2) AND sf<s(l)) THEN i=l:EXIT SUB

i=INT(f/22*rend+l):WHILE i>rend-l:i = rend-l:WEND:GET 1,recno(i) IF sl = s(2) THEN

IF sf<s(l) THEN

WHILE sl = s(2) AND sf <s< 1):i=i-l:GET 1,recno(i):WEND ELSEIF sf>s(l) THEN

WHILE sl=s(2) AND sf<s(1):i=i-l:GET 1,recno(i):WEND END IF ELSEIF sl<s<2) THEN

WHILE sl<s(2):i=i-l:GET 1,recno(i):WEND

IF sl=s(2) AND sf<s(l) THEN

WHILE sl = s(2) AND sf<s(1):i = i-l:GET 1,recno(i) :WEND END IF ELSE

WHILE s l > s ( 2 ) AND iorend : i = i + 1 :GET 1, recno( i ) : WEND

IF sl=s<2) AND sf>s(l) THEN

WHILE sl = s(2) AND sf>s(1) :i=i+l:GET 1,recno(i):WEND END IF END IF IF iorend AND (<sl>s<2) OR (sl = s(2)) AND sf>s(l)>) THEN i=i+1 END SUB

kayitlistesi: WINDOW OUTPUT 4:C0L0R 2,6:PRINT TAB(4) USING"****" ; recno(i) WINDOW. OUTPUT 2:C0L0R 2,3:FQR 0 = 1 TO 7:L0CATE 2*j,25:PRINT stat(j):

NEXT

RETURN

ulkelistesi: WINDOW OUTPUT 4:COLOR 2,6:CLS:WINDOW OUTPUT 2:COLOR 2,0:CLS FOR j=l TO 7

COLOR 2,0:L0CATE 2*j,7:PRINT typestat(j); COLOR 2,3:PRINT TAB(25)SPACE$(fs(o)) NEXT: RETURN

tamliste : WINDOW OUTPUT 3:COLOR 2,5:CLS:COLOR 2,4