%
% track new data points
%
"Tdata\data" ofconn folder
empty
{
 "data_" textwild
 nextfile ?
"tdata" log)(
 empty !Mach.Stake
 execing
 _Mach.Stake any)?
 {
  *trakst9p
"st9p" log)(
  {
   _Sim.Lat asc2hex !Trak.Lat
   _Sim.Lon asc2hex !Trak.Lon
   _Sim.Heading asc2hex !Trak.Head
   _Sim.PartImei !Trak.Phone
   _Sim.Speed 1.15078 div asc2hex !Trak.Speed
   _Sim.Status !Trak.St
   empty
   "Trak.Lat" sval
   "Trak.Lon" sval
   "Trak.Head" sval
   "Trak.Phone" sval
   "Trak.Speed" sval
   "Trak.St" sval

   _Trak.Phone ^"Trak\" ofconn folder

   _Mach.DataTime fromjs$ untelldate text
   &
   write

  }
  {
  } ifelse
 }
 {
 } ifelse
 deleting
%%% finaled
} loop
filing)