changeset 3825 | fd6c20cd90e3 |
parent 3818 | e668970413e6 |
child 3894 | 9abce5468583 |
3823:cca9bfb88a24 | 3825:fd6c20cd90e3 |
---|---|
110 {$ENDIF} |
110 {$ENDIF} |
111 end; |
111 end; |
112 |
112 |
113 procedure WriteLnToConsole(s: shortstring); |
113 procedure WriteLnToConsole(s: shortstring); |
114 begin |
114 begin |
115 {$IFNDEF NOCOSOLE} |
115 {$IFNDEF NOCONSOLE} |
116 WriteToConsole(s); |
116 WriteToConsole(s); |
117 WriteLn; |
117 WriteLn; |
118 inc(CurrLine); |
118 inc(CurrLine); |
119 if CurrLine = cLinesCount then |
119 if CurrLine = cLinesCount then |
120 CurrLine:= 0; |
120 CurrLine:= 0; |