home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / SIMTEL / CPMUG / CPMUG044.ARK / BINSERCH.BAS < prev    next >
BASIC Source File  |  1985-02-10  |  1KB  |  25 lines
  1. %NOLIST
  2.  
  3. 10.60    H=0
  4.     IF RECORD.COUNT%=0 THEN H=-1:L=1:RETURN
  5.     READ #Y2,1;VAR1,VAR2,VAR3
  6.     VAR1=VAR1+(VAR2/1000)
  7.     IF K1 < VAR1 THEN H=-1:L=1:RETURN
  8.     IF K1 = VAR1 THEN L=1:RETURN
  9.     READ #Y2,RECORD.COUNT%;VAR1,VAR2,VAR3
  10.     VAR1=VAR1+(VAR2/1000)
  11.     IF K1 > VAR1 THEN H=-1:L=RECORD.COUNT%+1:RETURN
  12.     IF K1 = VAR1 THEN L=RECORD.COUNT%:RETURN
  13.     H=RECORD.COUNT%
  14.     L=0
  15. 10.70    M=INT((L+H)/2)
  16.     READ #Y2,M;VAR1,VAR2,VAR3
  17.     VAR1=VAR1+(VAR2/1000)
  18.     IF VAR1=K1 THEN L=M:RETURN
  19.     IF VAR1 > K1 THEN H=M
  20.     IF VAR1 < K1 THEN L=M
  21.     IF H=M+1 THEN H=-1:L=M+1:RETURN
  22.     GOTO 10.70
  23.  
  24. %LIST
  25.