home *** CD-ROM | disk | FTP | other *** search
/ Archive Magazine 1996 / ARCHIVE_96.iso / discs / mag_discs / volume_3 / issue05 / vol3no4 / BASICFORUM / BINARCHIVE next >
Text File  |  1989-12-04  |  308b  |  2 lines
  1.  ⌠ > Bin_Archive&* ▌ ñsearch_archive(low%,high%,search%)0 Ω A%,B%,R%:+ where=0:A%=low%:B%=high%:find%=search%D ⌡N R%=¿((A%+B%)/2)X τ n%(R%)>find% îb
  2.  B%=R%l ╠v τ n%(R%)<find% î A%=R%Ç ╠è where = R%ö ═₧ ═¿ ² where>0 ä B%-A%=1▓ τ where=0 î where=A%+1╝  = where