%
% track forward points for history insertion
%

empty !Sim.First
empty !Sim.Valid
0.0 !Sim.Vlat
0.0 !Sim.Vlon

0 !counter
%
% tag as first cycle
%
true !fircyc
false !firval
%
% forces next value of latitude and longitude to be counted
%
empty !Trak.Lat
empty !Trak.Lon

0 !braks


_Trak.Folder
empty
{
%
% stack: path seed
%
 "" textwild
 nextfile ?
"back point" log)(


_Trak.Folder
%%% second ".aaa" reextend
empty
{
%
% stack: path seed
%
 "*.*" !wilder
 prevfile ?
"txt point" log)(

dup extension dup ".xtx" eq$ exch ".txt" eq$ or
{

false !brakn
  filing dup read
  exch quoter &" !Trak.File
" &
  _braks 3 ge
  {
%
% 4 brackets, move brackets down and process
%
   _brakb !braka
   _brakc !brakb
   _brakd !brakc
   !brakd
   true !brakn
  }
  {
%
% not 4 brackets yet
%
   _braks
   <
   |3 !brakd
      true !brakn
   |2 !brakc
   |1 !brakb
   |0 !braka
   > pop
   +:braks
  } ifelse

%
% will anchor on this data point to start
%
 dup !Sim.File
%
% next backward in time locater data point file
%
 dup noext
 dup telldate !Trak.Date
 !Sim.Msec

 *trakbrak

 false
%%%  +counter 10 gt
}
{
 false
} ifelse
 ?

} loop
filing)

 true ?

} loop
filing)