program T5;
var
   Lat, Lon, dLat: real;
   i: integer;
begin
   lat:= '49 20.500';
   lon:= '8 8.756';
   dlat:= 1/60/30;
   WptsClear;
   for i:=0 to 9 do begin
     WptsAdd(Lat+dLat*i,Lon)
   end;
   if IsPocketPC then begin
      WptsSaveOzi('KDB')
   end
   else begin
      WptsSaveGGPX('KDB')
(*      WptsTransfereOzi *)
   end;
   Writeln('fertig');
end.