I use the following snippet of code, or one like it, in
'extract /ring/' If ring.0-1=ring.1 Then firstid=2 /* For COMPAT Xedit (feel) */ Else firstid=1 found?=0 Do r=firstid To ring.0 While \found? /* Is there a DIR in the ring? */ Parse Var ring.r fid ' Size=' . found?=Pos(':\DIR.DIR',fid)>0 End --Trace or If found? Then Do /* Yes, go to it */ Do r=firstid To ring.0 While \dir() 'nomsg nextwindow' -- 'the' End ----- end snippet -----
Note that I have to use 'nextwindow' instead of 'the'. That means my
code has to check for a split screen and save-navigate-restore to do it
right if it is split... yuck!
Log in to post a comment.