Goto Position=Top
$x=0
While .not. $_EOL
$p_guid=Right($d_url,36)
IF $d_CacheType = "T"
$p_WptTypeID=2
ENDIF
IF $d_CacheType = "B"
$p_WptTypeID=5
ENDIF
IF $d_CacheType = "C"
$p_WptTypeID=13
ENDIF
IF $d_CacheType = "E"
$p_WptTypeID=6
ENDIF
IF $d_CacheType = "C"
$p_WptTypeID=999
ENDIF
IF $d_CacheType = "L"
$p_WptTypeID=12
ENDIF
IF $d_CacheType = "M"
$p_WptTypeID=3
ENDIF
IF $d_CacheType = "O"
$p_WptTypeID=999
ENDIF
IF $d_CacheType = "R"
$p_WptTypeID=137
ENDIF
IF $d_CacheType = "U"
$p_WptTypeID=8
ENDIF
IF $d_CacheType = "V"
$p_WptTypeID=4
ENDIF
IF $d_CacheType = "W"
$p_WptTypeID=11
ENDIF
$d_Archived = True
IF $p_WptTypeID<999
$p_url="http://www.geocaching.com/bookmarks/ignore.aspx?guid=$p_guid&WptTypeID=$p_WptTypeID"
WEB URL=$p_url
$x=$x+1
# PAUSE Msg= $x
IF $x=5
PAUSE Msg="Das waren 5"
$x=0
ENDIF
ENDIF
Goto Position=Next
EndWhile