cd fst4w
::copy %1 saved
del decoded.txt
jt9 -W -p 1800 -f 1610 %1
type decoded.txt >>decodedall.txt
del %1
call :setsize decoded.txt
if %size% equ 0 goto :eof
set d=%1
set d=%d:~7,6%
for /f "tokens=1,2,3,4,5,7,8,9" %%i in (decoded.txt) do @call :doline %%i %%j %%k %%l %%m %%n %%o %%p
curl >curllog.htm -F allmept=@"spots.txt" -F call="DL0AO/1800" -F grid=JN59vk http://wsprnet.org/meptspots.php
call :setsize curllog.htm
if %size% gtr 4000 del spots.txt
goto :eof

:setsize
set size=%~z1
goto :eof

:doline
set f=%5
set f=%f:~0,4%
set /a f=6660+f
set f=0.00%f%
echo %d% %1 %2 %3 %4 %f% %6 %7 %8 >>spots.txt
echo %d% %1 %2 %3 %4 %f% %6 %7 %8 >>spotsall.txt
goto :eof
