Sub deljournal msg while uo injournal msg uo setjournalline uo injourn

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