Sub deljournal(msg) while uo.injournal(msg) uo.setjournalline(uo.injournal(msg)-1,"") wend endsub