!+ ! 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