DeleteAllArchivedEntries

tell application "TaskPaper"
    tell front document
        tell project named "Archive"
            delete entries
        end tell
    end tell
end tell