status >env:KillOberon1
search env:KillOberon1 Oberon nonum >env:KillOberon2
if not "$KillOberon2" eq ""
 echo "$KillOberon2" first=9 len=2 >env:KillOberon1
 break $KillOberon1 all
endif
delete env:KillOberon1
delete env:KillOberon2

