!+
!	TABS.TPU - Routine to remove tabs assuming SET TABS EVERY 8
!-!

procedure eve_eliminate_tabs		! Turn TABs to spaces

    local	target,
		n;

    loop
        target := search(ascii(9), FORWARD);
        exitif (target = 0);
        position(beginning_of(target));
        erase_character(1);
        n := current_offset;
        n := n - (8 * (n / 8));
        eveplus_insert_text(substr("        ", 1, 8 - n));
    endloop;
    
endprocedure