X-Git-Url: http://deadsoftware.ru/gitweb?a=blobdiff_plain;f=src%2Fshared%2Fconbuf.pas;h=44ec2a8f780afacd378be030352c2f1a925b4eaf;hb=3fa3726fe9bf1c40052f2002e6b8b7f0337e1a68;hp=bc7a8f7d7054803327859f9522af7e5ac138b4be;hpb=6107d1bd653921f093e4d2c81f2905f4e520f6d4;p=d2df-sdl.git

diff --git a/src/shared/conbuf.pas b/src/shared/conbuf.pas
index bc7a8f7..44ec2a8 100644
--- a/src/shared/conbuf.pas
+++ b/src/shared/conbuf.pas
@@ -41,7 +41,7 @@ procedure cbufClear ();
 var
   conbufDumpToStdOut: Boolean = false;
   conbufConPrefix: Boolean = true;
-
+  conbufStdOutRawMode: Boolean = false;
 
 implementation
 
@@ -83,6 +83,8 @@ begin
           if conbufConPrefix then write(stdout, 'CON: ');
           needCon := false;
         end;
+        if conbufStdOutRawMode and (buf[np] = #10) then
+          write(stdout, #13); // force carriage return in raw mode
         write(stdout, buf[np]);
         needCon := (buf[np] = #10);
       end;