setVar $filename GAMENAME & "-Unexplored_Unfigged.txt"
delete $filename
getNearestWarps $stack STARDOCK
setVar $count $stack
while ($count > 0)
     setVar $this $stack[$count]
     if (SECTOR.EXPLORED[$this] <> "YES")
               getSectorParameter  $this "FIGSEC" $figtest
               if ($figtest = FALSE)
                    write   $filename $this
               end
     end
     subtract $count 1
end

setVar $filename GAMENAME & "-most-unexplored.txt"
delete $filename
getNearestWarps $stack STARDOCK
setVar $max_unexp 0
setVar $count $stack
while ($count > 0)
     setVar $this $stack[$count]
     if (SECTOR.EXPLORED[$this] <> "YES")
               getSectorParameter  $this "FIGSEC" $figtest
               if ($figtest = FALSE)
                    getCou rse  $lane STARDOCK $this
                    setVar   $unexp_cnt 0
                    setVar   $course_idx 1
                    while   ($course_idx <= ($lane+1))
                           setVar  $course_test $lane[$course_idx]
                           if (SECTOR.EXPLORED[$course_test] <> "YES")
                                   add $unexp_cnt 1
                            end
                             add  $course_idx 1
                     end
                    add   $occurances[$unexp_cnt][0] 1
                    setVar   $occurances[$unexp_cnt][$occurances[$unexp_cnt][0]] $this
                     if ($unexp_cnt > $max_unexp)
                           setVar  $max_unexp $unexp_cnt
                     end
               end
     end
     subtract $count 1
end
setVar $count $max_unexp
while ($count > 0)
     setVar $idx 1
     while ($idx <= $occurances[$count][0])
               write $filename $occurances[$count][$idx] & " " & $count
               add $idx 1
     end
     subtract $count 1
end