DeleteAllEntries

tell application "TaskPaper"
    tell front document
        delete entries
    end tell
end tell