CONSTANT C_Creator           := ":GESTAUD";
CONSTANT C_AppName           := "NP_Load";
CONSTANT C_AppSymbol         := '|NP_Load:GESTAUD|;
CONSTANT C_PackageName       := "NP_Load:GESTAUD";
CONSTANT C_NAV_PointSoup     := "NAV Points:GPS Map:GESTAUD";
CONSTANT C_OwnerAppSymbol    := '|GPS Map:GESTAUD|; // for real application

DEFCONST ('MakeDataFrame, FUNC (S1, S2, S3, S4, S5)
  {Name   : S1,
   Type   : S2,
   Comment: S3,
   Lat    : S4,
   Long   : S5}
);


//Clone entire data set to use a common map
DEFCONST ('CloneWithCommonMap, FUNC (data)
BEGIN
 LOCAL newData := Clone (data);
 LOCAL i, elt;
 FOREACH i,elt IN newData DO
   newData[i] := CALL MakeDataFrame WITH (elt.Name, elt.Type, elt.Comment, elt.Lat, elt.Long);
 RETURN newData;
END
);


LOAD (HOME & "SampleWp.txt");
DEFCONST ('kNP_Array, CALL CloneWithCommonMap WITH (kNP_Data))