define text_kreis
  local mp
  local r
  local aw
  local ew
  local txt
  local b
  local n
  local tw
  local sw

  read "Mittelpunkt fuer Text um Kreisbogen eingeben" mp
  read "Radius?" r 
  read "Anfangswinkel?" aw
  read "Endwinkel?" ew
  read "Text?" default "www.Andreas-Baumgartner.de" txt

  if (aw < ew)
    let aw (aw + 360)
  end_if
  let sw ((aw-ew)/(len txt -1))
  let n (0)
  loop
  exit_if (n=LEN txt)
   let n (n+1)
   let b (substr txt n 1)
   let tw (aw-(sw*(n-1)))
   text_angle (tw-90)
   text b (mp+pnt_ra r tw ) end
  end_loop
  text_angle 0

end_define