Bu sayfadaki yazılar
Sayfanın metni
Sayfa 81
FOR f=l TO 2:g=12*f-5:h=(g-2)*8:PUT (h,5>,boxl,PSET:NEX LOCATE 2,7:PRINT "SONRAKI"TAB(21)"CIKIS WINDOW OUTPUT 2:COLOR 2,0:CLS:h=0:i=-33 WHILE i< = rend AND h=0 CLS:f=0:g=2:i=i+34 FOR j = l TO i+33 IF j<=rend THEN
GET l,recno(j):f=f+l:IF f=18 THEN f=l:g=39 x=INSTR(s(2)," ")-l:LOCATE f,g PRINT USING"***";recno(j);:PRINT TAB(g+6)s(2); LOCATE f,g+6+x:PRINT ", "s(l) END IF NEXT I WHILE MOUSE(0)>-1:WEND CLS:h=INT<(MOUSE(1)-40)/96) WEND RETURN ana
arama IF rend<5 THEN RETURN ana GOSUB ulkelistesi:GOSUB kayitbul:recno=recno(i) GOSUB kayitoku:GOSUB kayitlistesi
aramamenusu: WINDOW OUTPUT 3:COLOR 2,5:CLS:COLOR 2,4 FOR f = l TO 6:g=ll*f-5:h=(g-2)*8
PUT (h,5),boxl,PSET:L0CATE 2,g:PRINT title2(f) NEXT
aramasonu: WHILE MOUSE(0)>-l:WEND:e=INT((MOUSE(l)-40)/88)+1 ON e GOSUB ondegisiklik,silme,onceki,sonraki,etiket RETURN ana
ondegisiklik: o1=s(1):o2=s(2):G0SUB degistir IF o1<>s(1) OR o2<>s(2) THEN
sf=s(1):sl=s(2):GOSUB saat IF I<>rend THEN
FOR k=i TO rend:recno(k) = recno(k+l):NEXT recno(rend )=recno END IF GET l,recno(rend-l)
IF s2>s<2) OR (s2=s(2) AND sl>s(l)) THEN recno(i)=recno
RETURN aramamenusu find sf,sl FOR j=rend TO i + 1 STEP -1:recno(j) = recno(j-1) :NEXT_ recno(i)=recno
END IF RETURN aramamenusu
degistir: WINDOW OUTPUT 3:C0L0R 2,5:CLS:WINDOW OUTPUT 2:C0L0R 2,0 FOR j=l TO 7:L0CATE 2*j,3:PRINT USING"#_.";j :NEXT _______ I WINDOW OUTPUT 3:CLS:PRINT:PRINT" DEGiSiKLiK VAR MI (E/H)?":a=”” WHILE a<>"E" AND a<>"H" AND (VAL(a)<1 OR VAL(a)>7):a=UCASE$(INKEY$): WEND_ IF a="E" THEN
CLS:PRINT:PRINT"DEGiSTiRiLECEK SATIR NUMARASI” WHILE VAL(a)<1 OR VAL(a)>7:a=UCASE$(INKEY$):WEND END IF IF a<>"H" THEN
Klavyeyle gezinmek için ← ve → tuşları.
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