u.19=u.19+monster.13
m=length(monster.1)
r=random(1,maxgore,time('s'))
temp=gore.r
old = gore.r
x=pos("%m",temp)
if x~=0 then do;temp2 = delstr(temp,x,2);old = insert(monster.1,temp2,x-1,m," ");end
transmit old