% --------------- file  pasforce.ch


@x [165]
@!b:ASCII_code; {a character from the buffer}
@!bal:eight_bits; {left parentheses minus right parentheses}
begin bal:=0;
loop@+  begin continue: a:=get_next;
@y
@!b:ASCII_code; {a character from the buffer}
@!bal:eight_bits; {left parentheses minus right parentheses}
@!saved_line: integer;
@!saved_ch_flag: boolean;
begin bal:=0;
saved_line := -1;
loop@+  begin continue: a:=get_next;
if ((saved_line <> line) or (saved_ch_flag <> changing) )
                 and (t = module_name) then
    begin
    saved_ch_flag := changing;
    saved_line := line; app_repl(force_line);
    end;
@z