equal
deleted
inserted
replaced
26 procedure WriteToConsole(s: shortstring); |
26 procedure WriteToConsole(s: shortstring); |
27 procedure WriteLnToConsole(s: shortstring); |
27 procedure WriteLnToConsole(s: shortstring); |
28 function GetLastConsoleLine: shortstring; |
28 function GetLastConsoleLine: shortstring; |
29 |
29 |
30 implementation |
30 implementation |
31 uses uMisc, Types, uVariables; |
31 uses uMisc, Types, uVariables, uUtils; |
32 |
32 |
33 const cLineWidth: LongInt = 0; |
33 const cLineWidth: LongInt = 0; |
34 cLinesCount = 256; |
34 cLinesCount = 256; |
35 |
35 |
36 type |
36 type |