Sayfa 82

j=VAL(a):WINDOW OUTPUT LINE (191,16*(j-1)+7)-STEP(8*fs(o),9),7,b kayitgir j:LINE (191,16*(0-1)+7 )-STEP(8*fs(o ),9),0,b:GOTO degistir END IF WINDOW OUTPUT 2:C0L0R 0,0:FOR j=1 TO 7:LOCATE 2*j,3:PRINT " ":NEXT GOSUB kayityaz:RETURN

silme: WINDOW OUTPUT 3: COLOR 2,5 :CLS-.COLOR 2,4 FOR f=l TO 2:g=12*f-5:h=(g-2)*8:PUT (h,5),boxl,PSET:NEXT LOCATE 2,8:PRINT "Sil"TAB(20)" iPTAL FOR j=1 TO 2000:NEXT

WHILE MOUSE(0)>-1:WEND IF INT((M0USE(1)-40)/96)=0 THEN

recno = recno(i):FOR j = 1 TO 7 : stat(o )=chrd : NEXT :GOSUB kayityaz rend=rend-1 IF iorend+1 THEN

FOR k=i TO rend:recno(k)=recno(k+1):NEXT recno(rend+1)-recno END IF

IF I<>l THEN i=i-1 recno=recno(i):GOSUB kayitoku:GOSUB kayitlistesi END IF:RETURN aramamenusu

onceki :

i=i-1:IF i=0 THEN i=rend recno=recno(i) :GOSUB kayitoku:GOSUB kayitlistesi RETURN aramasonu

sonraki :

i=i+1:IF i=rend+1 THEN i=1 recno=reeno(i):GOSUB kayitoku:GOSUB kayitlistesi RETURN aramasonu

etiket: FOR j=1 TO 6:1=LEN(s(o))

WHILE MID$(s(j),l,1)=” “:l=l-1:WEND ss(j )=LEFT$(s(j ),1 ) IF LEFT$(ss(o),l)= ehrn THEN ss(j)= " " NEXT LPRINT ss(1)” “ss(2):LPRINT ss(3):LPRINT ss(4) IF LEN(ss(6))=6 THEN ss(6)=LEFT$(ss(6),3) + " "+RIGHT$(ss(6),3) LPRINT ss(5)SPC(3)ss(6):LPRINT:LPRINT

IF e THEN RETURN aramasonu RETURN

etiketler: WINDOW OUTPUT 3: COLOR 2,5 : CLS:COLOR 2,4:e=0 FOR f=l TO 4:g=12*f-5:h=(g-2)*8

PUT Ch,5),boxl,PSET:LOCATE 2,g+1:PRINT title3(f) N E XT WINDOV OUTPUT 2:COLOR 2,0:FOR j=l TO 2600:NEXT

WHILE M0USE(0)>-l:WEND:m=lNT((M0USE(l)-40)/96)+1:k1=1:k2=rend IF m=2 THEN GOSUB kayitbul:k2=i IF m=3 THEN GOSUB kayitbul:k1=i IF m=4 THEN GOSUB kayitbul:k1=i:GOSUB kayitbul:k=2 COLOR 2,5:CLS:IF k2>rend THEN k2=rend GOSUB saat

FOR k=k1 TO k2:GET 1,recno(k):GOSUB etiket:NEXT RETURN ana