procedure eve_indent
local num_lines,	! Number of lines to indent
      num_spaces,	! Number of spaces to indent each line.
      del_range,	! Range to delete if num_spaces is negative
      blankstring,	! String of blanks for inserting
      count_l;
blankstring := 
"                                                                      ";
num_lines := int(read_line("Indent how many lines? "));
num_spaces := 
      int(read_line("Indent how many spaces? (Negative removes) "));

if num_spaces > 0 then
  if num_spaces > length(blankstring) then
    message(fao("Exceeds maximum indent of !SL spaces.",length(blankstring)));
    return;
  endif;
  move_horizontal(-current_offset);
  count_l := 0;
  loop
    blankstring := substr(blankstring,1,num_spaces);
    copy_text(blankstring);
    aaw_nextline;
    count_l := count_l + 1;
    exitif count_l >= num_lines;
  endloop;
else
  move_horizontal(-current_offset);
  count_l := 0;
  loop
    del_range := search(anchor & span(" "),forward);
    if del_range <> 0 then
      if length(del_range) >= -num_spaces then
        erase_character(-num_spaces);
      else
        erase_character(length(del_range));
      endif;
    endif;
    count_l := count_l + 1;
    aaw_nextline;
    exitif count_l >= num_lines;
  endloop;
endif;
endprocedure;