%
% create history point in date folder
%

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

_Trak.Hdate ^_Trak.Folder folder
_Trak.Htime text & dup !histpnt exists
{
}
{
_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"

^"[ " &" ]" catcr

_Trak.Hdate ^_Trak.Folder folder
_Trak.Htime &".txa" & safetext
true !Sim.NewMove
} ifelse