anchor.diff:      {_Removed, Rem2, Nl} = read_to_nl(Rem),
       case Endif of
   	1 ->
  -	    Out2 = [lists:duplicate(Nl,$\n)|Out],
  +	    Out2 = lists:duplicate(Nl,$\n) ++ Out,
               expand(Rem2, Out2, SelfRef, Defs, IncFile, IncDir, check_all, Err, War, L+Nl, FN);
   	_ ->
               IfCou2 = {endif, Endif-1, IfLine},
  
positive.code: 	    expand(Rem2, Out4, SelfRef, Defs3, IncFile, IncDir, check_all, Err3, War3, L+Nl, FN);
  	
  	{{include, error}, Rem2, Nl, Err2, War2} ->
  	    Out2 = [lists:duplicate(Nl,$\n)|Out],
  	    expand(Rem2, Out2, SelfRef, Defs, IncFile, IncDir, check_all, Err2, War2, L+Nl, FN);
  
  	{{ifdef, true}, Rem2, Err2, War2, Nl} ->
  	    Out2 = [lists:duplicate(Nl,$\n)|Out],
  	    IfCou2 = {endif, 1, L},
  	    expand(Rem2, Out2, SelfRef, Defs, IncFile, IncDir, IfCou2, Err2, War2, L+Nl, FN);
  	{{ifdef, false}, Rem2, Err2, War2, Nl} ->
  	    Out2 = [lists:duplicate(Nl,$\n)|Out],
  	    expand(Rem2, Out2, SelfRef, Defs, IncFile, IncDir, check_all, Err2, War2, L+Nl, FN);
  
  	{{ifndef, true}, Rem2, Err2, War2, Nl} ->
  	    Out2 = [lists:duplicate(Nl,$\n)|Out],
  	    IfCou2 = {endif, 1, L},
  	    expand(Rem2, Out2, SelfRef, Defs, IncFile, IncDir, IfCou2, Err2, War2, L+Nl, FN);
  	{{ifndef, false}, Rem2, Err2, War2, Nl} ->
  	    Out2 = [lists:duplicate(Nl,$\n)|Out],
  	    expand(Rem2, Out2, SelfRef, Defs, IncFile, IncDir, check_all, Err2, War2, L+Nl, FN);
  
  	{endif, Rem2, Err2, War2, Nl} ->
  	    Out2 = [lists:duplicate(Nl,$\n)|Out],
  	    expand(Rem2, Out2, SelfRef, Defs, IncFile, IncDir, check_all, Err2, War2, L+Nl, FN);
  
  	{{'if', true}, Rem2, Err2, War2, Nl} ->
  	    Out2 = [lists:duplicate(Nl,$\n)|Out],
  	    IfCou2 = {endif, 1, L},
  	    expand(Rem2, Out2, SelfRef, Defs, IncFile, IncDir, IfCou2, Err2, War2, L+Nl, FN);
  %%	{{'if', false}, Removed, Rem2, Nl} ->   Not implemented at present
  	{{'if', error}, Rem2, Err2, War2, Nl} ->
  	    Out2 = [lists:duplicate(Nl,$\n)|Out],
  	    expand(Rem2, Out2, SelfRef, Defs, IncFile, IncDir, check_all, Err2, War2, L+Nl, FN);
  
  	{'else', {_Removed, Rem2, Nl}} ->
  	    Out2 = [lists:duplicate(Nl,$\n)|Out],
  	    Err2 = {FN, L, "`else' command is not implemented at present"},
  	    expand(Rem2, Out2, SelfRef, Defs, IncFile, IncDir, check_all, [Err2|Err], War, L+Nl, FN);
  
  	{'elif', {_Removed, Rem2, Nl}} ->
  	    Out2 = [lists:duplicate(Nl,$\n)|Out],
  	    Err2 = {FN, L, "`elif' command is not implemented at present"},
  	    expand(Rem2, Out2, SelfRef, Defs, IncFile, IncDir, check_all, [Err2|Err], War, L+Nl, FN);
  
  	{warning, {WarningText, Rem2, Nl}} ->
  	    [FileName|_More] = IncFile,
  	    War2 = {FileName, L, "warning: #warning "++detokenise(WarningText)},
  	    Out2 = [lists:duplicate(Nl,$\n)|Out],
  	    expand(Rem2, Out2, SelfRef, Defs, IncFile, IncDir, check_all, Err, [War2|War], L+Nl, FN);
  	    
  	{error, {ErrorText, Rem2, Nl}} ->
  	    [FileName|_More] = IncFile,
  	    Err2 = {FileName, L, detokenise(ErrorText)},
  	    Out2 = [lists:duplicate(Nl,$\n)|Out],
  	    expand(Rem2, Out2, SelfRef, Defs, IncFile, IncDir, check_all, [Err2|Err], War, L+Nl, FN);
  	    
  	{{line, ok}, {_Removed, Rem2, Nl}, L2, FN2, LineText} ->
  
negative.code: %% other than new lines
  only_nls([]) ->
      true;
  only_nls([$\n|Rem]) ->
      only_nls(Rem);
  only_nls([$\r, $\n|Rem]) ->
      only_nls(Rem);
  only_nls([_|_Rem]) ->
      false.
  