PROCEDURE (ram$altw) alter_word, altw (
  status)

  "$FORMAT=OFF
  VAR
    replace_status: status
  VAREND
  "$FORMAT=ON"

  current_word = $current_word
  alter_command = $screen_input(current_word//' <-- Replacement value')
  replacement_string = ''
  alter_string asc=alter_command os=current_word ns=replacement_string
  IF $mark_first_line <> $mark_last_line THEN
    line_range = mark
  ELSE
    line_range = all
  IFEND

  replace_text t=current_word nt=replacement_string l=line_range w=on ..
        status=replace_status
  put_row t=$string(replace_status) r=$mr

PROCEND alter_word
