spill=''
ln1=1

do line=ln1 to lnm
  r=0
  ':'||line
  curln=curline.3()
  if pos(word(curln,2),' Sa Su Mo Tu We Th Fr ')=0 then iterate
  if spill<>'' then do
    curln=insert(spill,curln,8)
    say curln
    spill=''
    r=1
  end;
  p=pos('**',curln)
  if p>0 then do
    spill=substr(curln,p-5,5)||'AM'||substr(curln,p+2)
    curln=substr(curln,1,p-6)
    r=1
  end
  if f>0 then
    'REPLACE' curln
end

':'||lnz
