Category : BASIC Source Code
Archive   : INDEX.ZIP
Filename : AEBITRGT.BAS

rem $linesize:132
rem $title:'Application Engineer Standard Routines'
rem $subtitle:'Move to the last key in the index'
'
' bit.right moves the index pointer so that it references the largest
' key in the tree. this function is to be used to get a listing of the
' tree in sequence. the 'bit.left' routine will position the pointer
' at the other end of the tree for forward listings.
'

' Include the COMMON values
rem $include:'AESHARED.BAS'

sub bit.right(fl%,ky$,mrec%,success%) static

rec%=1
rtagain:
get #fl%,rec%
success%=cvi(xk$(fl%,3))
if success%=0 then
goto rtfin
end if
rec%=success%
goto rtagain
rtfin:
ky$=xk$(fl%,1)
success%=rec%
mrec%=cvi(xk$(fl%,5))

end sub