%
% create history point in date folder
%

"9172972637" ^"Trak\" ofconn folder( !Trak.Folder
&"Mive" folder !Trak.Live

false !Trak.HasH
0 !Trak.HasT
true !Trak.Unmove

_Trak.Folder
empty
{
%
% stack: path seed
%
 "*.xtx" !wilder
 nextfile ?
 dup !Sim.File
 dup noext
_Trak.HasH
{
 _Trak.HasT second from 30000 gt
 !Trak.Unmove
 dup !Trak.HasT
}
{
 dup !Trak.HasT
 true !Trak.HasH
} ifelse
 telldate !Trak.Date

_Trak.Date dup Time.DateOrder !Trak.Hdate
Time.TimeOrder !Trak.Htime

_Trak.Hdate &_Trak.Htime ^_Trak.Live
text dup !histpnt exists false and
{
}
{

execing
  _Trak.Lat hex2asc !Trak.Lat
  _Trak.Lon hex2asc !Trak.Lon

_Trak.Date quoter &","
_Trak.Lat & &"," _Trak.Lon & &","
_Trak.Speed
dup "none" eq$
{
 pop 0.0
}
{
 hex2asc
 dup numeric
 {
 }
 {
  pop 0.0
 } ifelse
} ifelse
& &","
_Trak.Head
dup "none" eq$
{
 pop 0.0
}
{
 hex2asc
 dup numeric
 {
 }
 {
  pop 0.0
 } ifelse
} ifelse
& &","
/*
_Trak.Alt
dup "none" eq$
{
 pop 0.0
}
{
 hex2asc
} ifelse
*/
"0.0" &

&", " _Sim.File noext & &",0,0"

^"[ " &" ]"
&_Trak.Unmove
catcr

_histpnt ".txa" reextend safetext
} ifelse

} loop
filing)