On 500:text:!createfortune*:#:{
 $write(Fortune.txt)
}

I donno if $write even works, but that line isn't gonna do anything without $2- or whatever.

Edit: woops, didn't realize rhasttaff made the same comment...